|
对你的意图我琢磨了好久,你再试下这个对不对?仍然是写在 AL:AK列
Dim zd As Object
Set zd = CreateObject("scripting.dictionary")
Dim arr(1 To 2)
Dim arr1
For i = 2 To Worksheets("无锡华虹").[b10000].End(3).Row
s = Worksheets("无锡华虹").Cells(i, 1)
arr(1) = Worksheets("无锡华虹").Cells(i, "H")
arr(2) = Worksheets("无锡华虹").Cells(i, "L")
If zd.exists(s) Then
arr1 = zd(s)
arr1(2) = arr1(2) + arr(2)
zd(s) = arr1
Else
zd(s) = arr
End If
Next i
Range("ak4:al1000").ClearContents
For i = 4 To [b10000].End(3).Row
s = Cells(i, 2)
If zd.exists(s) Then
arr1 = zd(s)
Cells(i, "al") = arr1(1)
Cells(i, "ak") = arr1(2)
End If
Next i
|
评分
-
查看全部评分
|