自动突出显示代码

Question

我从谷歌获得此代码。我想知道如何才能使代码不会删除用户先前或新的突出显示。

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