请问怎么匹配两个表的数据？

拿铁不苦

请问怎样用DO while 和 if next 把表“Task 1-Raw_Returns”的对应数据填到表“Task 1-Returns”中？
因为存在一些多余的数据所以我自己写总是不对，我现在只能完成单个单元格的复制，怎么样写循环呢？
十分感谢

拿铁不苦

就是这种对应表

donghui2363

如果不用去重的话
Sub 对应()
Dim ws As Worksheet
arr = Sheet1.Range("a2:c" & Sheet1.Range("a65536").End(xlUp).Row)
Set ws = Sheet2
    For r = 2 To ws.Range("a65536").End(xlUp).Row
        For i = 1 To UBound(arr)
            If arr(i, 1) = ws.Cells(r, 1) Then
                For j = 2 To UBound(arr, 2)
                    ws.Cells(r, j) = arr(i, j)
                Next j
                Exit For
            End If
        Next i
    Next r
End Sub

拿铁不苦

donghui2363 发表于 2019-10-6 15:13
如果不用去重的话
Sub 对应()
Dim ws As Worksheet

十分感谢！ 请问可不可以用do while 来写呢？

donghui2363

试试
Dim ws As Worksheet
arr = Sheet1.Range("a2:c" & Sheet1.Range("a65536").End(xlUp).Row)
Set ws = Sheet2
i = 1
r = 2
    Do While ws.Cells(r, 1) <> ""
        Do While i <> UBound(arr)
            If arr(i, 1) = ws.Cells(r, 1) Then
                ws.Cells(r, 2) = arr(i, 2)
                ws.Cells(r, 3) = arr(i, 3)
                Exit Do
            End If
            i = i + 1
        Loop
        r = r + 1
    Loop

拿铁不苦

donghui2363 发表于 2019-10-6 16:08
试试
Dim ws As Worksheet
arr = Sheet1.Range("a2:c" & Sheet1.Range("a65536").End(xlUp).Row)

谢谢~！~！