|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub zz()
Dim d, ar, br, j%
Set d = CreateObject("Scripting.Dictionary")
Application.ScreenUpdating = False
ar = Sheet1.Range("A1").CurrentRegion
br = Sheet111.Range("B3").CurrentRegion
For i = 2 To UBound(ar)
d(ar(i, 5) & ar(i, 2)) = d(ar(i, 5) & ar(i, 2)) + ar(i, 10)
Next
For i = 2 To UBound(br)
For j = 7 To UBound(br, 2)
br(i, j) = d(br(i, 4) & br(1, j))
Next
Next
Sheet111.Range("B3").CurrentRegion = br
Application.ScreenUpdating = True
End Sub
|
评分
-
2
查看全部评分
-
|