|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
改成这样,用A列的去匹配。
Sub test()
Dim i1, i2 As Variant
Dim dic As Object
Dim arr, brr
Dim wb1, wb2 As Workbook
Dim twb As String
twb = ThisWorkbook.Name
Set wb1 = Workbooks(twb)
wb1.Activate
Set dic = CreateObject("scripting.dictionary")
wb1.Sheets(1).Select
arr = wb1.Sheets(2).Range("a1:d" & Range("a65536").End(3).Row)
brr = wb1.Sheets(1).Range("a10:e" & Range("a65536").End(3).Row)
For i1 = 1 To UBound(arr)
dic(arr(i1, 1)) = Array(arr(i1, 2), arr(i1, 4))
Next i1
For i = 1 To UBound(brr)
If dic.exists(brr(i, 1)) Then
brr(i, 3) = dic(brr(i, 1))(0)
brr(i, 5) = dic(brr(i, 1))(1)
Else
brr(i, 3) = ""
brr(i, 5) = ""
End If
Next
wb1.Sheets(1).Range("a10:e" & Range("a65536").End(3).Row) = brr
Set dic = Nothing
|
评分
-
1
查看全部评分
-
|