存在问题

不易一眼看出当前选中的表格。

效果

实现后的效果，如下图所示。

方法

参考下图。将以下代码粘贴至相应位置。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowRange As Range
    Dim colRange As Range
    Dim activeCell As Range
    
    ' 获取当前活动单元格
    Set activeCell = Target.Cells(1, 1)
    Set rowRange = Rows(activeCell.Row)
    Set colRange = Columns(activeCell.Column)
    
    ' 清除所有单元格的背景色
    Cells.Interior.ColorIndex = xlNone
    
    ' 设置统一绿色（可以根据需要调整 RGB 参数）
    Dim highlightColor As Long
    highlightColor = RGB(144, 238, 144) ' 浅绿色

    ' 设置整行和整列的颜色
    rowRange.Interior.Color = highlightColor
    colRange.Interior.Color = highlightColor
End Sub

如果想只高亮选中的单元格，可将代码更为：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 先清除整张表的所有背景色（强制变为白色）
    Me.Cells.Interior.Color = RGB(255, 255, 255)

    ' 高亮当前选中的单元格（第一个）
    Target.Cells(1, 1).Interior.Color = RGB(144, 238, 144) ' 浅绿色
End Sub