打开Excel文件,按alt+F11,双击要使用此功能的Sheet名,并将以下代码粘贴到右侧空白区域。

2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.EntireColumn.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    If Target.EntireRow.Address = Target.Address Then
        Cells.Interior.ColorIndex = xlNone
        Exit Sub
    End If
    Cells.Interior.ColorIndex = xlNone
    Rows(Selection.Row & “:” & Selection.Row + Selection.Rows.Count – 1).Interior.ColorIndex = 3
    Columns(Selection.Column).Resize(, Selection.Columns.Count).Interior.ColorIndex = 3
End Sub

使用效果如下:

1

以下为颜色参考:
3   红色
6   黄色
10  绿色
11  深蓝色
14  青色
18  梅红色
21  深紫色