|
Sub 星形八角2_Click()
Dim arr As Variant, brr As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
arr = Sheet4.Range("a1").CurrentRegion
With Sheets("流水明细库存信息")
brr = .Range("a1").CurrentRegion
For i = 2 To UBound(brr)
If Trim(brr(i, 1)) <> "" Then
d(Trim(brr(i, 1))) = i
End If
Next i
For i = 2 To UBound(arr)
If Trim(arr(i, 2)) <> "" Then
n = d(Trim(arr(i, 2)))
If n <> "" Then
y = .Cells(n, Columns.Count).End(xlToLeft).Column + 1
.Cells(n, y) = arr(i, 7)
.Cells(n, y + 1) = arr(i, 4)
End If
End If
Next i
End With
MsgBox "ok!"
End Sub
|
|