|
发表于 2015-5-23 16:05
|
显示全部楼层
本楼为最佳答案
- Sub Macro1()
- Dim arr, brr, d, i&
- Set d = CreateObject("scripting.dictionary")
- Sheet1.Activate
- arr = Sheet2.Range("a3").CurrentRegion
- brr = Range("b3:d" & Cells(Rows.Count, 2).End(xlUp).Row)
- For i = 2 To UBound(arr)
- d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3)
- Next
- For i = 2 To UBound(brr)
- brr(i, 3) = d(brr(i, 1))
- Next
- Range("d3").Resize(UBound(brr)) = Application.Index(brr, 0, 3)
- End Sub
复制代码 |
|