Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 35 Then Target.Interior.ColorIndex = -4142 Else Target.Interior.ColorIndex = 35
End Sub
亲测OK。
追问兄弟,试了下,效果是这样的,点A1着色,再点B1,B1着色,又点A1,A1恢复原色,再点B1,B1恢复原色。我想要的效果是点A1,A1着色,再点A1,A1无色。