你这要求有个避免不了的问题就是 只要单元格目标改变了,那么当前单元格目标的行就会变成黄色,,这是不能避免的,除非你不用单击单元格变色.
看看这个是不是符合你的要求:单击任意一个单元格,这一行就变黄色,如果想取消变黄,再点一下这一行的另外一个单元格就变无色.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.EntireRow.Interior.ColorIndex = 6 Then
Target.EntireRow.Interior.ColorIndex = xlNone
Else
Target.EntireRow.Interior.ColorIndex = 6
End If
End Sub