EXCEL中用VBA复制整行

这里假设表1的数据在A：H列
用函数可在表二的B1输入公式如下，公式右拉完成（A1输入序号）
=VLOOKUP($A1,Sheet1!$A:$H,COLUMN(),0)

如果用VBA实现，不管表1数据有几列，整行复制。代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
With Sheets("sheet1")
For x = 1 To .Range("A65536").End(xlUp).Row
If .Cells(x, 1) = Target.Value Then
.Rows(x).Copy Target.Rows
Exit Sub
End If
Next x
End With
End If
End Sub
把这代码放到表2的代码编辑框中即可实现你要的结果

用 vlookup 函数。到Excel帮助中学习Ta的用法。

把表传上..