如何在Excel中用通配符批量修正公式对raw_values表的行引用？

问题原因 #

你之前的通配符写法错误：Excel的Replace功能里，(*)不是分组匹配，而是字面量匹配括号字符，??仅匹配两个任意字符，完全无法匹配raw_values!D21这类单元格引用的格式，所以替换失效。

推荐解决方案：使用正则表达式精准匹配 #

正则可以精准识别raw_values!列字母+行号的格式，替换行号为36，同时保留列标识，且不会误替换公式中的其他数字。以下是无需额外引用库的Late Binding代码：

Sub FixRawValuesReferences()
    Dim targetRng As Range
    Dim cell As Range
    Dim regEx As Object
    Dim updatedFormula As String
    
    ' 指定processed_values工作表中需要处理的范围（这里用UsedRange，可按需修改）
    Set targetRng = ThisWorkbook.Worksheets("processed_values").UsedRange
    ' 创建正则表达式对象
    Set regEx = CreateObject("VBScript.RegExp")
    
    With regEx
        .Global = True ' 匹配所有符合条件的引用
        ' 正则模式：匹配raw_values! + 列字母（大小写） + 任意数字行号
        .Pattern = "(raw_values!)([A-Za-z]+)\d+"
    End With
    
    ' 遍历每个单元格处理公式
    For Each cell In targetRng
        If cell.HasFormula Then
            ' 替换行号为36：$1保留raw_values!，$2保留列字母，拼接36
            updatedFormula = regEx.Replace(cell.Formula, "$1$236")
            cell.Formula = updatedFormula
        End If
    Next cell
End Sub

备选方案：使用Excel原生Replace（需谨慎） #

如果不想用正则，可尝试用Excel的通配符替换，但这种方法可能误替换公式中其他包含raw_values!和数字的内容，仅适用于公式结构简单的场景：

Sub FixWithNativeReplace()
    Dim targetRng As Range
    Set targetRng = ThisWorkbook.Worksheets("processed_values").UsedRange
    
    ' 替换raw_values!后接列字母+任意行号的格式为raw_values!列字母36
    targetRng.Replace What:="raw_values!*#", Replacement:="raw_values!$136", _
                      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End Sub

关键说明 #

• 正则方法的优势：精准匹配单元格引用格式，避免误替换公式中的其他数字或文本。
• 执行代码前，确保processed_values工作表已选中或代码中明确指定工作表，避免处理错误范围。

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