使用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" & ")"