在列中搜索值，然后将行复制到新表中

Question

我有两张纸，“数据”和“源代码提取”。我想要代码从工作表“数据”的第一列中搜索关键字“目标”，并将整行及其下一行复制到源代码提取B列

Answer 1

您可以尝试以下代码：

Sub DataToSourceExtract()
    Sheets("Data").Columns(1).Find("Dest").Resize(2).EntireRow.Copy _
        Sheets("Source Extract").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End Sub