VBA delete multiple row in excel

Question

I need help with this code, how can I make it do delete multiple row of number? Should I use \"And\" function ?

Thanks

Sub remove_rows()

    Dim rad A         


        

Answer 1

Consider:

Sub remove_rows()

    Dim rad As Long, rrad As Long
    Dim Sheet1 As Worksheet

    Set Sheet1 = Worksheets("Export Worksheet")

    Application.ScreenUpdating = False

    'Which row do u want to start with?
    rrad = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

    'Loop row that delete all row in Sheet1 that contain number 2265174

    For rad = rrad To 1 Step -1
        If Sheet1.Cells(rad, 1).Text = "2265174" Then
            Rows(rad).Delete
        End If
    Next rad

    Application.ScreenUpdating = True

End Sub

Note:

• use Long rather than Integer
• run the loop backwards
• use .Text to catch both numeric and text values