如何用VBA批量将MyCustomFunction替换为指定Excel公式

以下是修正后的完整VBA脚本，可直接实现批量替换需求：

Sub BatchReplaceCustomFunction()
    Dim ws As Worksheet
    Dim cell As Range
    Dim regex As Object
    Dim match As Object
    Dim originalFormula As String
    Dim newFormula As String
    
    ' 指定要处理的工作表，可改为Sheets("你的工作表名称")
    Set ws = ActiveSheet
    ' 创建正则表达式对象（无需额外引用）
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 正则模式：匹配@MyCustomFunction(参数1, 参数2, 参数3)，兼容参数前后的空格
    regex.Pattern = "=@MyCustomFunction\((.*?)\s*,\s*(.*?)\s*,\s*(.*?)\)"
    regex.Global = False ' 每个单元格仅匹配一次
    
    ' 遍历所有包含公式的单元格，提升处理效率
    For Each cell In ws.UsedRange.SpecialCells(xlCellTypeFormulas)
        originalFormula = cell.Formula
        ' 检查当前单元格公式是否匹配目标自定义函数
        If regex.Test(originalFormula) Then
            Set match = regex.Execute(originalFormula)(0)
            ' ********** 替换逻辑可按需调整 **********
            ' 若需复用原自定义函数的参数到新公式，取消下面注释并修改：
            ' newFormula = "=IF(COUNT(" & match.Groups(1).Value & ")=3, " & match.Groups(2).Value & "+1, " & match.Groups(3).Value & "*100)"
            ' 若使用固定公式，保留下面这行：
            newFormula = "=IF(COUNT(xval)=3, yval+1, target*100)"
            ' 更新单元格公式
            cell.Formula = newFormula
        End If
    Next cell
    
    MsgBox "批量替换完成！"
End Sub

关键问题修正说明 #

• 单元格遍历：原代码未实现单元格读取逻辑，这里用UsedRange.SpecialCells(xlCellTypeFormulas)仅遍历有公式的单元格，避免无意义的遍历，提升效率。
• 正则模式修正：你原正则匹配7个参数，但实际自定义函数只有3个，修正后的模式精准匹配3个参数，还添加了\s*处理参数前后的空格，避免因格式差异导致匹配失败。
• VBA语法纠错：
  • VBA注释用单引号'，而非C#的//
  • 正则分组访问用match.Groups(索引)，而非Groups[索引]
  • 使用CreateObject创建正则对象，无需手动勾选VBScript正则引用，兼容性更强
• 替换逻辑优化：提供两种替换方式——固定公式或复用原函数参数，按需切换即可。

内容的提问来源于stack exchange，提问作者Snake Eyes