Question

我在工作表ID中有一列数字我在Sheet REG中有一张完整的表格，我需要在其中找到工作表ID中的数字出现在SHeet REG列G中的所有行；最后将数据转储到另一个工作表中。

我试图通过工作表ID中的一个单元格值来过滤工作表REG中的G列；复制所有经过过滤的数据并将其粘贴到第三张纸上。删除过滤器并循环查找后续编号。

Sub FIND()
    Dim c As Range

    Dim REG As Worksheet
    Dim ID As Worksheet
    Dim TEMP As Worksheet
    Dim TEMP2 As Worksheet
    Dim i As Integer
    Dim j As Integer      

    Application.ScreenUpdating = False

    Set REG = Sheets("REG")
    Set ID = Sheets("ID")
    Set TEMP = Sheets("TEMP")
    i = 1

    For Each c In ID.Range("A2", ID.Range("A1").End(xlDown).Address)
        REG.AutoFilterMode = False
        chk = REG.Range("A1:AD1").AutoFilter(7, c.Value)

        REG.Range(("A1"), REG.Range("A1").End(xlDown).End(xlToRight)).Copy

        TEMP.Select
        TEMP.Cells(i, 1).Select
        ActiveSheet.Paste
        Application.CutCopyMode = False

        i = TEMP.Range("A1").End(xlDown).Row + 1        
    Next c

    Application.ScreenUpdating = True   
End Sub

在片REG每一行其中片材ID的出现1列的数是否在之间或开始或结束时，所有的行应该在我的第三片材中显示。

同为数字的整个列表。在某些情况下，可能找不到号码。

获得的值对应的所有行从另一个表

0 个答案: