Excel依次复制粘贴1

excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程本帖最后由 xwdljh 于 2016-5-28 12:50 编辑

"工作簿1.xlsm”有一个两个表"Sheet1”和"Sheet2”，
想把
表"Sheet2” A列到G列（A:G）的数据
从第一行（A1:G1）开始，按行依次复制到
表"Sheet1” A列到G列（A:G），
直到最后有数据的一行为止（也就是说下面的空行不复制），
使用循环语句应该如何写？谢谢！！！

附件可以随意打开Microsoft Excel 2010，在"Sheet2” 的A列到G列输入几行任意的公式、字符或数字，然后另存为"工作簿1.xlsm”即可。然后就可以研究上面的问题，写代码了。

因为在百度看到一段代码：
Sub 宏1()
Dim x As Long
x = 1
Range(Cells(1, 1), Cells(1, 3)).Copy
For x = 1 To 10
Range(Cells(x + 1, 1), Cells(x + 1, 3)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End Sub
可以将A1:C1的数据（而不是公式）依次复制到A2:C10，很神奇，很有水平，很崇拜。所以就想到了上面的问题。

Sub FUZHI()
Worksheets("sheet1").Activate
Dim i As Long
For i = 1 To Sheets("sheet2").Range("A65536").End(xlUp).Row
Sheets("sheet2").Range("A" & i & ":G" & i).Copy
Range("A" & i & ":G" & i).PasteSpecial Paste:=xlPasteValues
Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息