In this video I am showing you how to delete rows based on value or text. The code is the following:
Sub delete_rows()

For i = 2 To Sheets(2).UsedRange.Rows.Count
If Cells(i, 3).Value = "No" Then
Rows(i).EntireRow.Delete
End If
If Cells(i, 3).Value = "No" Then
Rows(i).EntireRow.Delete
End If
Next i

End Sub

свернуть