同じような作業を複数ブックに対してやるのはちょっとかっこ悪い。
最近はなるべくマクロで自動化してます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub CreateBooks() Set Input_Book = ThisWorkbook 'マクロ搭載ブック Set Input_Sheet = Input_Book.Worksheets(1) 'マクロ搭載シート Set Output_Book = Workbooks(1) 'ターゲットブック Set Output_Sheet = Output_Book.Worksheets(1) 'ターゲットシート '10回繰り返す For i = 1 To 10 Set Output_Book = Workbooks.Add 'ブック追加 Output_Book.SaveAs Filename:=ThisWorkbook.Path & "\" & i & "_.xlsx" 'ファイルを名前をつけて保存 Output_Book.Close 'ブックを閉じる Next MsgBox ("finish") End Sub |
実行するとこんな感じに。
