如何通过替换功能改变函数公式

642245525

bgt1982 发表于 2022-5-15 16:47
对的，一个一个替换肯定没有问题，关键是批量操作。

教你一个骚操作，看我的图，原理就是把前后要加的公式分别写在原公式的前后单元格，但注意前面要加引号先转换为文本格式，不然会报错，再用CONCATENATE进行拼接，再将结果复制到原来公式的列粘贴为值，整列选定再三键转换为数组就行，不过你先拿一个公式出来测试一下

bgt1982

642245525 发表于 2022-5-15 17:29
教你一个骚操作，看我的图，原理就是把前后要加的公式分别写在原公式的前后单元格，但注意前面要加引号先 ...

试过了，这一招确实是可以减少一些工作量的，感谢分享！

lss001

Sub 替换普通公式以及数组公式部分()

    For Each rn In Sheet1.UsedRange
        If rn.HasArray Then
            x = rn.FormulaArray
            If IsError(Application.Find("=IFERROR", x)) Then
                rn.FormulaArray = "=IFERROR(" & Right(x, Len(x) - 1) & ","""")"
            End If
        ElseIf rn.HasFormula Then
            x = rn.Formula
            If IsError(Application.Find("=IFERROR", x)) Then
                rn.Formula = "=IFERROR(" & Right(x, Len(x) - 1) & ","""")"
            End If
        End If
    Next
  
End Sub