|
本帖最后由 代码新手 于 2020-1-14 12:08 编辑
Sub 带入()
Dim rr&, arr, brr, crr, drr, err, frr, grr, hrr, fileStr$
Dim wb As Workbook
Dim ws As Worksheet
Application.DisplayAlerts = False
Application.ScreenUpdating = False
fileStr = ThisWorkbook.Path & "/导入模板资料.xlsx"
Set wb = Workbooks.Open(fileStr)
rr = Sheet1.Range("I2").End(xlDown).Row
'13、物料名称BH-对应的物料编码#编码BF,在导入模板资料(物料工作表A列)。
arr = .Range("BH3:BH,BI3:BI" & rr)
Set ws = wb.Sheets("物料")
brr = ws.Range("A1").CurrentRegion
ReDim crr(1 To UBound(arr), 1 To 1)
For I = 1 To UBound(arr)
For J = 2 To UBound(brr)
If arr(I, 1) = brr(J, 2) Then
crr(I, 1) = brr(J, 1)
End If
Next
Next
.Range("BF3:BF" & rr) = crr
Erase crr: Erase arr: Erase brr
这个需要怎么改下呢。附件我把表放进去了,请各位大佬指导一下。谢谢
|
|