Delete_Unwanted_Rows

Delete rows in a different way
I used to delete rows by looping through those rows and use Range().Delete xlshiftUp for rows need to be deleted.
But that process takes too long if we have too many rows to delete.
As an alternative method, we can use 1 delete command after searching for those rows.
This is the function to do that, it is not complete, and not to be used out-of-the-box, it needs some tweaks first.


Public

Tested

Not My Work
Sub Delete_Unwanted_Rows()
   ' rngDealLoad_Key_Found. is the range object that has rows we need to loop through.
   Dim rngDelete As Range
   Set rngDelete = Nothing
   On Error Resume Next
   Set rngDelete = rngDealLoad_Key_Found.SpecialCells(xlCellTypeFormulas, 23)
   If Not rngDelete Is Nothing Then
      rngDelete.EntireRow.Delete shift:=xlUp
   End If
   On Error GoTo 0
End Sub

Views 460 Downloads 123

VBA-Excel Layout+Design
ANmarAmdeen
757
Attachments
Revisions

v1.0