Excel VBA Macro: Delete Rows (Based on Cell Values in Multiple Columns)

Subscribe:    / @greggowaffles  

Code:
Sub delete_rows_based_on_multi_col()

Dim row_count As Long
Dim i As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Countries")

ws.Activate
row_count = ws.Cells(Rows.count, "A").End(xlUp).Row

i = 2

Do While i = row_count

If Cells(i, 6) = "" _
Or Cells(i, 10) = "" _
Or Cells(i, 5) 10000 Then

Rows(i).EntireRow.Delete
i = i 1
row_count = row_count 1
End If

i = i + 1

Loop

End Sub

#excelmacro #excelvba