请大家帮忙写个vba

landisyue

请大家帮忙写个vba，谢谢，要求如下：
根据表aa中的第一行第一列的内容，在bb中查找，将找到的这行内容全部复制到aa中的第一行，
根据表aa中的第二行第一列的内容，在bb中查找，将找到的这行内容全部复制到aa中的第二行，
根据表aa中的第三行第一列的内容，在bb中查找，将找到的这行内容全部复制到aa中的第三行，
以此类推……
谢谢各位了

eg：在aa中根据a1单元格内容，在bb中找到，将bb中（含有a1内容）这一行复制到1行

[ 本帖最后由 landisyue 于 2008-4-16 21:05 编辑 ]

landisyue

请大家帮个忙，谢谢

hyy514

Sub f()
Dim a() As Variant, s As String
a = Sheet1.UsedRange
With Sheet2
For i = 1 To UBound(a)
    For j = 1 To Sheet2.[a65536].End(xlUp).Row
    If a(i, 1) = .Cells(j, 1) Then
        .Cells(j, 1).EntireRow.Copy Sheet1.Cells(i, 1)
    End If
    Next
Next
End With
End Sub