在Excel中删除先前删除的行之间的行

Question

我要编写VBA代码，该代码将删除某些行（在列中包含某些单词）。 我下面有一个。 我也要删除两个较早删除的行之间的所有行（它们是小计）（*，并且条件是这只是它们之间的一行，如果不能删除则更多，则为问题）

您能否建议有办法解决这个问题？ 请让我知道这个问题是否含糊（因为我是新来者）

Sub DeleteRows()
Dim c As Range
Dim SrchRng As Range
Dim SrchStr As String

Set SrchRng = ActiveSheet.Range("F1", ActiveSheet.Range("F10000").End(xlUp))
SrchStr = InputBox("Please Enter A Search String")
Do
    Set c = SrchRng.Find(SrchStr, LookIn:=xlValues)
    If Not c Is Nothing Then c.EntireRow.Delete
Loop While Not c Is Nothing

End Sub

Answer 1

您已经有了感兴趣的列（在本例中为F），并且还提示用户指定要删除的字符串，这听起来像是巧妙地使用Range.Autofilter方法的Range.Autofilter方法。 （这是MSDN链接： http : //msdn.microsoft.com/zh-cn/library/microsoft.office.interop.excel.range.autofilter(VS.80 ) .aspx ）

假设您正在处理的数据块来自A：F，您可以编写：

Option Explicit
Sub DeleteRowsWithAutoFilter()

Dim DataRng As Range, DeleteMe As Range
Dim SrchStr As String

'set references up-front
Set DataRng = ActiveSheet.Range("A1", ActiveSheet.Range("F10000").End(xlUp))
SrchStr = InputBox("Please Enter A Search String")

'turn off alerts for delete action
Application.DisplayAlerts = False
DataRng.AutoFilter Field:=6, Criteria1:=SrchStr '<~ apply autofilter
With DataRng
    Set DeleteMe = .Offset(1, 0) '<~ set the delete range
    DeleteMe.Delete
End With
ActiveSheet.AutoFilterMode = False
Application.DisplayAlerts = True

End Sub