Excel vba 語法錯誤公式值

Question

我正在嘗試用公式填充表格，但我無法獲得最后一行。 P列要完成的第一行是11，然后根據要填充的行數（fyrowCount），我希望它每次增加1。

如果我使用以下公式，它可以工作，但無法找出 vba 中的正確語法。

公式=IFERROR(INDIRECT("'"&[Item ID'#]&"'!$P$" & 11), "")

Application.AutoCorrect.AutoFillFormulasInLists = False

    If WorksheetFunction.CountA(Range("Table35[Item ID'#]")) = 0 Then
        'Range is empty!

            For y = 2 To fyrowCount + 1
                Range("A" & y).Select
                Z = 9 + y
                Cells(ActiveCell.Row, 1) = wsName
                Cells(ActiveCell.Row, 2).Value = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$7""), """")"
                Cells(ActiveCell.Row, 3).Value = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$6""), """")"
                Cells(ActiveCell.Row, 4).Value = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$8""), """")"
                Cells(ActiveCell.Row, 5).Value = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$9""), """")"
                Cells(ActiveCell.Row, 6).Value = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$P$"" & z), """")"

            Next y
    End If

Answer 1

像這樣交換Formula Value ： Cells(ActiveCell.Row, 2).Formula =

---

另請注意，您的Range或Cells對象均不符合工作表的要求。 這可能有問題。 我強烈建議明確說明這些對象的位置。 ( Sheets("x").Cells(y, 1) = wsName )。

此外，你並不需要.Select這里，如下所示細胞。

Application.AutoCorrect.AutoFillFormulasInLists = False

    If WorksheetFunction.CountA(Range("Table35[Item ID'#]")) = 0 Then
            For y = 2 To fyrowCount + 1
              Z = 9 + y
                Cells(y, 1) = wsName
                Cells(y, 2).Formula = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$7""), """")"
                Cells(y, 3).Formula = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$6""), """")"
                Cells(y, 4).Formula = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$8""), """")"
                Cells(y, 5).Formula = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$G$9""), """")"
                Cells(y, 6).Formula = "=IFERROR(INDIRECT(""'""&[Item ID'#]&""'!$P$"" & z "), """")"
            Next y
    End If