excel - 在列中搜索值并将行复制到新工作表

Question

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

标签： excelvba

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