新人求助-复制一表单元格到二表

Question

http://pan.baidu.com/s/1jH9vPI2就是将sheet1的内容制作成sheet2的表格，因为自学VBA一周，看得懂却写不出来。写出来也特别乱，求助帮我写一个，谢谢大神！

Answer 1

在Excel中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

Answer 2

嗯，已经在慢慢写出了，求教一下如何判定到内容最后一行退出do loop呢

Answer 3

Dim i%, a%
i = 0
a = 2
Do
ActiveSheet.Cells(a + i, 1).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("出库单").Select
ActiveSheet.Cells(a + 13 * i, 4).Select
ActiveSheet.Paste
Sheets("整理模板").Select
i = i + 1
Loop Until i = 14目前我是用i来实现循环，但是需要手动修改。我希望达到自动判定有内容的最后一行，有大神能给点思路吗，没有的话我再找找

Answer 4

Loop Until i <= Sheets("整理模板").Rows.Count