Question : delete rows in excel vba code
Answered by : attractive-anaconda-auyq8jrkli4a
Sub DeleteRowswithSpecificValue()
For i = Selection.Rows.Count To 1 Step -1
If Cells(i, 2).Value = "Printer" Then
Cells(i, 2).EntireRow.Delete
End If
Next i
End SubSource : https://trumpexcel.com/vba-delete-row-excel/ | Last Update : Tue, 05 May 20
Question : excel vba delete empty rows
Answered by : vastemonde
' Deletes empty rows
dim rRange As Range, rowsCount As Long, i As Long
Set rRange = ActiveSheet.Range("A1:B100")
rowsCount = rRange.rows.Count
For i = rowsCount To 1 Step -1 If WorksheetFunction.CountA(rRanges.rows(i)) = 0 Then rRange.rows(i).Delete End If
NextSource : https://stackoverflow.com/questions/9379673/excel-vba-delete-empty-rows | Last Update : Tue, 16 Feb 21
Question : excel delete ever other vba
Answered by : bright-booby-9qimryuf2eaw
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 SubSource : https://trumpexcel.com/delete-every-other-row-excel/ | Last Update : Tue, 09 Feb 21