search一个列，并删除另一行，如果短语发现VBA

我有列A，我要做的是search一个短语，说“testing”，然后如果发现这个短语删除2行之后。

我可以看到如何删除一行，如果在该行中find该短语，而不是如何删除另一行。

Answer 1

尝试这样的事情：

 Public Sub DeleteRowsIfFound() Dim originCell As Range, numberOfRowsToDelete As Integer Dim blankCellLimit As Integer, numberOfBlankCells As Integer Dim label As String, index As Long, n As Integer Set originCell = Me.Range("A1") blankCellLimit = 5 numberOfRowsToDelete = 2 index = 0 label = "test" Do If originCell.Offset(index, 0).Value = label Then For n = 0 To numberOfRowsToDelete - 1 originCell.Offset(index + 1, 0).EntireRow.Delete Next ElseIf originCell.Offset(index, 0).Value = "" Then numberOfBlankCells = numberOfBlankCells + 1 End If index = index + 1 Loop While numberOfBlankCells < blankCellLimit End Sub 

这将开始search从A单元开始的列A，如果它发现一个值为“testing”的单元格，那么它将删除接下来的两行。