|
- Sub 汇总2()
- Application.ScreenUpdating = False
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.[a1].CurrentRegion
- For i = 2 To UBound(arr)
- s = arr(i, 2) & arr(i, 3) & arr(i, 4)
- If Len(arr(i, 9)) Then
- If d.exists(s) Then
- d(s) = d(s) + arr(i, 9)
- Else
- d(s) = arr(i, 9)
- End If
- ElseIf Len(arr(i, 9)) = 0 And Len(arr(i, 7)) Then
- If d.exists(s) Then
- d(s) = d(s) + arr(i, 7)
- Else
- d(s) = arr(i, 7)
- End If
- End If
- Next
- brr = [a1].CurrentRegion
- For i = 2 To UBound(brr)
- For j = 4 To UBound(brr, 2)
- s = brr(i, 1) & brr(i, 2) & brr(1, j)
- If d.exists(s) Then brr(i, j) = d(s)
- Next
- Next
- [a1].CurrentRegion = brr
- Application.ScreenUpdating = True
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|