Excel 选中单元格后，对应的行列高亮

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone
    Rows(Target.Row).Interior.ColorIndex = 40
    Columns(Target.Column).Interior.ColorIndex = 40
End Sub