将 Vlookup() 与 VBA 一起使用

Question

我一直收到

的错误

Object Required

运行我的语法。这是我的语法，但没有成功。如何将 Vlookup() 值写入当前工作表单元格 T1？

Public Sub Test()
  Dim dblInfo
  dblInfo = Application.WorksheetFunction.VLookup("A2", Sheet1.Range("A2:F171"), 4, False)
  Range("T1").Select
  ActiveCell.FormulaR1C1 = dblInfo
End Sub

Answer 1

如果你只是想将VLookup公式输入到T1

Range("T1") = "=VLookup(A2, Sheetname!A2:F171, 4, False)"

否则，如果你想计算VLookup然后直接输入结果...

Range("T1") = Application.WorksheetFunction.VLookup([A2], Sheetname.Range("A2:F171"), 4, False)

将 Vlookup() 与 VBA 一起使用

Use Vlookup() With VBA

excel

vba

worksheet-function

vlookup

excel-2013