Excelでワークブックを個別のExcelファイルに分割するにはどうすればよいですか？

通常、コピー コマンドと 貼り付け コマンドを使用すると、手動でワークブックを個別のExcelファイルとして保存できます。まず、個別のファイルとして保存したいワークシート全体を選択し、新しいワークブックを作成してから、その新しいワークブックに貼り付け、最後に保存します。

これは、少数のワークシートだけを個別のファイルとして分割する必要がある場合に使いやすい方法です。しかし、多くのワークシートを手動でコピーして貼り付けて分割するのは、時間がかかり、面倒な作業になるでしょう。

この方法では、「移動またはコピー」機能を紹介し、選択したシートを新しいワークブックに移動またはコピーして、個別のワークブックとして保存します。以下の手順で行ってください：

1. シートタブバーでシートを選択し、右クリックして 移動またはコピー をコンテキストメニューから選択します。スクリーンショットをご覧ください：

注釈： Ctrl キーを押しながら、シートタブバーで非隣接の複数のシートを1つずつクリックして選択できます； Shift キーを押しながら、シートタブバーで最初と最後のシートをクリックすることで、隣接する複数のシートを選択できます。

2. 「移動またはコピー」ダイアログで、 （新しいブック） を 対象ブック ドロップダウンリストから選択し、 コピーを作成 オプションをチェックして、 OK ボタンをクリックします。スクリーンショットをご覧ください：

3. これで、選択されたすべてのシートが新しいワークブックにコピーされました。「ファイル 」＞「名前を付けて保存」をクリックして、新しいワークブックを保存します。

Kutools for Excelがインストールされている場合、そのSplit Workbookツールを使用すると、数回のクリックだけで複数のワークシートを個別のExcelファイルに分割することができます。

1. インストール後、 Kutools for Excelをクリックし、 Kutools Plus > ブックの分割 を選択します。スクリーンショットをご覧ください：

2. 「 ブックの分割 」ダイアログボックスで、次の操作を行います：
(1) デフォルトですべてのワークシート名がチェックされています。分割したくないワークシートがある場合は、それらのチェックを外すことができます；
(2) 保存形式 オプションをチェックします；
(3) 保存形式を指定 ドロップダウンから、分割して保存したいファイル形式を選択します。
(4) そして、「 分割 」ボタンをクリックします。

注: 非表示または空白のワークシートを分割したくない場合は、非表示のワークシートをスキップまたは空白のワークシートをスキップのチェックボックスをオンにできます。

3. 「フォルダ参照」ダイアログで、分割されたファイルを保存するための宛先フォルダを指定し、「 OK 」ボタンをクリックします。

これで、チェックされたワークシートは新しい分離されたワークブックとして保存されます。各新しいワークブックは元のワークシート名で命名されます。スクリーンショットをご覧ください：

Kutools for ExcelのSplit Workbookツールを使用すると、アクティブなワークブックを個別のExcelファイル（1つのファイルに1つのワークシート）、CSVファイル、TXTファイル、またはPDFファイルに簡単に分割できます。空および非表示のすべてのワークシートをスキップするように設定することも可能です。無料体験版をお試しください！

次のVBAコードは、現在のワークブック内の複数のワークシートを個別のExcelファイルに迅速に分割するのに役立ちます。以下の手順で行ってください：

1. 分割したいワークブック用に新しいフォルダを作成します。分割されたExcelファイルは、このマスターワークブックと同じフォルダに保存されるためです。

2. ExcelでALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3. 「挿入」＞「モジュール」をクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBA：ワークブックを複数のワークブックに分割し、同じフォルダに保存する

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. このコードを実行するために、「 F5 」キーを押します。そして、ワークブックは元のワークブックと同じフォルダにある個別のExcelファイルに分割されます。スクリーンショットをご覧ください：

注: シートのいずれかがワークブックと同じ名前を持っている場合、このVBAは動作しません。

複数のワークブックを1つのワークブックに統合する

選択範囲を個別のファイルとして保存する