Excel でブックを個別のExcel ファイルに分割する方法は？

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

分割したいワークシートが数枚だけの場合はこの方法が簡単ですが、多くのワークシートを手動でコピー＆ペーストするのは時間も手間もかかります。

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

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

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

2．「移動またはコピー」ダイアログボックスで、ブック先のドロップダウンリストから（新しいブック）を選択し、コピーを作成するオプションをオンにして、OKボタンをクリックしてください。スクリーンショットを参照してください。

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

お使いの環境にKutools for Excelがインストール済みなら、そのブックの分割ツールを使えば、わずか数回のクリックで複数のワークシートを個別のExcel ファイルにスピーディーかつ簡単に分割できます。

1．Kutools for Excelをインストール後、KUTOOLS PLUS＞ブックの分割をクリックしてください。スクリーンショットを参照してください。

2．ブックの分割ダイアログボックスで、以下の操作を行ってください。
（1）デフォルトですべてのワークシート名がチェックされています。分割したくないワークシートがある場合は、チェックを外してください。
（2）ファイル形式を保存オプションをオンにしてください。
（3）保存形式を指定ドロップダウンから、分割して保存したいファイル形式を1 つ選択してください。
（4）その後、分割ボタンをクリックしてください。

注：非表示または空白のワークシートを分割対象外にするには、非表示のワークシートを無視または空白のワークシートを無視のチェックボックスをオンにしてください。

3．「フォルダーの参照」ダイアログで、分割後の個別ファイルを保存するフォルダーを指定し、OKボタンをクリックします。

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

Kutools for Excelのブックの分割ツールを使えば、現在のワークブックを簡単に個別の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 つのブックに統合する

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