Vlookup Across Sheet Type Mismatch（VBA）

Question

特定のセル（J2：O2）にvlookupを挿入しようとしていますが、タイプの不一致が続きます。なぜ私は私の人生のために理解することはできません。ここで私は、現在持っているコードです：私はApplication.WorksheetFunction.Vlookupを

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 

を使用する必要がありますし、代わりにVLOOKUP関数の結果を格納するバリアントを定義しますか？

Answer 1

次のように、Parent_Lookup後.Addressを追加します。@ScottCranerあたり.Address(1, 1, xlA1, True)を含めるように

編集

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 

別のオプションではなくRangeのStringとしてParent_Lookupを宣言することです：

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