Delete Row based on Search Key VBA

by

Using an AutoFilter is much more efficient than a range loop

Sub QuickCull()
Dim ws As Worksheet
Dim rng1 As Range
Set ws = Sheets("Sheet1")
Set rng1 = ws.Range(ws.[b2], ws.Cells(Rows.Count, "B").End(xlUp))
Application.ScreenUpdating = False
With ActiveSheet
        .AutoFilterMode = False
        rng1.AutoFilter Field:=1, Criteria1:="X"
        rng1.Offset(1, 0).EntireRow.Delete
        .AutoFilterMode = False
    End With
Application.ScreenUpdating = True
End Sub

More Related Contents:

  1. How do you change the value of a cell in excel by clicking on it using VBA? [closed]
  2. How to avoid using Select in Excel VBA
  3. How do I use FileSystemObject in VBA?
  4. Is the . in .Range necessary when defined by .Cells?
  5. Run Excel Macro from Outside Excel Using VBScript From Command Line
  6. Importing text file into excel sheet
  7. Checking for #N/A in Excel cell from VBA code
  8. Non-web SQL Injection
  9. Error: “Could Not Find Installable ISAM”
  10. Filling any empty cells with the value above
  11. Password hash function for Excel VBA
  12. Check if value exists in column in VBA
  13. hiding formulas in formula bar
  14. How to delete multiple rows without a loop in Excel VBA
  15. Excel VBA: getting row of clicked button [duplicate]
  16. VBA Many buttons point to the same _Click sub
  17. Excel VBA Filter Change event handler
  18. How to suppress Update Links warning?
  19. How do we use restful APIs from Excel macros (vba)?
  20. Cannot VBA write data to cells in Excel 2007/2010 within a function
  21. VBA paste as values – how to
  22. How to send email to multiple recipients with addresses stored in Excel?
  23. What are the benefits of using Classes in VBA? [closed]
  24. Writing a VLOOKUP function in vba
  25. Handle cancellation of InputBox to select range
  26. Type Mismatch in Loop to scan Outlook Messages [duplicate]
  27. VBA: How to combine two ranges on different sheets into one, to loop through
  28. Function Overloading and UDF in Excel VBA
  29. VBA: Modify chart data range
  30. How to save semi-colon delimited csv file using VBA?

Leave a Comment