Question

我有一张桌子＆＃34; RawData＆＃34;在excel我想过滤。列A具有名称，列B具有数字。我想将数据复制到另一个表，＆＃34; LoadingData＆＃34;，如果名称与特定数字匹配。我在不同的标签中有相应的名字/号码＆＃34; ShiftData＆＃34;在工作表中。

EX。如果John Smith在他旁边的列中有一个2，则将整行复制到工作表＆＃34; LoadingData＆＃34;。如果John Smith在他旁边的列中有4，请不要移动他的数据。

我尝试使用VLOOKUP功能，但我认为我尝试做的事情比这复杂得多。任何帮助，将不胜感激！

Answer 1

Sub CopyData()
Const cValuetoCheck = 2
Dim rngData As Range, rngLoad As Range

    Set rngData = Worksheets("shiftdata").Range("B1")
    Set rngLoad = Worksheets("loadingdata").Range("A1")

    While Not (IsEmpty(rngData))
        If rngData = cValuetoCheck Then
            rngData.EntireRow.Copy
            rngLoad.EntireRow.PasteSpecial
            Set rngLoad = rngLoad.Offset(1, 0)
        End If
        Set rngData = rngData.Offset(1, 0)
    Wend

End Sub

根据另一个表中的值将数据从一个选项卡复制到另一个选项卡

1 个答案: