|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub test()
Set dic = CreateObject("scripting.dictionary")
arr = [a2].CurrentRegion
For i = 2 To UBound(arr)
xm = arr(i, 1) & arr(i, 2)
If Not dic.exists(xm) Then
dic(xm) = arr(i, 3)
Else
dic(xm) = dic(xm) + arr(i, 3)
End If
Next
Range("h3:j" & Rows.Count) = ""
brr = [g1].CurrentRegion
For i = 3 To UBound(brr)
For j = 2 To UBound(brr, 2)
xm = brr(i, 1) & brr(2, j)
If dic.exists(xm) Then
brr(i, j) = dic(xm)
End If
Next
Next
[g1].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
|
评分
-
2
查看全部评分
-
|