Question

In my active sheet called Report I have 2 column I & F.

It has repeating cells containing text “Grand Total”.

I would like to delete whole row if it contains Grand Total automatically.

VBA code would be nice.

Answer 1

With the following VBA code, you can quickly delete the rows with certain cell value, please do as the following steps:

1. Select the range that you want to delete the specific row.

2. Click Developer>Visual Basic, a new Microsoft Visual Basic for applications window will be displayed, click Insert > Module, and input the following code into the Module:

   VBA code to Remove entire rows based on cell value(i.e. Grand Total):

   Sub Delete_Rows()
       Dim rng As Range, cell As Range, del As Range
       Set rng = Intersect(Range("A1:D22"), ActiveSheet.UsedRange)
       For Each cell In rng
       If (cell.Value) = "Grand Total" _
       Then
       If del Is Nothing Then
       Set del = cell
       Else: Set del = Union(del, cell)
       End If
       End If
       Next cell
       On Error Resume Next
       del.EntireRow.Delete
       End Sub
   

3. Then click “Play/Run” button to run the code, and the rows which have certain value have been removed.

(Note: If you can’t see Developer Tab in Excel Do these Steps: 1)Click the Office Button, and then click Excel Options. 2)In the Popular category, under Top options for working with Excel, select the Show Developer tab in the Ribbon check box, and then click OK.)