【技巧分享】Excel实现聚光灯效果

按Alt+F11键调出VBA窗口，在ThisWorkBook编辑区输入以下代码，然后保存：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Sh.Cells.Interior.ColorIndex = xlNone
Target.EntireColumn.Interior.ColorIndex = 40
Target.EntireRow.Interior.ColorIndex = 40
End Sub

保存后的效果