<em>EXCEL</em>中用<em>VBA复制整行</em>

Sheet2.Cells(1, 1).EntireRow.Copy Destination:=Sheet1.Cells(1, 1)

或者：
Sheet2.Rows(1).Copy Destination:=Sheet1.Rows(1)

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

如果用VBA实现，不管表1数据有几列，整行复制。代码e69da5e6ba907a686964616f335如下：
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的代码编辑框中即可实现你要的结果

Sub q()
Dim InStrs As String
InStrs = InputBox("请输入你百需要查询度的硬件知版本号道：回", "硬件版本号&型号定位宏答")

Dim Row, J, I As Integer, outStr() As String
Row = Sheet1.Cells(Sheet1.Rows.Count, 13).End(xlUp).Row
ReDim outStr(0)
With Sheet1
  For I = 2 To Row
    If .Cells(I, 14) = InStrs Then
      ReDim Preserve outStr(UBound(outStr) + 1)
      outStr(UBound(outStr)) = .Cells(I, 13)
    End If
  Next I
End With

With Sheet2
  For J = 1 To UBound(outStr)
    .Cells(J + 1, 4) = J
    .Cells(J + 1, 5) = outStr(J)
  Next J
End With

End Sub

1、进入EXCEL,ALT+F11进入VBA编辑copy器。

3、在工作表中插入表单控件，并指定到宏知Macro1。

3、在工作表中插入表单控件，并指定到宏Macro1。

4、点击表单控件，语言中的整行整列就被选中了。道