|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub KunCun()
Dim Arr, Brr
Dim m, n, p
Dim L%
Arr = Range("a2:c" & Range("a2").End(xlDown).Row)
ReDim Crr(1 To UBound(Arr))
Brr = Sheets("库存表").Range("a1:bs" & Sheets("库存表").Range("a2").End(xlDown).Row)
For m = 2 To UBound(Arr, 1)
For n = 1 To UBound(Brr, 2)
If Arr(m, 2) = Brr(1, n) Then L = n + 1
Next n
For p = 2 To UBound(Brr, 1)
If Arr(m, 1) = Brr(p, 1) Then Arr(m, 3) = Brr(p, L)
Next p
Next m
Range("e2:e10000") = ""
Range("e2").Resize(UBound(Arr), 1) = Application.Index(Arr, , 3)
End Sub
|
|