让Excel像WPS一样点击行列就可以高亮

Alt + F11， 选择TihsWorkbook粘贴代码并保存即可。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Cells.FormatConditions.Delete
    iColor = 40
    With Target.EntireRow.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = iColor
    End With
    With Target.EntireColumn.FormatConditions
        .Delete
        .Add xlExpression, , "TRUE"
        .Item(1).Interior.ColorIndex = iColor
    End With
End Sub