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

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

1 个答案: