搜索一列，並刪除另一行，如果發現語句VBA

Question

我有列A，我要做的是搜索一個短語，說「測試」，然後如果發現這個短語刪除2行後。

我可以看到如何刪除一行，如果在該行中找到該短語而不是如何刪除另一行。

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 

這開始向下搜索列A開始在單元格A1，如果它發現的小區，其值爲「測試」，然後它會刪除它後面接下來的兩行。