http://pan.baidu.com/s/1jH9vPI2
就是將sheet1的內容制作成sheet2的表格，因為自學VBA一周，看得懂卻寫不出來。寫出來也特別亂，求助幫我寫一個，謝謝大神！
uj5u.com熱心網友回復：
在Excel中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。uj5u.com熱心網友回復：
嗯，已經在慢慢寫出了，求教一下如何判定到內容最后一行退出do loop呢uj5u.com熱心網友回復：
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來實作回圈，但是需要手動修改。我希望達到自動判定有內容的最后一行，有大神能給點思路嗎，沒有的話我再找找
uj5u.com熱心網友回復：
Loop Until i <= Sheets("整理模板").Rows.Count
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/68571.html
標籤：VBA
下一篇：初學者求助