vba excel delete every other row
Sub Delete_Even()
Application.ScreenUpdating = False
lr = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
If lr Mod 2 = 0 Then
Else
lr = lr - 1
End If
For i = lr To 1 Step -2
Rows(i & ":" & i).Delete Shift:=xlUp
Next i
Application.ScreenUpdating = True
End Sub
4
7
Sub Delete_Every_Third_Row()
Dim Rng As Range
Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8)
For i = Rng.Rows.Count To 1 Step -3
If i Mod 3 = 0 Then
Rng.Rows(i).Delete
End If
Next i
End Sub
Thank you!
7
4
(7 Votes)
0
Are there any code examples left?
New code examples in category VBA
Relative searches
excel vba delete rows
delete entire row vba excel
vba loop delete row
excel vba select rows and delete
how to delete the entire row in excel vba
vba delete row for loop
vba excel macro delete row
find and delete rows in excel using vba
excel comment delete vba
excel vba delete coluns
excel delete rows vba
delete rows excel vba
excel vba delete all rows after certain row
excel vba delete every other row in table
if then delete row vba excel
vba delete row in word table
delete content excel vba
vba delete row
vba delete entire row
vba excel delete row
delete specific row vba
vba delete row with loop
vba excel delete every other row
