用VBA根据sheet2引用sheet1中数据

14587

请大神大帮忙，碰到一个数据引用的问题，就是根据sheet2中A列数据到sheet1中去引用，引用数据放在sheet3中，重复数据也要引用过去，我在网上找了一些，都是引用不重复的，请大家帮忙写段代码，谢谢！

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

14587

谢谢，帮大忙啦！！！

saghj

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, cr, i&, j&, k&, r&
   
    Application.ScreenUpdating = False
   
    ar = Worksheets(1).[A1].CurrentRegion.Value
    br = Worksheets(2).[A1].CurrentRegion
    cr = ar: r = 1
    For i = 2 To UBound(br)
        For j = 2 To UBound(ar)
            If ar(j, 1) = br(i, 1) Then
                r = r + 1
                For k = 1 To UBound(ar, 2)
                    cr(r, k) = ar(j, k)
                Next k
            End If
        Next j
    Next i
   
    With Worksheets(3)
        .Cells.Clear
        .[A1].Resize(r, UBound(cr, 2)) = cr
        .Activate
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。。。。

14587

谢谢大家的帮忙，谢谢！

14587

各位大侠，试用了很好用，特别快。但在试用中发现，若sheet2中有这个人，但sheet1中没有这个人，这个人也能跟到sheet3中就好了。这样就知道哪个人没数据了！！！