Sub 出货单()
Dim crr(1 To 14, 1 To 5)
n = Sheet3.[b2]
arr = Sheet1.Range("a1").CurrentRegion
brr = Sheet2.Range("a1").CurrentRegion
For j = 2 To UBound(brr, 2)
If brr(1, j) = n Then
For i = 2 To UBound(brr)
If brr(i, j) <> "" Then
k = k + 1
crr(k, 1) = brr(i, 1)
crr(k, 3) = brr(i, j)
End If
Next i
End If
Next j
For i = 1 To k
s = crr(i, 1)
For j = 2 To UBound(arr)
If arr(j, 1) = s Then
crr(i, 2) = arr(j, 2)
crr(i, 4) = arr(j, 3)
crr(i, 5) = crr(i, 3) * crr(i, 4)
Exit For
End If
Next j
Next i
Sheet3.Range("a4").Resize(k, 5) = crr
End Sub |