如何在Excel中用VBA做統計匯總

Dim arr，dic作為對象，i%，RangA作為範圍

Set RangA = Range("g4 "，" i100 ")

arr = RangA

Set dic = CreateObject("Scripting。字典》)

對於i = 1到UBound(arr)

如果dic .存在(arr(i，2))，則

dic(arr(i，2)) = dic。Item(arr(i，2))& amp；”、“& amparr(i，3)

其他

dic(arr(i，2)) = dic。計數+1 & amp；" | " & amparr(i，2)和amp" |=SUMIF(H:H，B " & ampdic。計數+ 4。"，I:I)| " & amp；arr(i，3)

如果…就會結束

接下來我

dic。移除""

設置RangA = Range("a4 ")

蘭格。偏移量(0，0)。調整大小(dic。計數，1) =應用程序。轉置(dic。項目)

申請。顯示警報=假

蘭格。偏移量(0，0)。調整大小(dic。計數，1)。TextToColumns Other:=True，OtherChar:="| "

申請。顯示警報=真

設置dic =無

末端接頭