1、在需要设置此功能的工作簿界面，按下Alt F11键，打开VBA编程界面，双击sheet，输入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 24 Target.EntireColumn.Interior.ColorIndex = 24 End Sub
2、保存后关闭编程界面，回到工作簿，效果实现。
