Excel VBA需求：仅高亮活动单元格左侧及上方单元格（附现有代码）

问题分析 #

你需要将原有高亮整行整列的代码，修改为仅高亮活动单元格同一行左侧所有单元格（从第1列到当前列的左侧一格）和同一列上方所有单元格（从第1行到当前行的上方一格），之前的Range引用写法错误——直接拼接列号和行号会生成无效的单元格地址，VBA无法识别。

修正后的完整代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    
    ' 清除所有单元格背景色
    Cells.Interior.ColorIndex = 0
    
    With Target
        ' 高亮当前单元格左侧（同一行，第1列到当前列前一格）
        If .Column > 1 Then
            Range(Cells(.Row, 1), .Offset(0, -1)).Interior.Color = RGB(241, 227, 238)
        End If
        
        ' 高亮当前单元格上方（同一列，第1行到当前行前一格）
        If .Row > 1 Then
            Range(Cells(1, .Column), .Offset(-1, 0)).Interior.Color = RGB(241, 227, 238)
        End If
    End With
    
    Application.ScreenUpdating = True
End Sub

代码说明 #

• If Target.Cells.Count > 1 Then Exit Sub：避免多选单元格时触发错误
• Application.ScreenUpdating = False/True：关闭再恢复屏幕刷新，消除操作时的闪烁感
• Cells.Interior.ColorIndex = 0：重置所有单元格背景为无色
• Range(Cells(.Row, 1), .Offset(0, -1))：通过Cells指定起始单元格（当前行第1列），用Offset(0,-1)定位到当前单元格左侧一格，形成完整的左侧区域
• 增加If .Column >1和If .Row>1的判断：处理选中第1行或第1列的边界情况，避免因Offset生成无效区域导致报错

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