如何用Conditional Format自动高亮UsedRange中的多行选中行？

原代码仅支持单行选中时的高亮，要实现按住Ctrl多选单元格所在行的高亮，核心是修改条件格式的判断公式，同时优化代码避免重复添加格式规则。以下是修改后的完整代码：

Sub Highlight_active_Rows()
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim rng As Range
    Dim cf As FormatCondition
    
    ' 清除已有的同名条件格式，避免重复添加
    Set rng = ws.UsedRange.Resize(ws.UsedRange.Rows.Count - 2).Offset(2)
    For Each cf In rng.FormatConditions
        If cf.Type = xlExpression And cf.Formula1 = "=ISNUMBER(MATCH(ROW(),CELL(""Row""),0))" Then
            cf.Delete
        End If
    Next cf
    
    ' 添加新的条件格式
    With rng
        .FormatConditions.Add Type:=xlExpression, Formula1:="=ISNUMBER(MATCH(ROW(),CELL(""Row""),0))"
        .FormatConditions(rng.FormatConditions.Count).SetFirstPriority
        .FormatConditions(1).Interior.Color = RGB(250, 190, 142)
        .FormatConditions(1).StopIfTrue = False
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 触发重新计算，让条件格式更新
    Me.Calculate
End Sub

关键改动说明： #

• 公式修改：把原公式=ROW()=CELL("Row")替换为=ISNUMBER(MATCH(ROW(),CELL("Row"),0))。当按住Ctrl多选单元格时，CELL("Row")会返回包含所有选中行的数组，MATCH函数可判断当前行是否在这个数组中，从而实现多行高亮。
• 清除旧格式：添加循环清除已存在的相同条件格式，避免每次运行代码都新增规则导致格式冲突。
• 触发计算：将Me.Range("A1").Calculate改为Me.Calculate，确保整个工作表的条件格式都能更新，稳定性更强。

使用说明： #

1. 打开Excel，按Alt+F11打开VBA编辑器；
2. 双击目标工作表（左侧工程窗口中）；
3. 粘贴上述代码；
4. 返回工作表，执行一次Highlight_active_Rows宏，之后选中任意单元格（支持Ctrl多选），对应行就会自动高亮。

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