这段代码有什么问题?不断收到应用程序定义的错误

Question

不断提示应用程序定义的错误，我认为没有任何问题

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=CONCATENATE(""Subtotal for ""& Cells(salesNo - 1, 3).Address)"

Answer 1

ActiveSheet.Cells(salesNo + 1, 5).Formula = _
      "=""Subtotal for "" & " & Cells(salesNo - 1, 3).Address

Answer 2

Excel 中的地址

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&ADDRESS(" & salesNo - 1 & ",3)"

或

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&ADDRESS(" & salesNo - 1 & ",3)"

要摆脱 $ 符号：

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&ADDRESS(" & salesNo - 1 & ",3,4)"

或

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&ADDRESS(" & salesNo - 1 & ",3,4)"

编辑

ActiveSheet.Cells(salesNo + 1, 5).Formula _
    = "=""Subtotal for ""&INDIRECT(ADDRESS(" & salesNo - 1 & ",3,4))"

或

ActiveSheet.Cells(salesNo + 1, 5).Formula = "=" & Chr(34) _
    & "Subtotal for " & Chr(34) & "&INDIRECT(ADDRESS(" & salesNo - 1 & ",3,4))"