如何自动删除Excel中包含“总计”的所有行？

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(ie 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.)

Answer 2

Using AutoFilter is very efficient. This can also be done without VBA (ie manually)

Main Sub

Sub Main()
Dim ws As Worksheet
Dim rng1 As Range
Dim StrIn As String
Dim rng2  As Range
Set ws = Sheets("Sheet1")
Application.ScreenUpdating = False
Set rng1 = ws.Range("F:F,I:I")
StrIn = "Grand Total"
For Each rng2 In rng1.Columns
Call FilterCull(rng2, StrIn)
Next
Application.ScreenUpdating = True
End Sub

Delete Sub

Sub FilterCull(ByVal rng2, ByVal StrIn)
With rng2
    .Parent.AutoFilterMode = False
    .AutoFilter Field:=1, Criteria1:=StrIn
   .EntireRow.Delete
    .Parent.AutoFilterMode = False
    End With
End Sub

Answer 3

This should help get you started.

http://msdn.microsoft.com/en-us/library/office/ee814737%28v=office.14%29.aspx#odc_Office14_ta_GettingStartedWithVBAInExcel2010_VBAProgramming101

Also see similar question: Delete a row in Excel VBA