与SEERRO错误1004 FormulaLocal

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

我的FormulaLocal语法有什么问题？

奇怪的是，使用R.Formula，它的工作，但单元格获取错误＃名称

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