Excel VBA Macro: Delete Rows if Cell Does Not Contain a Certain Text (String) Value

Subscribe:    / @greggowaffles  

Code:
Sub delete_all_rows_without_string()

Dim row_count As Long
Dim i As Long
Dim ws As Worksheet
Dim my_string As String

Set ws = ThisWorkbook.Sheets("Sheet1")

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

i = 1

Do While i = row_count

my_string = ws.Cells(i, 1).Text

If InStr(my_string, "hostname") = 0 _
And InStr(my_string, "transport output none") = 0 Then

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

End If

i = i + 1

Loop

End Sub

#excelmacro #excelvba