VBA入门到进阶常用知识代码总结29

第29集 VBA数组与字典综合应用之下棋法
126、 多列汇总

Sub 多列汇总()
Dim brr(1 To 10000, 1 To 3)
Dim Brow
Dim arr, x, k
Dim d As New Dictionary
arr = Range(“a2:c” & Range(“a65536”).End(xlUp).Row)
For x = 1 To UBound(arr)
If d.Exists(arr(x, 1)) Then
Brow = d(arr(x, 1))
brr(Brow, 2) = brr(Brow, 2) + arr(x, 2)
brr(Brow, 3) = brr(Brow, 3) + arr(x, 3)
Else
k = k + 1
d(arr(x, 1)) = k
brr(k, 1) = arr(x, 1)
brr(k, 2) = arr(x, 2)
brr(k, 3) = arr(x, 3)
End If
Next x
Range(“f2”).Resize(k, 3) = brr
End Sub
127、 多条件多列汇总

Sub 多条件多列汇总()
Dim brr(1 To 10000, 1 To 4)
Dim Brow