Excel如何彙整不同Sheet的資料

要如何把不同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

1 Answer

Rating
  • 小花
    Lv 5
    1 decade ago
    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

Still have questions? Get your answers by asking now.