点击高亮显示工作表代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Columns().Interior.ColorIndex = 0

    x = ActiveCell.Column

    Columns(x).Interior.ColorIndex = 36

    y = ActiveCell.Row

    Rows(y).Interior.ColorIndex = 36

End Sub