Snasui Excel Forum

Code: Select all

Sub FastDeleteMethod()
    Dim rng As Range, rngFiltered As Range
    Set rng = Range("A2:J500" & Cells(Rows.Count, "A").End(xlUp).Row)
    With rng
        .AutoFilter Field:=1, Criteria1:=0, Operator:=xlOr, Criteria2:="="
        On Error Resume Next
        Set rngFiltered = rng.SpecialCells(xlCellTypeVisible)
        If Err = 0 Then rngFiltered.EntireRow.Delete
        On Error GoTo 0
    End With
End Sub

Code: Select all

    Dim rng As Range, rngFiltered As Range
    Set rng = Range("A2:J500" & Cells(Rows.Count, "A").End(xlUp).Row)
    With rng
        .AutoFilter Field:=1, Criteria1:=0, Operator:=xlOr, Criteria2:="="
        On Error Resume Next
        Set rngFiltered = rng.SpecialCells(xlCellTypeVisible)
       If Err = 0 Then rngFiltered.Delete Shift:=xlUp
        On Error GoTo 0
    End With

Code: Select all

Private Sub CommandButton1_Click()
    With Sheets(1)
        .Range("a2", .Range("a" & .Rows.Count).End(xlUp)) _
            .Resize(, 10).ClearContents
    End With
End Sub

Code: Select all

Sub sbVBS_To_Delete_EntireRow_For_Loop()
Dim iCntr
    For iCntr = 1 To 1 Step 1
        Rows(1).EntireRow.Delete -1
    Next
End Sub

Code: Select all

Dim iCntr As Long, l As Long
With Sheets("Sheet1")
    iCntr = .Range("a" & .Rows.Count).End(xlUp).Row
    For l = iCntr To 2 Step -1
        .Range("a" & l).Resize(, 10).Delete shift:=xlUp
    Next
End With

Code: Select all

With Sheets("Sheet1")
    .Range("a" & .Rows.Count).End(xlUp).Resize(, 10).Delete shift:=xlUp
End With