VBA連續複製工作表
前一篇有介紹到「複製工作表」，但一次僅能複製一張，那要如何一次複製出多張(連續複製)工作表呢？
如以下單月記帳模板，想將工作表一次複製出1~12月。
輸入巨集
※輸入以下指令※
Sub 複製模板()
For i = 1 To 12
Worksheets(“模板”).Copy before:=Worksheets(“模板”)
Worksheets(i).Name = i & “月”
Next
End Sub
執行巨集
點選「開發人員」-「巨集」或按下「Ctrl」+「F8」快捷鍵，並「執行」巨集。
執行後則一次將「模板」工作表複製出1~12月。
語法說明
For i = 1 To 12
‘使用For迴圈，連續執行1~12次
Worksheets(“模板”).Copy before:=Worksheets(“模板”)
‘複製「模板」工作表於「模板」工作表「前方」
Worksheets(i).Name = i & “月”
‘將複製出工作表名稱更改為 i 月，即1~12月
