修改点击所在单元格行列颜色

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 = 9

End With

With Target.EntireColumn.FormatConditions

    .Delete

    .Add xlExpression, , "TRUE"

    .Item(1).Interior.ColorIndex = 9

End With

End Sub