聚光灯

方法一：条件格式
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' If Target.Count > 1 Then Exit Sub
' Sheet1.Cells.FormatConditions.Delete
'
'
' Set rng1 = Sheet1.Cells.FormatConditions.Add(xlExpression, Formula1:="=column()=" & Target.Column)
' rng1.Interior.Color = RGB(255, 255, 153)
' rng1.StopIfTrue = False
'
' Set rng2 = Sheet1.Cells.FormatConditions.Add(xlExpression, Formula1:="=row()=" & Target.Row)
' rng2.Interior.Color = RGB(255, 255, 153)
' rng2.StopIfTrue = False
'
' Set intersectRng = Sheet1.Cells.FormatConditions.Add(xlExpression, Formula1:="=AND(column()=" & Target.Column & ", row()=" & Target.Row & ")")
' intersectRng.Interior.Color = RGB(255, 255, 255) ' 白色
' intersectRng.SetFirstPriority
'
'End Sub

方法二：上色
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' On Error Resume Next
' Application.ScreenUpdating = False
' Cells.Interior.ColorIndex = -4142 '取消原色
' Rows(Target.Row).Interior.ColorIndex = 17 '整行着色
' Columns(Target.Column).Interior.ColorIndex = 17 '整列着色
' Range("A1:W1").Interior.ColorIndex = 43 '首行header复原
' Application.ScreenUpdating = True
' End Sub