KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel で各ワークシートを個別の新しいワークブックとしてエクスポートして保存するには、どうすればよいですか？

著者ケリー変更日

Excel で個々のワークシートを別々のブックとしてエクスポート・保存するのは、データを共有・整理する際によく行われる作業です。もちろん、ワークシートを手動でコピー＆ペーストして新しいブックに貼り付ける方法もありますが、特に複数のシートを含むブックでは、この作業は面倒で時間がかかってしまいます。本ガイドでは、この作業をステップごとに効率よく実現するためのいくつかの方法をご紹介し、あなたのニーズやスキルレベルにぴったりの解決策を見つけられるようサポートします。

「移動またはコピー」コマンドでワークシートを1 つずつ新しいワークブックとして保存する

「移動またはコピー」 コマンドを使えば、1 枚または複数のワークシートを新しいワークブックにすばやくエクスポートしたり、コピーしたりできます。

手順1：タブバーからワークシート名を選択します。複数のワークシートを選択するには、「Ctrl」キーを押しながら、各シートタブを1 つずつクリックしてください。

手順2：ワークシート名を右クリックし、「移動またはコピー」をコンテキストメニューから選択します。

手順3：「移動またはコピー」ダイアログボックスで、「ブックに選択したワークシートを移動」のドロップダウンリストから「（新しいブック）」を選択します。

シートを新しいワークブックに移動するオプションを示す「移動またはコピー」ダイアログボックスのスクリーンショット

手順4：「OK」をクリックすると、エクスポートまたはコピーされたワークシートを含む「新しいワークブック」に切り替わります。「ファイル」＞「名前を付けて保存」を選択して、新しいワークブックを保存してください。

注：「移動またはコピー」ダイアログボックスには「コピーを作成する」オプションがあります。このオプションをチェックしない場合、選択したワークシートは元のブックから移動されます。チェックすると、選択したワークシートがコピーされます。

Kutools for Excel でワークシートを簡単に一括して新しいワークブックとして保存する

複数のワークシートを別々のブックとして保存する必要がある場合、上記の最初の方法は適していません。また、以下の VBA コードはExcel 初心者にとってはやや複雑かもしれません。そこで、 「Kutools for Excel」の「ブックの分割」ユーティリティを使えば、1 つのブック内の各ワークシートを個別の新しいワークブックとして簡単に一括保存できます！

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。         無料トライアル。。。

Kutools for Excel をインストール後、「KUTOOLS PLUS」>「ブック」>「ブックの分割」をクリックして、「ブックの分割」ダイアログボックスを開き、次のように設定します。

  1. 新しいワークブックとして保存したいワークシートにチェックを入れてください。デフォルトでは、すべてのワークシートが選択されています。
  2. 「オプション」セクションで該当するチェックボックスをオンにすれば、非表示のワークシートや空白のワークシートをスキップすることもできます（任意）。
  3. 「OK」をクリックしてください。
  4. 「フォルダーの選択」ダイアログボックスが表示されたら、新しいワークブックを保存したいフォルダーを選んで、「フォルダーの選択」ボタンをクリックしてください。

その後、指定したワークシート（またはすべてのワークシート）が、すぐに個別の新しいワークブックとして保存されます。

注意事項：
  • この機能を使えば、各ワークシートを個別の TXT、CSV、または PSF ファイルとして簡単に保存できます。保存形式を指定するには、該当するチェックボックスにチェックを入れ、ドロップダウンから希望のオプションを選択するだけです。
    Kutools の「ワークブック分割」ユーティリティ内の「ファイルの種類」オプションのスクリーンショット
  • この機能をご利用いただくには、お使いのコンピューターに「Kutools for Excel」がインストールされている必要があります。Kutools for Excel を今すぐダウンロードしてください。

VBA コードでワークシートを新しいワークブックとしてエクスポートして保存する

以下のコードは、新しいワークブック内のすべての表示中のワークシートをエクスポートし、元のシート名でブックを保存します。保存先は、現在のワークブックと同じフォルダー内に新しく作成されるフォルダーです。次の手順に従ってください。

手順1：「ALT」＋「F11」キーを押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。

手順2：「挿入」＞「標準モジュール」をクリックし、表示されたモジュールウィンドウに次のマクロを貼り付けます。

VBA：新しいフォルダ内のワークシートを新しいワークブックとしてエクスポートして保存する

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

手順3：「F5」キーを押してこのコードを実行してください。プロンプトボックスが表示され、新しくエクスポートされたブックの保存場所がお知らせされます。元のブックに含まれるすべてのワークシートが、それぞれ元のシート名を保持した個別のブックとして、指定された新規フォルダー内にエクスポートされています。

ワークシートが新しいワークブックとして保存されたことを示す VBA コード出力のスクリーンショット

デモ：各シートを新しいワークブックとしてエクスポートして保存する

 
Kutools for Excel：300 個を超える便利なツールがすぐそこへ！AI 搭載の機能で、よりスマートでスピーディーな作業をぜひお楽しみください！今すぐダウンロード！

関連記事：

最高の Office 業務効率化ツール

🤖KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行   ｜  コード生成｜  カスタム数式作成  ｜  データ分析とチャート生成｜  拡張機能呼び出し…
人気の機能：検索・ハイライト、または重複をマーキング   ｜  空白行を削除する   ｜  データを失うことなく列の結合またはセルを   ｜  数式を使用しない四捨五入...
スーパー LOOKUP：複数条件 VLookup  ｜  複数値 VLookup  ｜   複数シート間 VLookup   ｜   ファジーマッチ....
高度なドロップダウンリスト：ドロップダウンリストをすばやく作成   ｜  連動型ドロップダウンリスト   ｜  複数選択可能なドロップダウンリスト....
列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
注目の機能：グリッドフォーカス   ｜  デザインビュー   ｜強化された数式バー   ｜ ワークブックとシートマネージャー   ｜  リソースライブラリ（オートテキスト）｜  日付ピッカー   ｜  ワークシートの統合  ｜  暗号化／セルの復号化   ｜ リストからメール送信   ｜  スーパーフィルター   ｜   特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。
トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜   50+チャートタイプ（ガントチャート、...）｜   40+実用的関数（誕生日に基づいて年齢を計算します、...）｜   19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜   12 変換ツール（単語に変換する、為替レートの変換、...）｜   7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数
Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

  • Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
  • 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
  • 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

ExcelWordOutlookTabsPowerPoint
  • オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
  • インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
  • 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
  • 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
  • 最高のお得感— 個別アドイン購入よりお得