按Alt+F11键调出VBA窗口,在ThisWorkBook编辑区输入以下代码,然后保存:
objectivec
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

保存后的效果
