Vlookup跨表格types不匹配（VBA）

我试图插入一个vlookup到特定的单元格（J2：O2），但我不断收到types不匹配。 我不能为了我的生活找出原因。 这是我现在的代码：

Dim Basel_Sheet As Worksheet Set Basel_Sheet = Sheets("Basel 3 EAD") Dim Parent_Lookup As Range Set Parent_Lookup = Sheets("Parent Mapping").Range("B2:E20000") With Basel_Sheet .Cells(2, "J").Formula = "=VLOOKUP(A2," & Parent_Lookup & ",4, False)" ... ... ... (formulas for remaining columns) End With 

我应该使用Application.WorksheetFunction.Vlookup并定义一个变体来存储vlookup结果吗？

Answer 1

在.Address之后添加.Address ，如下所示：

编辑为包含。 .Address(1, 1, xlA1, True)每个@ScottCraner

 Dim Basel_Sheet As Worksheet Set Basel_Sheet = Sheets("Basel 3 EAD") Dim Parent_Lookup As Range Set Parent_Lookup = Sheets("Parent Mapping").Range("B2:E20000") With Basel_Sheet .Cells(2, "J").Formula = "=VLOOKUP(A2," & Parent_Lookup.Address(1, 1, xlA1, True) & ",4, False)" End With 

另一种select是将Parent_Lookup声明为一个String而不是一个Range ：

 Dim Basel_Sheet As Worksheet Set Basel_Sheet = Sheets("Basel 3 EAD") Dim Parent_Lookup As String Parent_Lookup = "'Parent Mapping'!B2:E20000" With Basel_Sheet .Cells(2, "J").Formula = "=VLOOKUP(A2," & Parent_Lookup & ",4, False)" End With