Vba 引用已经有双引号的字符串

我在Excel VBA中遇到问题，它显示运行时错误“1004”

代码如下：

Sub modifyformula()

Dim formla As String

formla = Cells(21, 48).Formula

Cells(21, 48).Formula = "=IF(ISERROR(" & formla & ",," & formla & ")"

End Sub

基本上我想做的是，如果命令告诉VBA加载项=IFISERROR。。。我将告诉VBA更新包含类似公式的每个单元格

单元格中的公式是：=GETPIVOTDATA$AU$6&$AU$19，数据透视表$A$3，月收入，AV$3，渠道2，$AU21

我认为问题是实际公式中的双引号导致了错误，但我不知道如何修复它

---

提前感谢那些可以帮助我的人：。

在连接公式之前，您需要从公式中删除=：

Sub Tester()

    Const NEW_FORM As String = "=IF(ISERROR(<f>),,<f>)"

    Dim f As String, c As Range

    Set c = Cells(21, 48)

    If c.HasFormula Then
        f = Right(c.Formula, Len(c.Formula) - 1)
        c.Formula = Replace(NEW_FORM, "<f>", f)
    End If

End Sub

注意：根据您需要支持的excel版本的不同，IFERRO在这里更易于使用