|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub test()
Dim d, Arr, Brr, r&
Set d = CreateObject("scripting.dictionary")
Arr = ThisWorkbook.Sheets("Sheet3").Range("c1:f" & [c65536].End(3).Row)
Brr = ThisWorkbook.Sheets("Sheet4").Range("g1:j" & ThisWorkbook.Sheets("Sheet4").[g65536].End(3).Row)
For r = 2 To UBound(Brr)
d(Brr(r, 3)) = r
Next
For r = 2 To UBound(Arr)
If d.exists(Arr(r, 1)) Then
Arr(r, 2) = Brr(d(Arr(r, 1)), 4)
Arr(r, 4) = Brr(d(Arr(r, 1)), 1)
' Else
'Arr(r, 2) = ""
'Arr(r, 3) = ""
End If
Next
ThisWorkbook.Sheets("Sheet3").Range("c1").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
Set d = Nothing
End Sub
|
|