Question

我无法使用此代码。

Worksheets("5200").Activate
Range("a1") = Application.WorksheetFunction.VLookup("b1", ActiveWorkbook.Worksheets("Trial Balance").Range("B:I"), 8, False)

Answer 1

Range("a1") = Application.WorksheetFunction.VLookup([B1], ActiveWorkbook.Worksheets("Trial Balance").Range("B:I"), 8, False)不是范围。虽然我对推荐使用方括号引用犹豫不决，但你可以尝试一下，

with Worksheets("5200")
  .Range("a1") = Application.VLookup(.Range("b1"), _
       .Parent.Worksheets("Trial Balance").Range("B:I"), 8, False)
end with

我相信它会更好，

App_Data

Vlookup到另一个工作表作为WorksheetFunction

1 个答案: