Excel如何彙整不同Sheet的資料

Question

要如何把不同Sheet的資料彙整在一起（彙整條件為，某欄位有值）

現在我是用excel來區分不同的產品類別！

所以客戶在下單的時候，有可能每一個Sheet都有一些產品，

我希望可以把所有客戶有下單的東西，整理在一個sheet，以方便核對，

我該如何把「數量」這欄是有值的狀況時，就把該筆資料彙整到另一個sheet呢？

例：

Sheet 洗澡用品：

　A　　　B　　　C　　　D　　　　E

項目　　規格　　單價　　數量　　小計

洗髮精　100ML　100　　　2　　　200

洗髮精　200ML　150

沐浴乳　100ML　80　　　1　　　80

Sheet 保養品：

　A　　　B　　　C　　　D　　　　E

項目　　規格　　單價　　數量　　小計

化妝水　100ML　150　　2　300

精華液　100ML　200

保濕　　100ML　80　　1　　80

彙整後

Sheet Total

　A　　　B　　　C　　　D　　　　E

項目　　規格　　單價　　數量　　小計

洗髮精　100ML　100　　2　200

沐浴乳　100ML　80　　1　80

化妝水　100ML　150　　2　300

保濕　　100ML　80　　1　80

Answer 1

Favorite Answer

使用VBA(巨集)方式

先匯入洗澡用品,再匯入保養品

範例檔在http://www.FunP.net/6688843

Sub 按鈕1_Click()

'以下是匯入第一個工作表也就是洗澡用品

Sheets(1).Select

For i = 2 To Sheets(1).[A65536].End(xlUp).Row + 1

If Cells(i, 4) <> "" Then

k = Sheets(3).[A65536].End(xlUp).Row + 1

For j = 1 To 5

Sheets(3).Cells(k, j).Value = Sheets(1).Cells(i, j).Value

Next j

End If

Next i

'以下是匯入第二個工作表也就是保養品

Sheets(2).Select

For i = 2 To Sheets(2).[A65536].End(xlUp).Row + 1

If Cells(i, 4) <> "" Then

k = Sheets(3).[A65536].End(xlUp).Row + 1

For j = 1 To 5

Sheets(3).Cells(k, j).Value = Sheets(2).Cells(i, j).Value

Next j

End If

Next i

Sheets(3).Select

End Sub