自动突出显示代码

我从谷歌这个代码。 我想知道如何才能使代码不会删除用户所做的以前或新的突出显示。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 With Target ' Highlight the entire row and column that contain the active cell .EntireRow.Interior.ColorIndex = 36 .EntireColumn.Interior.ColorIndex = 36 End With Application.ScreenUpdating = True End Sub 

Answer 1

删除这一行：

 Cells.Interior.ColorIndex = 0