右擊工作表,選擇查看代碼,彈出VBA界面,直接將下邊代碼復制粘貼過來,最后關閉VBA界面即可。
代碼如下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Target.Count > 1 Then Set Target = Target.Cells(1)
Target.EntireColumn.Interior.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 6
End Sub

致敬原創:
