嘿，你完全不用纠结正则表达式！Excel的VBA其实自带了更简单的解决方案——直接利用Excel的计算引擎来帮你算出那些表达式的值，根本不用自己写复杂的解析逻辑。

核心思路 #

我们只需要做这几步：

• 从原公式里提取出UDF的参数部分
• 把每个参数表达式拆分开
• 用Excel的Application.Evaluate计算每个表达式的结果
• 把计算后的数值重新拼回公式里

具体实现代码 #

下面是一个可以直接用的VBA宏，你可以根据自己的需求调整目标单元格和UDF名称：

Sub SimplifyMySampleUDFParams()
    Dim targetCell As Range
    Dim originalFormula As String
    Dim udfName As String
    Dim openParenPos As Integer, closeParenPos As Integer
    Dim paramsPart As String
    Dim paramsArray() As String
    Dim simplifiedParams As String
    Dim i As Integer
    Dim paramExpr As String
    Dim paramValue As Variant
    
    ' 1. 设置要处理的目标单元格（可改成你需要的范围，比如Range("A1:A10")）
    Set targetCell = ActiveSheet.Range("A1")
    originalFormula = targetCell.Formula
    
    ' 2. 指定你的UDF名称
    udfName = "MySampleUDF"
    
    ' 3. 定位UDF的参数区域（找到左括号和右括号的位置）
    openParenPos = InStr(originalFormula, udfName & "(") + Len(udfName) + 1
    closeParenPos = InStrRev(originalFormula, ")")
    
    ' 检查是否找到合法的UDF公式
    If openParenPos > Len(udfName) + 1 And closeParenPos > openParenPos Then
        ' 提取括号内的参数部分
        paramsPart = Mid(originalFormula, openParenPos, closeParenPos - openParenPos)
        
        ' 4. 拆分每个参数
        paramsArray = Split(paramsPart, ",")
        
        ' 5. 逐个计算参数表达式的值
        simplifiedParams = ""
        For i = LBound(paramsArray) To UBound(paramsArray)
            paramExpr = Trim(paramsArray(i)) ' 去除参数前后的空格
            paramValue = Application.Evaluate(paramExpr) ' 让Excel计算表达式
            
            ' 把计算结果拼接到新参数字符串里
            simplifiedParams = simplifiedParams & paramValue & ","
        Next i
        
        ' 去掉最后多余的逗号
        simplifiedParams = Left(simplifiedParams, Len(simplifiedParams) - 1)
        
        ' 6. 生成简化后的公式并写入单元格
        Dim newFormula As String
        newFormula = Left(originalFormula, openParenPos - 1) & simplifiedParams & Right(originalFormula, Len(originalFormula) - closeParenPos + 1)
        targetCell.Formula = newFormula
    Else
        MsgBox "目标单元格中没有找到 " & udfName & " 的公式哦！"
    End If
End Sub

为什么这个方法更简便？ #

• 不用自己解析表达式：Application.Evaluate是Excel原生的计算工具，能处理所有合法的Excel算术表达式（包括单元格引用、函数嵌套等，不止是简单的加减），比正则表达式靠谱多了。
• 代码逻辑清晰：从提取到计算再到拼接，每一步都很直观，后期维护也方便。
• 可扩展性强：如果要处理多个单元格或者其他UDF，只需要修改targetCell和udfName两个变量就行。

注意事项 #

• 如果你的参数里包含单元格引用（比如A1+10），Application.Evaluate会基于目标单元格的上下文自动计算，和原公式的逻辑完全一致。
• 如果参数里有字符串或者非数值表达式，你可能需要加个判断（比如用IsNumeric），但你的例子里都是数值计算，所以直接用就行。

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