1、先右键我们的工作表，点击查看代码
2、然后插入代码，代码复制进去就好
3、单击后所属行变色
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Cells.FormatConditions.Delete
With Target.EntireRow.FormatConditions
.Delete
.Add xlExpression, , "TRUE"
.Item(1).Interior.ColorIndex = 7
End With
End Sub
4、单击后行、列均变色
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 8
Target.EntireColumn.Interior.ColorIndex = 8
End Sub
5、右键打开后，直接复制进去代码，直接关闭
6、然后继续关闭这个对话框
7、最后，我们就会发现，任意点击单元格就能将整行变色。录入不同的代码将进行不同的行、列变色
