Ta bort rader med innehåll

Här demonstreras hur vi kan ta bort rader (poster) innehållande ett visst värde för data i tabelluppställning.

För att ta bort tomma rader ock kolumner se Ta bort tomma rader och kolumner.

 

Option Explicit  Sub Ta_Bort_Rader_Innehall() '© 2004 Alla rättigheter XL-Dennis    Dim rnData As Range     Application.ScreenUpdating = False      With ActiveSheet       Set rnData = .UsedRange       With rnData          .AutoFilter Field:=1, Criteria1:="AAA"          .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count) _                .SpecialCells(xlCellTypeVisible).EntireRow.Delete          .AutoFilter       End With       .UsedRange    End With     Application.ScreenUpdating = True  End Sub