本帖最后由 wenzili 于 2017-4-11 09:36 编辑
是要删除55行以后的整行?试试这样是否快些。
Public Sub master()
Dim sht As Worksheet
Dim lMaxrows As Long
Dim lMaxusedrows As Long
lMaxrows = Cells.Rows.Count
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each sht In Worksheets
If sht.Name <> "目录" Then
With sht
lMaxusedrows = .Cells(lMaxrows, 1).End(xlUp).Row
If lMaxusedrows >= 55 Then
.Range(.Cells(55, 1), .Cells(lMaxusedrows, 1)).EntireRow.Delete
End If
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub