Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Count = 1 Then
Application.EnableEvents = False
If T.Row = 18 Then Call 删除1
If T.Row = 19 Then Call 删除2
If T.Row = 20 Then Call 删除3
If T.Row = 21 Then Call 删除4
Application.EnableEvents = True
End If
End Sub