見出し画像

エクセルで作成したシートを一度に複数枚コピーすることはできますか?

■答え

残念ながら、そのような機能はないです。

ただし、シートのコピーを素早く行なう方法があります。
コピーしたいシートを選択し,Ctlrキーを押しながら右にドラッグ&ドロップすれば,一瞬でシートのコピーが可能です。
複数枚のシートを選択すれば、選択した複数枚分のシートが一気にコピーできます。

Excel VBAを使用すればボタン一つで複数枚のシートコピーをすることが可能です。

■ボタン一つで複数枚のシートを一括でコピーする【Excel VBA】

■例
【前提条件】
・コピーしたいシート名 → テンプレ
・コピー枚数 → 5枚
・コピーしたシートを挿入する位置 → テンプレのシートの後

下記コードをまるっとコピーして、「標準モジュール」に貼り付けてください。
図形の作成/マクロの登録を行い、図形をクリックすることで一括でテンプレのシートが5枚コピーされます。

Sub シートを複数枚コピー()
'-------------------------------
'変数定義
'-------------------------------
'繰り返し用
Dim i As Long
'作成するシートの数(5枚)
Dim copyNumber As Long
copyNumber = 5
'-------------------------------
'シートコピー処理
'-------------------------------
For i = 1 To copyNumber
   Worksheets("テンプレ").Copy After:=Worksheets("テンプレ")
   'シート名は連番を設定
   ActiveSheet.Name = i
Next
End Sub

VBAとボタンの設定は下記をご参照ください。
【Excel VBAの設定方法】
①エクセルを開いた状態で、Alt+F11を押下、VBAの画面を表示
②挿入(I) → 標準モジュール をクリック
③上記のコードをまるっとコピペして、ctrl + s で保存
④上の赤い×でVBA画面を閉じる

【自動ボタンの作成】
①コピーするシートを開いた状態で、挿入タブ→□や◇などのアイコンをクリック
②好きな図形を選択して、図形を作成
③作成した図形を右クリックして、マクロの登録(N)をクリック
④マクロの登録画面が表示、シートを複数枚コピーをクリックして「OK」ボタンを押下

【自動ボタンの名前付け】
①再び作成した図形を右クリックして、テキストの編集(X)をクリック
②ボタンにわかりやすい名前を入力、入力後どこかのセルをクリックして完了

21VBA_複数枚シートのコピー


この記事が気に入ったらサポートをしてみませんか?