按住shift键，选择第三行，然后拖到最后选择，成黑色显示后，按下backspace键试试
每次都是提完问题就琢磨出来了。
用CTRL选择要用的工作表，然后就开始删除即可
Sub ShtDel()
Dim r As Long
Dim Sht As Worksheet
Application.DisplayAlerts = False
For Each Sht In Worksheets
i = i + 1
r = Sheets(i).UsedRange.Rows.Count
If r = 2 Then
Sht.Delete
i = i - 1
End If
Next
Application.DisplayAlerts = True
Set Sht = Nothing
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024