Question

我正在尝试使用vba将公式插入到工作表的单元格中。我相信可以使用下面的公式来完成，但遗憾的是我不知道如何修复下面的语法。

我的FormulaLocal语法出了什么问题？

奇怪的是，使用R.Formula，它可以工作，但是单元格会收到错误#NAME

   Sub InsertIFERROR()
        Dim R As Range
        Set R = Application.InputBox("Select a range", "Get Range", Type:=8)
        R.Select
        For Each R In Selection.SpecialCells(xlCellTypeFormulas)

            R.FormulaLocal = "=SEERRO(" & Mid(R.FormulaLocal, 2) & ",""-"")"

        Next R
    End Sub

Answer 1

要特别注意Excel的区域版本。 PT-PT版本使用SE.ERRO和分号作为列表分隔符，而PT-BR版本使用SEERRO（通常使用逗号作为列表分隔符）。

Answer 2

试试这个......希望它在你犯错误的地方有效并且有意义。

Sub InsertIFERROR()
    Dim R As Range
    Set R = Application.InputBox("Select a range", "Get Range", Type:=8)
    'R.Select
    For Each rCell In R.SpecialCells(xlCellTypeFormulas)

        rCell.FormulaLocal = "=SEERRO(" & Mid(rCell.FormulaLocal, 2) & ",""-"")"

    Next rCell
End Sub

错误1004 FormulaLocal与SEERRO

2 个答案: