当我运行下面的宏时，出现“运行时错误'1004'：应用程序定义或对象定义的错误。”

Question

我是这个新手。我相信它的语法相关。感谢任何帮助！奇怪的是，我有相同的代码在同一工作簿中的另一个模块中工作。我将它复制到这个宏并简单地改变了单元格引用。

调试突出显示了开始的代码行...“Range（”O2：O“& EndRow）”。

Excel宏代码：

Sub insertsubmissionformulas() 
    ' 
    ' insertsubmissionformulas Macro 
    ' 
    Sheets("Client").Select 
    With ThisWorkbook.Worksheets("Client") 
    EndRow = .Cells(.Rows.Count, "N").End(xlUp).Row 
    Range("O2:O" & EndRow).Formula = "=IF(ISBLANK(N2),"",INDEX(Historical!$C:$C,MATCH(N2,Historical!L:L,0)))" 
    End With 
    ' 
End Sub 

Answer 1

需要四个报价，以显示你的公式为空白，而不是两个双引号。 "=IF(ISBLANK(N2),"""",INDEX(Historical!$C:$C,MATCH(N2,Historical!L:L,0)))"