需求：仅将含混合引用公式的单元格标红（修正VBA代码）

需求说明 #

需要实现：仅将公式中至少包含一个混合引用（如=$A$1+$A2）或仅含混合引用（如=$A1+A$2）的单元格标红；纯绝对引用（如=$A$1+$B$2）的单元格不应被标红。

原代码问题 #

现有代码通过InStr(c.Formula, "$")判断是否标红，会把所有带$的单元格（包括纯绝对引用）都标红，不符合需求：

Sub test2()
Dim r As Range
Dim c As Range

Worksheets("Plan1k").Activate
Set r = ActiveSheet.UsedRange
With r
.Interior.ColorIndex = xlNone
End With
For Each c In r
 If InStr(c.Formula, "$") > 0 Then
  c.Interior.ColorIndex = 3
 End If
Next c
End Sub

修正后的代码 #

使用正则表达式精准匹配混合引用模式（$列号行号 或 列号$行号），仅对符合条件的单元格标红：

Sub HighlightMixedReferences()
    Dim r As Range
    Dim c As Range
    Dim regEx As Object
    
    ' 初始化正则对象
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Global = True
    ' 匹配混合引用：$列+行（如$A2） 或 列+$行（如A$2）
    regEx.Pattern = "\$[A-Za-z]+\d+|[A-Za-z]+\$\d+"
    
    ' 定位目标工作表和区域
    With Worksheets("Plan1k")
        .UsedRange.Interior.ColorIndex = xlNone ' 清除原有底色
        For Each c In .UsedRange
            ' 判断单元格是否有公式，且公式中存在混合引用
            If c.HasFormula And regEx.Test(c.Formula) Then
                c.Interior.ColorIndex = 3 ' 标红
            End If
        Next c
    End With
    
    Set regEx = Nothing
End Sub

代码逻辑说明 #

• 正则表达式\$[A-Za-z]+\d+|[A-Za-z]+\$\d+：精准匹配两种混合引用格式
  • \$[A-Za-z]+\d+：匹配列绝对、行相对的引用（如$A2）
  • [A-Za-z]+\$\d+：匹配列相对、行绝对的引用（如A$2）
• 先清除所有单元格底色，避免残留
• 仅对有公式且匹配到混合引用的单元格标红，排除纯绝对、纯相对引用的单元格

内容的提问来源于stack exchange，提问作者José Carlos