-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
VBA delete rows
- Thread starter Tom F
- Start date
VoG
Legend
- Joined
- Jun 19, 2002
- Messages
- 63,650
Try
Code:
Sub delw6()
Dim LastRow As Long, i As Long
LastRow = Sheets("Sheet1").Cells(Rows.Count, 23).End(xlUp).Row
Application.Calculation = xlManual
Application.ScreenUpdating = False
For i = LastRow To 2 Step -1
With Sheets("Sheet1")
If .Cells(i, 23).Value = 6 Then .Rows(i).EntireRow.Delete
End With
Next i
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Upvote
0
Richard Schollar
MrExcel MVP
- Joined
- Apr 19, 2005
- Messages
- 23,707
Hi Tom
Depending on the number of rows that are likely to require deletion, then Autofilter has the potential to be significantly faster than looping:
Depending on the number of rows that are likely to require deletion, then Autofilter has the potential to be significantly faster than looping:
Code:
Sub Del_6()
With Columns("W")
.AutoFilter field:=1, Criteria1:=6
.Resize(Rows.Count - 1).Offset(1).EntireRow.Delete
End With
ActiveSheet.AutoFilterMode = False
End Sub
Upvote
0
