R1B1のR1C1をダイナミックレンジと組み合わせる

Question

にvlookupを使用し、D3と最後の行と最後の列のセルとの間のすべてのセルにsheets("formula")のセルを自動入力しようとしています。ルックアップ値はsheets("combined")にあり、ダイナミックレンジは数値または行数で表示されます。ここに私のコードは、これまでのところです：

Sub Vlookup() 
    Dim lastcol As Integer 
    With Sheets("Formula") 
     lastcol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
    End With 

    Dim lastrow As Long 
    With Sheets("Formula") 
     lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    Dim comlast As Long 
    With Sheets("Combined") 
     lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    Sheets("Formula").Range("D2").FormulaR1C1 = "=IFERROR(VLOOKUP(RC3&"" | ""&R1C,Combined!R2C3:R" & comlast & "C4, 2, FALSE),"" "")" 
    Sheets("Formula").Range("D2").AutoFill Destination:=Sheets("Formula").Range("D2:D" & lastrow), Type:=xlFillDefault 
    Sheets("Formula").Range("D2:D" & lastrow).AutoFill Destination:=Sheets("Formula").Range(Cells(2, "D"), Cells(lastrow, lastcol)), Type:=xlFillDefault 
End Sub 

私は実行時エラー「1004」取得しています：アプリケーション定義またはオブジェクト定義のエラーを。

どのような援助が

Answer 1

をいただければ幸い私は次のように変更します

あなたがlastrow`代わりcomlast `の` assingingされている第三 `WITH`ブロックで

Dim comlast As Long 
With Sheets("Combined") 
    Comlast = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 

そして

With Sheets("Formula") 
    .Range("D2").FormulaR1C1 = "=IFERROR(VLOOKUP(RC3&"" | ""&R1C,Combined!R2C3:R" & comlast & "C4, 2, FALSE),"" "")" 
    .Range("D2").AutoFill Destination:=.Range("D2:D" & lastrow), Type:=xlFillDefault 
    .Range("D2:D" & lastrow).AutoFill Destination:=.Range(Cells(2, "D"), .Cells(lastrow, lastcol)), Type:=xlFillDefault 
End With