使用Cells.Range在Excel中插入Vlookup公式時出錯

Question

任何人都可以在下面的以下代碼上為我提供幫助？ 我正在嘗試在工作表中插入Vlookup公式。 但是，我得到了錯誤

應用程序定義或對象定義的錯誤

Sub WriteFormulasInSheet()

Dim lRow As Long


    lRow = Cells(Rows.Count, 1).End(xlUp).Row

    Sheets("Consolidator").Activate
    Cells.Range(Cells(5, 4), Cells(lRow, 4)).Value = "=IFERROR(VLOOKUP(RC[-3],MAP!$N:$P,2,0),"""")"


End Sub

我在代碼中錯過了什么？ 非常感謝您的回復。

Answer 1

您應該使用公式，而不是值。

Cells.Range(Cells(5, 4), Cells(lRow, 4)).FormulaR1C1