找到多个单词并将其粘贴到不同的表格中

Question

我目前正在使用以下代码查找多个值，然后复制/粘贴到另一个工作表中。此代码的目的是从大数据集中检索基因列表（小词）。

此代码仅适用于一个基因列表（小关键字列表），它存在于工作表3列A中（以A2开头）。从大数据集中检索到的所有数据（在表1中显示）都被复制到表2中。

现在我有6个基因列表（6个小关键字列表）。我必须为所有这些基因列表制作6张单独的表。请告诉我这个问题的代码。

Sub OrderFinder()
    Dim srchLen, gName, nxtRw As Integer
    Dim g As Range

    'Clear Sheet 2 and Copy Column Headings
    Sheets(2).Cells.ClearContents
    Sheets(1).Rows(1).Copy Destination:=Sheets(2).Rows(1)

    'Determine length of Search Column from Sheet3
    srchLen = Sheets(3).Range("A" & Rows.Count).End(xlUp).Row

    'Loop through list in Sheet3, Column A. As each value is
    'found in Sheet1, Column B, copy it too the next row in Sheet2
    With Sheets(1).Columns("B")
        For gName = 2 To srchLen
            Set g = .Find(Sheets(3).Range("A" & gName), lookat:=xlWhole)
            If Not g Is Nothing Then
                nxtRw = Sheets(2).Range("B" & Rows.Count).End(xlUp).Row + 1
                g.EntireRow.Copy Destination:=Sheets(2).Range("A" & nxtRw)
            End If
        Next
    End With
End Sub