[發問] 用VBA 做Sumif 問題

我有一個工作表,需要將類型加類。需要用VBA 來自動分類及加總。

例如A至G欄, 每一個組別, Job 不同的話,我會自行用 4列分隔開, 同時要將Item 處分類加總起來。

在 D欄列出Item 的類別, 其後在Line 就用sumif 加總, qty 處也是。

J至P欄是結果顯示,我做例子說明而已,平時只會有A至G欄。

想用VBA 自動在最後自己填入分類及進行分類加總。

例如M6至O7 是要用VBA 全自動得出結果。因為平時只有A欄至G欄,所以我想設定一個按鈕點擊,則在D6至F7 欄得出 M6至O7 的同時結果。

以下幾個Job 都是一樣。

Item , D欄最多有三個類別。如果Job 只有一個類別則完全不用動作。 (LV0998),

最後是 LV0999, 如果Item 只有一個就只是進行加總就可以,不用另外加一個Item 名稱進去。

非常感謝大家。

VBA sumif.zip (8.77 KB)

樓主熱帖

軒云熊

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-9-23

2^#

發表於 2021-5-15 21:43 | 只看該作者

回復 1# stephenlee
請問 stephenlee大大 Job 除了以下這些還有其它的嗎?
LV1024-1-4
LJG0430-1-6
LV0997-1-8
LV0998-1-1
LV0999-1-2

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

3^#

發表於 2021-5-16 21:00 | 只看該作者

本帖最後由 samwang 於 2021-5-16 21:03 編輯

回復 1# stephenlee

  請測試看看，謝謝
Sub test()
Dim Arr, xD, Ar(), T, UT, T2%, T3%, i&, M%, N%
Set xD = CreateObject("Scripting.Dictionary")
R = [a65536].End(3).Row + 1
Arr = Range("a1:g" & R)
For i = 2 To UBound(Arr)
T = Arr(i, 4): T2 = Arr(i, 5): T3 = Arr(i, 6): UT = Arr(i - 1, 4)
If T = "" And UT <> "" Then GoTo 98
If T = "" Then GoTo 99
If xD.Exists(T & "") Then
      M = xD(T & ""): Ar(2, M) = Ar(2, M) + T2: Ar(3, M) = Ar(3, M) + T3
Else
      N = N + 1: xD(T & "") = N
      ReDim Preserve Ar(1 To 3, 1 To N)
      If Left(Arr(i, 1), 6) <> "LV0999" Then Ar(1, N) = T
      Ar(2, N) = T2: Ar(3, N) = T3
End If
98:  If T = "" Then
      If M > 0 Then Cells(i, 4).Resize(N, 3) = Application.Transpose(Ar)
      N = 0: M = 0: Set xD = Nothing: Erase Ar
      Set xD = CreateObject("Scripting.Dictionary")
End If
99: Next
End Sub

TOP

stephenlee