|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
那就简单得很:
- Sub 求和()
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.[a1].CurrentRegion
- For i = 2 To UBound(arr)
- If Len(arr(i, 1)) = 0 Then arr(i, 1) = arr(i - 1, 1)
- For j = 7 To UBound(arr, 2)
- s = arr(i, 1) & arr(i, 6) & arr(1, j)
- d(s) = d(s) + arr(i, j)
- Next
- Next
- brr = [a1].CurrentRegion
- For i = 2 To UBound(brr)
- For j = 3 To UBound(brr, 2)
- s = brr(i, 1) & brr(i, 2) & brr(1, j)
- brr(i, j) = d(s)
- Next
- Next
- [a1].CurrentRegion = brr
- End Sub
复制代码 |
|