Excel 当我运行以下宏时,我得到;运行时错误';1004';:应用程序定义或对象定义错误。”;

Excel 当我运行以下宏时,我得到;运行时错误';1004';:应用程序定义或对象定义错误。”;,excel,vba,Excel,Vba,我是这方面的新手。我相信这是和语法有关的。谢谢你的帮助!奇怪的是,我在同一工作簿的另一个模块中使用了相同的代码。我将它复制到这个宏中,并简单地更改了单元格引用 调试突出显示以…开头的代码行。。。“范围(“O2:O”和尾行)。” Excel宏代码: Sub insertsubmissionformulas() ' ' insertsubmissionformulas Macro ' Sheets("Client").Select With ThisWorkbook.Worksh

我是这方面的新手。我相信这是和语法有关的。谢谢你的帮助!奇怪的是,我在同一工作簿的另一个模块中使用了相同的代码。我将它复制到这个宏中,并简单地更改了单元格引用

调试突出显示以…开头的代码行。。。“范围(“O2:O”和尾行)。”

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

您需要四个引号来显示公式中空白的双引号,而不是两个。
“=IF(ISBLANK(N2),“”,INDEX(Historical!$C:$C,MATCH(N2,Historical!L:L,0))”

公式中需要四个引号,而不是两个引号。
“=IF(ISBLANK(N2),“”,索引(Historical!$C:$C,MATCH(N2,Historical!L:L,0))”

太棒了!谢谢你的帮助!谢谢@RayG。如果您能将此答案标记为已成功回答,将不胜感激。很高兴能帮忙,太好了!谢谢你的帮助!谢谢@RayG。如果您能将此答案标记为已成功回答,将不胜感激。很乐意帮忙。