Office中国论坛/Access中国论坛

标题: 请大家帮忙写个vba [打印本页]

作者: landisyue 时间: 2008-4-16 15:50
标题: 请大家帮忙写个vba
请大家帮忙写个vba，谢谢，要求如下：
根据表aa中的第一行第一列的内容，在bb中查找，将找到的这行内容全部复制到aa中的第一行，
根据表aa中的第二行第一列的内容，在bb中查找，将找到的这行内容全部复制到aa中的第二行，
根据表aa中的第三行第一列的内容，在bb中查找，将找到的这行内容全部复制到aa中的第三行，
以此类推……
谢谢各位了

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

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

作者: landisyue 时间: 2008-4-16 21:04
请大家帮个忙，谢谢

作者: hyy514 时间: 2008-4-19 15:05
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)