如何仅高亮表格范围内的多选中行而非整个工作表行？

要实现只高亮选中单元格所在的表格区域内的行（而非整个工作表行），可以通过修改VBA代码，定位表格范围后仅对表格内对应行设置高亮，同时适配多单元格选中场景。以下是调整后的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tbl As ListObject
    Dim intersectRange As Range
    Dim tblRows As Range
    
    ' 替换为你的表格实际名称，比如"Table1"
    Set tbl = Me.ListObjects("Table1")
    
    Application.ScreenUpdating = False
    
    ' 先清除表格内所有行的高亮，恢复默认填充色
    If Not tbl.DataBodyRange Is Nothing Then
        tbl.DataBodyRange.Interior.ColorIndex = xlColorIndexNone
    End If
    
    ' 检查选中区域是否和表格数据区域有交集
    Set intersectRange = Intersect(Target, tbl.DataBodyRange)
    If Not intersectRange Is Nothing Then
        ' 获取交集对应的表格行范围
        Set tblRows = tbl.DataBodyRange.Rows(intersectRange.Row - tbl.DataBodyRange.Row + 1)
        ' 设置高亮颜色（沿用你原代码的ColorIndex 36）
        tblRows.Interior.ColorIndex = 36
    End If
    
    Application.ScreenUpdating = True
End Sub

代码说明 #

• 用ListObjects("表格名称")指定目标表格，表格名称可在Excel「表格设计」选项卡中查看，记得替换成你实际的表格名。
• 每次选中变化时先清除表格内的旧高亮，避免颜色残留。
• 通过Intersect判断选中区域是否落在表格数据范围内，仅处理有效交集部分。
• 计算行偏移量精准定位表格内的对应行，只高亮表格区域内的行，而非整个工作表行。

补充提示 #

如果表格为空（无数据行），DataBodyRange会返回空值，代码里的判断语句可以避免触发报错；你也可以根据需求修改ColorIndex值，或者改用RGB(255,255,0)这类RGB颜色代码自定义高亮色。

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