|
参与一下。。。
- Sub ykcbf() '//2024.5.7
- Application.ScreenUpdating = False
- Set d = CreateObject("Scripting.Dictionary")
- Set sh = ThisWorkbook.Sheets("Sheet1")
- p = ThisWorkbook.Path
- f = p & "\数据源.xlsx"
- Set wb = Workbooks.Open(f, 0)
- With wb.Sheets("Sheet1")
- arr = .UsedRange
- wb.Close False
- End With
- For i = 2 To UBound(arr)
- s = CStr(arr(i, 1)) & "|" & CStr(arr(i, 2))
- d(s) = arr(i, 3)
- Next
- With sh
- r = .Cells(Rows.Count, 1).End(3).Row
- arr = .[a1].Resize(r, 3)
- ReDim brr(1 To r, 1 To 1)
- For i = 2 To UBound(arr)
- m = m + 1
- s = CStr(arr(i, 1)) & "|" & CStr(arr(i, 2))
- If d.exists(s) Then
- brr(m, 1) = d(s)
- End If
- Next
- .[c2].Resize(m, 1) = brr
- End With
- Application.ScreenUpdating = True
- MsgBox "OK!"
- End Sub
复制代码
|
|