在代码区填写下列代码: Sub 分类求和() Dim arr1(1 To 10, 1 To 2) last = Cells(Rows.Count, 1).End(xlUp).Row arr = Range("a2:b" & last) For i = 1 To last - 1 For j = 1 To UBound(arr1) x = arr(i, 1): y = arr1(j, 1) If x = y Then arr1(j, 2) = arr(i, 2) + arr1(j, 2) GoTo 100: End If Next j k = k + 1 arr1(k, 1) = arr(i, 1) arr1(k, 2) = arr(i, 2) 100: Next i [c2].Resize(k, 2) = arr1 End Sub
点击如果所示的代码运行按钮,可以看到,在所指定的区域已经将结果统计出来了。需要注意的是,在运行代码的时候,我们的数据源所在的工作表必须处在激活的状态,否则会运行错误。