VBA高亮选中单元格问题：单个单元格选中时全表高亮

问题原因 #

当选中单个单元格时，Selection.SpecialCells(xlCellTypeVisible)会默认匹配当前工作表所有可见单元格，而非仅选中的那个单元格，这就导致了全表变黄的问题。而选中多个单元格时，SpecialCells会限定在选中范围内查找可见单元格，所以表现正常。

修正后的代码 #

Sub HighlightRangeYellow()
    Dim selectedRange As Range
    Dim visibleRange As Range
    
    ' 保存用户选中的原始区域
    Set selectedRange = Selection
    
    ' 捕获选中区域内的可见单元格（处理全隐藏的异常情况）
    On Error Resume Next
    Set visibleRange = selectedRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 仅对存在的可见单元格执行高亮
    If Not visibleRange Is Nothing Then
        visibleRange.Interior.Color = vbYellow
    End If
End Sub

关键改进点 #

• 明确限定操作范围：先将用户选中的区域赋值给selectedRange，确保SpecialCells只在这个范围内查找可见单元格，不会扩展到全表。
• 错误处理：加入On Error Resume Next和On Error GoTo 0，避免选中区域全为隐藏单元格时触发运行时错误。
• 空值判断：仅当获取到有效可见单元格时才执行填充，避免无效操作。

验证场景 #

• 单个可见单元格选中：仅高亮该单元格。
• 非连续单元格选中（Ctrl+鼠标左键）：仅高亮选中的可见单元格，隐藏的选中单元格不处理。
• 连续单元格选中（Ctrl+Shift+方向键）：仅高亮选中范围内的可见单元格，筛选隐藏的单元格自动跳过。

内容的提问来源于stack exchange，提问作者Julian A O'vega