|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
'就是M列同编号累加,然后与C列相同编号进行对比计算的吧,,,
Option Explicit
Sub test()
Dim arr, i, dic
Set dic = CreateObject("scripting.dictionary")
arr = [m2].CurrentRegion
For i = 2 To UBound(arr, 1)
dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
Next
arr = [c2].CurrentRegion.Offset(1)
For i = 1 To UBound(arr, 1)
If dic.exists(arr(i, 1)) Then
arr(i, 1) = dic(arr(i, 1)): arr(i, 2) = arr(i, 2) - arr(i, 1)
Else
arr(i, 1) = 0
End If
Next
[i3].Resize(UBound(arr, 1) - 1, 2) = arr
End Sub |
评分
-
1
查看全部评分
-
|