使用VBA-Excel将公式写入单元格时出现1004错误

Question

我正在尝试使用VBA将公式写入单元格。下面的代码摘录提供了正确的公式，并带有正确的参考。但我不断收到1004运行时错误。我无法弄清楚是什么触发它。希望这段代码摘录足以揭示答案，但如果你需要更多的问题。

Set rg_sheet = ActiveWorkbook.Worksheets("RUNGLANCE") 
    for colNo = 2 to 8 
    for rowNo = 3 to 27 
    daySheetName = Cells(1,colNo) 
    rg_sheet.cells(rowNo,ColNo).formula = "=VLookUp(" & Chr(34) & "$A" & rowNo & Chr(34) & "), " & daySheetName & "!(" & chr(34) & "$A$3:$B$27" & Chr(34) & ", 2, False" 
    next rowNo 
    next colNo 

Answer 1

而不是

rg_sheet.cells(rowNo,ColNo).formula = "=VLookUp(" & Chr(34) & "$A" & rowNo & Chr(34) & "), " & daySheetName & "!(" & chr(34) & "$A$3:$B$27" & Chr(34) & ", 2, False" 

尝试

rg_sheet.Cells(rowNo, colNo).Formula = "=VLookUp($A" & rowNo & ", " & daySheetName & "!" & "$A$3:$B$27" & ", 2, False" & ")"