VBA,请说明每一行的意思.SubAA()Dimi%,j%,行数%,k%DimArr,Brr(1To50,1To2)DimDAsNewDictionaryi=Range("A"&rows.Count).End(xlUp).rowArr=Range("A1:B"&i)Forj=1ToUBound(Arr)IfD.Exists(Arr(j,1))Then行数=D(Arr(j,1))Brr(

Question

VBA,请说明每一行的意思.
Sub AA()
Dim i%,j%,行数%,k%
Dim Arr,Brr(1 To 50,1 To 2)
Dim D As New Dictionary
i = Range("A" & rows.Count).End(xlUp).row
Arr = Range("A1:B" & i)
For j = 1 To UBound(Arr)
If D.Exists(Arr(j,1)) Then
行数 = D(Arr(j,1))
Brr(行数,2) = Brr(行数,2) + Arr(j,2)
Else
k = k + 1
D(Arr(j,1)) = k
Brr(k,1) = Arr(j,1)
Brr(k,2) = Arr(j,2)
End If
Next j
Range("G2").Resize(k - 1,2) = Brr
End Sub

Answer 1

如下.Sub AA()Dim i%, j%, 行数%, k% '定义4个变量为整数类型Dim Arr, Brr(1 To 50, 1 To 2) '定义两个数组,其中Brr是二维（1到50...