Excel 删除包含无循环单词的行+3

我有一个电子表格，其中包含4个一般行常数在每个报价。根据报价中行项目的不同，出现这4个常规行的行也不同。我试图找到一个代码，该代码定位列B中的单词SHOP TICKETS，然后删除该行及其下的3，而不包含循环。循环是不需要的，而且似乎会使它陷入困境。我已经在这两天了，我似乎找不到正确的代码

我在网上找到了一大堆解决方案，但似乎没有一个是正确的。除了一个暗淡的，但它慢了很多，不值得保留。我是新来的/自学成才的，所以请对我耐心

Sub delete
   With WorkSheets("Sheet1") 'Change to your sheet
       Dim rw as Long
       On Error Resume Next
           rw = Application.WorksheetFunction.Match("SHOP TICKETS",.Range("B:B"),0)
       On Error Goto 0

       If rw > 0 Then
           .Range(rw & ":" & rw + 3).entirerow.delete
       End if
    End with
 End sub

---

我明白了！！谢谢与小组讨论有助于解决问题。

您能告诉我们您到目前为止掌握的代码吗？这些话在每个报价单中只出现一次吗？这不是一种编码服务，您可以陈述您的需求，然后重新准备运行调试过的代码。你需要自己付出一些努力。给我们看看你的代码。还要阅读最小、完整和可验证的示例：我不知道要使用什么代码。我试过很多次了。你想让我全部分享吗？我不认为这是一个代码服务，正如我所说的，我已经花了两天的时间试图让它工作。我尝试了这一个，但返回了一个运行时错误“9”：下标超出范围。我试着录制一个宏，但它将要删除的行设置为固定行，它们会四处移动。我不知道如何修复范围15。选择Selection.EndxlDown.Offset2，0。选择Set rng=RangeActiveCell，ActiveCell.Offset-2，0 rng.EntireRow.Select Selection.ClearContents与范围15:B500.Value=.Value.SpecialCellsxlCellTypeBlanks.EntireRow.Delete与单元格一起结束。FindWhat:=购物单，之后：=ActiveCell，LookIn:=xlFormulas，LookAt:=xlPart，SearchOrder:=xlByRows，SearchDirection:=xlNext，MatchCase:=False，SearchFormat:=False。激活行68:71。选择选项。删除Shift:=xlUpi也不知道如何发布我的代码，而不让代码混乱不堪。对不起。但这个从这里开始。Cells.FindWhat:=购物单，After:=ActiveCell，LookIn:=xlFormulas，\ulookat:=xlPart，SearchOrder:=xlByRows，SearchDirection:=xlNext，\umatchcase:=False，SearchFormat:=False.Activate Rows68:71.Select Selection.Delete Shift:=xlUpI缺少一个&。但除此之外，它对我很有效。

Cells.Find(What:="SHOP TICKETS", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate
Set rng = Range(ActiveCell, ActiveCell.Offset(3, 0))
rng.EntireRow.Delete