Public ar, dd
Sub aaa()
Dim i&
Set dd = CreateObject("scripting.dictionary")
ar = Sheets("单价").Range("a1").CurrentRegion
For i = 2 To UBound(ar)
If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
zf = ar(i, 2) & "," & ar(i, 3)
dd(zf) = ar(i, 4)
Next
End Sub
Public ar, dd
Sub aaa()
Dim i&
Set dd = CreateObject("scripting.dictionary")
ar = Sheets("单价").Range("a1").CurrentRegion
For i = 2 To UBound(ar)
If ar(i, 2) = "" Then ar(i, 2) = ar(i - 1, 2)
zf = ar(i, 2) & "," & ar(i, 3)
dd(zf) = ar(i, 4)
Next
End Sub