Question

我一直收到错误

需要对象

运行我的语法。这是我的语法，但它不成功。如何将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") = Application.WorksheetFunction.VLookup([A2], Sheetname.Range("A2:F171"), 4, False)

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

print len([x for x in list1 if x in list2])

使用Vlookup（）和VBA

1 个答案: