使Excel高亮显示选中表格（使选中的表格更加突出）

存在问题

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

效果

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

方法

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim rowRange As RangeDim colRange As RangeDim 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 LonghighlightColor = RGB(144, 238, 144) ' 浅绿色' 设置整行和整列的颜色rowRange.Interior.Color = highlightColorcolRange.Interior.Color = highlightColor
End Sub