<em>EXCEL</em>复制粘贴是空白的-vba excel 行复制,excel vba多条

将复制百这行拆分，复制后选择性粘贴：
Rows(x & ":" & n).EntireRow.Copy
Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

如果是复度制的单元格格式，再加上问下面一句

Range("A1").PasteSpecial xlPasteFormats
另外，Rows本身就是整答行引用，EntireRow在这里就是重复的回，可答取消，直接改为：
Rows(x & ":" & n).Copy

这里假设表1的数据在A：H列e799bee5baa6e4b893e5b19e335
用函数可在表二的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的代码编辑框中即可实现你要的结果

1,假设需要将sheet1中的第一行复制到sheet2,中，采用如下代码：
Sub 复制行zd()
Sheets(1).Range("A1").EntireRow.Copy Sheets(2).Range("A1")
End Sub
2，其中，Sheets(1).Range("A1")中的Range("A1")可以更改为内任何一个单元格或单元格区域，表达方式可以用容cell方式实现循环。
3，Sheets(2).Range("A1")为粘贴的目标位置，同样可以用cell(a,b)实现自动循环。