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

これは、いくつかのワークシートのみを個別のファイルとして分割する必要がある場合の使いやすい方法です。 ただし、手動でコピーして貼り付けることで多くのワークシートを分割することは、時間と手間がかかる必要があります。

この方法では、移動またはコピー機能が導入され、選択したシートを新しいブックに移動またはコピーして、別のブックとして保存します。 次のようにしてください。

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

Note： ホールディング Ctrlキー キーを押すと、[シート]タブバーでXNUMX枚ずつクリックして、隣接していない複数のシートを選択できます。 ホールディング シフト キーを押すと、[シート]タブバーの最初のシートと最後のシートをクリックして、隣接する複数のシートを選択できます。

2。 [移動またはコピー]ダイアログで、[ （新しい本） 予約する ドロップダウンリスト、チェック コピーを作成する オプションをクリックし、 OK ボタン。 スクリーンショットを参照してください：

3。 これで、選択したすべてのシートが新しいブックにコピーされます。 クリック File > Save 新しいワークブックを保存します。

あなたが持っている場合 Kutools for Excel インストール、その 分割ワークブック ツールは、数回クリックするだけで、複数のワークシートを個別のExcelファイルとして便利かつ迅速に分割できます。

1。 インストール後 Kutools for Excel、クリック クツールズプラス > 分割ワークブック 、スクリーンショットを参照してください：

2。 の中に 分割ワークブック ダイアログボックスで、次の操作を実行します。
（1）すべてのワークシート名はデフォルトでチェックされています。 一部のワークシートを分割したくない場合は、チェックを外すことができます。
（2）確認してください タイプを保存する オプション;
（3）から タイプとして保存 ドロップダウンで、分割して保存するファイルの種類をXNUMXつ選択します。
（4）次にクリックします スプリット

Note：非表示または空白のワークシートの分割を避けたい場合は、 非表示のワークシートをスキップする or 空白のワークシートをスキップする ボックス。

3。 [フォルダの参照]ダイアログで、分割された個別のファイルを保存する宛先フォルダを指定して、[ OK

これで、チェックされたワークシートが新しい個別のワークブックとして保存されます。 新しい各ワークブックには、元のワークシート名で名前が付けられます。 スクリーンショットを参照してください：

Kutools for Excel's 分割ワークブック このツールを使用すると、アクティブなワークブックを必要に応じて、個々のExcelファイル（XNUMXつのファイルにXNUMXつのワークシートが含まれる）、CSVファイル、TXTファイル、またはPDFファイルに簡単に分割できます。 空白および非表示のワークシートをすべてスキップするように設定できます。 無料トライアルを！

次のVBAコードは、現在のブックの複数のワークシートをすばやく分割してExcelファイルを分離するのに役立ちます。次のようにしてください。

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

2。 を押し続けます Alt + F11 Excelでキーを押すと、 アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

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ファイルに分割されます。 スクリーンショットを参照してください：

Note：シートのXNUMXつがブックと同じ名前の場合、このVBAは機能しません。

複数のワークブックをXNUMXつのワークブックに結合する

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