WorksheetFunction.VLookup或者字典

Sean大大

工作簿A（路线 D:\\）sheet1里面有价格表

现有工作簿B，sheet 1里面有型号目录

如何在不打开A工作簿的情况下，B工作簿打开的情况下，在B列一键生成所有涉及到型号的价格。

tudarong

使用GetObject或者Workbooks.Open都可以实现，上传个附件给你参考下。
附件不是你的例子。

lsc900707

没有附件的提问很少获得满意的解答。

Sean大大

附件已上传。哪位excel大神能帮忙一下代码参考下？

jy03342543

Option Explicit
Sub 匹配()
Dim D As Object
Dim Arr, Brr
Dim A, B As Long
Set D = CreateObject("scripting.dictionary")
Arr = Workbooks("A.xlsx").Worksheets("sheet1").Range("A1").CurrentRegion
Brr = Workbooks("B.xlsx").Worksheets("sheet1").Range("A1:B" & Cells(Rows.Count, "a").End(xlUp).Row)
  For A = 2 To UBound(Arr)
    D.Item(Arr(A, 1)) = Arr(A, 2)
  Next
     For B = 2 To UBound(Brr)
        Brr(B, 2) = D(Brr(B, 1))
    Next
Range("A1").Resize(UBound(Brr), 2) = Brr
End Sub