菜鸟求教

ljc6

Sub 求和1()
Dim ar, d As Object, r&
Set d = CreateObject("scripting.dictionary")
Sheet1.Activate
[j:k].Clear
ar = Sheet1.UsedRange.Resize(, 11)
For r = 5 To UBound(ar)
    ar(r, 10) = ar(r, 4)
    If Len(ar(r, 4)) Then
        d(ar(r, 4)) = d(ar(r, 4)) + ar(r, 7)
    End If
Next
For r = 5 To UBound(ar)
    If d.exists(ar(r, 10)) Then ar(r, 11) = d(ar(r, 4)) Else ar(r, 11) = ""
Next
Sheet1.UsedRange.Resize(, 11) = ar
Set d = Nothing
End Sub

请教一下，标红的代码怎么理解呢，谢谢

lsc900707

这是字典的基本用法，如果弄不明白，建议先了解相关的知识。

魂断蓝桥

你这个写的有点复杂吧

Sub 求和1()
Dim ar, d As Object, r&
Set d = CreateObject("scripting.dictionary")
[j:j] = ""
ar = [a4].CurrentRegion
For i = 2 To UBound(ar)
    d(ar(i, 4)) = d(ar(i, 4)) + ar(i, 7)
Next
For i = 2 To UBound(ar)
    ar(i, 9) = d(ar(i, 4))
Next
[j4].Resize(i, 1) = Application.Index(ar, 0, 9)
Set d = Nothing
End Sub

魂断蓝桥

你这个写的有点复杂吧

Sub 求和1()
Dim ar, d As Object, r&
Set d = CreateObject("scripting.dictionary")
[j:j] = ""
ar = [a4].CurrentRegion
For i = 2 To UBound(ar)
    d(ar(i, 4)) = d(ar(i, 4)) + ar(i, 7)
Next
For i = 2 To UBound(ar)
    ar(i, 9) = d(ar(i, 4))
Next
[j4].Resize(i, 1) = Application.Index(ar, 0, 9)
Set d = Nothing
End Sub

魂断蓝桥

你这个写的有点复杂吧

Sub 求和1()
Dim ar, d As Object, r&
Set d = CreateObject("scripting.dictionary")
[j:j] = ""
ar = [a4].CurrentRegion
For i = 2 To UBound(ar)
    d(ar(i, 4)) = d(ar(i, 4)) + ar(i, 7)
Next
For i = 2 To UBound(ar)
    ar(i, 9) = d(ar(i, 4))
Next
[j4].Resize(i, 1) = Application.Index(ar, 0, 9)
Set d = Nothing
End Sub

ljc6

魂断蓝桥 发表于 2018-8-13 14:17
你这个写的有点复杂吧

Sub 求和1()

这个也可以，就是直接得出对应的库存，谢谢
我是个初学者，要是帮忙注释一下代码，那就太好了！