Excel VBA实现显示带A列对应参数名的单元格公式

效果参考 #

需求说明 #

• 提取指定单元格内的公式文本
• 将公式中的单元格引用，自动替换为被引用单元格所在行A列对应的参数名称，输出可读性更强的公式描述
• 原有自定义函数仅能返回带原始单元格引用的公式，无法完成自动替换逻辑，原有代码如下：

Function GetFormula(Cell As Range) As String
   GetFormula = Cell.Formula
End Function

可用实现代码 #

以下代码采用正则匹配单元格引用，自动适配绝对/相对/混合引用场景，无需手动加载额外依赖，直接粘贴即可使用：

Function GetFormulaWithParam(Cell As Range) As String
    Dim regEx As Object, matches As Object, match As Object
    Dim rawFormula As String, targetRow As Long, targetCol As Long
    Dim refCell As Range, i As Long
    
    ' 正则对象后期绑定，无需手动添加库引用
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    regEx.Pattern = "\$?[A-Z]{1,3}\$?\d+" ' 匹配所有A1样式引用，支持带$的各类引用格式
    
    ' 目标单元格无公式时直接返回单元格值
    If Not Cell.HasFormula Then
        GetFormulaWithParam = Cell.Value
        Exit Function
    End If
    
    rawFormula = Cell.Formula
    Set matches = regEx.Execute(rawFormula)
    
    ' 倒序替换避免文本位置偏移导致匹配错误
    For i = matches.Count - 1 To 0 Step -1
        Set match = matches(i)
        ' 清除引用中的$符号，定位实际单元格
        Set refCell = Cell.Worksheet.Range(Replace(match.Value, "$", ""))
        ' 对应行A列有参数名时才执行替换，否则保留原引用
        If Trim(refCell.Offset(0, 1 - refCell.Column).Value) <> "" Then
            rawFormula = Left(rawFormula, match.FirstIndex) & _
                        Trim(refCell.Offset(0, 1 - refCell.Column).Value) & _
                        Mid(rawFormula, match.FirstIndex + match.Length + 1)
        End If
    Next i
    
    GetFormulaWithParam = rawFormula
    Set regEx = Nothing
End Function

使用方法 #

1. 按Alt+F11快捷键打开VBA编辑器，在左侧工程栏右键点击当前工作簿，选择「插入」-「模块」
2. 将上述代码完整粘贴到打开的模块代码窗口中，关闭VBA编辑器回到Excel界面
3. 直接在需要展示公式的单元格调用函数即可，例如要在D4展示B4替换完参数名的公式，输入=GetFormulaWithParam(B4)即可生效

注意事项 #

• 若被引用的单元格对应行A列未填写参数名，函数会自动保留原始单元格引用，不会出现替换异常
• 自动适配绝对引用（$A$1）、混合引用（$A1/A$1）、相对引用（A1）三类常见单元格引用格式
• 若传入的目标单元格本身没有公式，函数会直接返回该单元格的实际值

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