Excel 仅选择需要的内容

我创建了一个Excel文档，其中包含一张名为Plakken的工作表。此工作表包含一个按钮，用于将用户从intranet页面复制的表格粘贴到工作表模板2上

在下面的示例中，您可以看到模板2上的表格 我现在想做的是将粘贴表中的一些数据复制到工作表OPSLAN，我要复制的数据是：

ArtikerNummer物品编号 Artikelnaam物品名称 基准日期 以下是左侧的3列，例如：

但是表中的数据是用包含单词vulgebied的行分隔的

例如：

我正在寻找一种方法，只复制上面列出的所有数据，并将它们粘贴到工作表Opslan上

表格每次都不一样，有时在vulgebied行之间有更多或更少的行，但表格的样式总是相同的

编辑：

我认为可能有效的方法是：

Option Explicit

Sub DeleteRow()

Dim i As Long
Dim rng As Range

With ActiveWorkbook.Sheets(1) 
    For i = 100000 To 1 Step -1 
        With .Cells(i, "C")         
            If .Value = "Vulgebied" Then             
                If rng Is Nothing Then 
                    Set rng = .Cells
                Else
                    Set rng = Application.Union(rng, .Cells)
                End If
             End If
        End With
    Next i

    If Not rng Is Nothing Then rng.EntireRow.Delete
End With

End Sub

但是因为单词vulgebied后面有一个不同的数字，我不知道如何解决这个问题

---

示例：

要查找可能包含单词Vulgebied的单元格，请使用函数Instr

修改代码

注意：确保在单元格中找到Vulgebied的更安全的方法是使用LCase函数将单词的所有字符转换为小写，请参见以下内容：

If InStr(LCase(.Range("C" & i).Value), "vulgebied") > 0 Then

---

请包括您在我只有将表格粘贴到工作表模板2中的代码时尝试的代码。我不知道如何进一步，因为我想复制的行之间有分隔。“我希望这里有人能帮我解决那个问题。”里卡。看看答案和修改后的代码，另一种不区分大小写的方法是在InStr中使用vbTextCompare选项。“我不知道哪一个效率更高。”罗森菲尔德从未做过替补，这会很有趣。

If InStr(LCase(.Range("C" & i).Value), "vulgebied") > 0 Then