问突出显示选定行的VBA将导致整个行的选择

EN

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRowA As Long
Dim tableRow As Long

LastRowA = Range("A" & Rows.Count).End(xlUp).Row

If Target.Cells.Count > 1 Or Target.Cells.Count < 1 Then 'If selected 1 cell
    'Do nothing
Else
    Application.ScreenUpdating = False
    If Target.Row > 10 And Target.Row < LastRowA + 1 Then

        Rows("10:10").Copy 'Restore all rows to custom conditional formatting of row 10
        For tableRow = 11 To LastRowA
            Rows(tableRow & ":" & tableRow).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Next tableRow

        Rows("9:9").Copy 'Highlight active row using formating of row #9
        Rows(Target.Row).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

        Application.CutCopyMode = False
        Target.Cells.Activate 'Return Target to initially selected cell
        Application.EnableEvents = False
        Target.Cells.Select
        Application.EnableEvents = True
    End If
    Application.ScreenUpdating = True
End If

End Sub