メインコンテンツへスキップ

ブックを分割してExcelでExcelファイルを分離するにはどうすればよいですか?

大きなワークブックを分割してExcelファイルを分離し、ワークブックの各ワークシートを個別のExcelファイルとして保存する必要がある場合があります。 たとえば、ブックを複数の個別のExcelファイルに分割し、各ファイルを別の人に渡して処理することができます。 そうすることで、特定の人に特定のデータを処理させ、データを安全に保つことができます。 この記事では、大きなワークブックを分割して、各ワークシートに基づいてExcelファイルを分離する方法を紹介します。

  1. ブックを分割して、コピーと貼り付けでExcelファイルを分離します
  2. ブックを分割して、移動またはコピー機能でExcelファイルを分離する
  3. ブックを分割して、VBAコードでExcelファイルを分離する
  4. ワークブックを分割して、Kutools forExcelでExcel / PDF / CSV / TXTファイルを簡単に分離します

ブックを分割して、コピーと貼り付けでExcelファイルを分離します

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

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


ブックを分割して、移動またはコピー機能でExcelファイルを分離する

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

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

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

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

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

ブックをすばやく分割して、ExcelでExcel / PDF / TXT / CSVファイルを分離します

通常、ブックを個々のExcelファイルに分割できます。 移動またはコピー Excelの機能。 しかし、Excel用のKutools 分割ワークブック ユーティリティを使用すると、ブックを簡単に分割して、各ワークシートを個別のPDF / TEXT / CSVファイルまたはExcelでブックとして保存できます。


広告分割ワークブックExcel

Kutools for Excel - 300 以上の必須ツールで Excel を強化します。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 今すぐ入手

ブックを分割して、VBAコードでExcelファイルを分離する

次の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は機能しません。

ワークブックを分割して、Kutools forExcelでExcel / PDF / CSV / TXTファイルを簡単に分離します

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

Kutools for Excel - 300 以上の必須ツールで Excel を強化します。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 今すぐ入手

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

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

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

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

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

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


デモ:XNUMXつのワークブックの各ワークシートを個別のExcel / txt / csv / pdfファイルとして分割または保存します


Kutools for Excel: 300 を超える便利なツールをすぐに利用できます。 機能制限なしの 30 日間の無料トライアルを今すぐ始めてください。 今すぐダウンロード!

関連記事:

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト ツール (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット ツール (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

説明


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (113)
Rated 2.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hello.
Both options work fine. But ..not satisfying my needs.
In each sheet i have 2 extra columns at and which contain vlookup formulas. And they all get exported to new files..
I cant have that.I also cant go and delete all formulas from all sheets then export , too much work.
Any solution to export but to ignore those columns with formulas?
Rated 2.5 out of 5
This comment was minimized by the moderator on the site
I tried this in Office 365 and it copies 8 sheets to separate files then gives me "run-time error '1004': Copy Method of Worksheet Class failed"
This comment was minimized by the moderator on the site
Hi there, did you use the vba code or Kutools?
This comment was minimized by the moderator on the site
I was able to use this macro once and it was great but now it will not work and I only get one file labeled as "Sheet 1" and it is blank, can anyone help?
This comment was minimized by the moderator on the site
Hello, how can we split the sheets tow by tow ==< what i mean is that i have an amount of sheets in one folder and I want tow split each tow successive sheets in one folder, i have tried to put changes on the basic code but i didn't succeed, I'm a beginner in this field if you can be held that is going to be a huge help
This comment was minimized by the moderator on the site
xWs.Copy
showing error in this area
This comment was minimized by the moderator on the site
Hello, I just tried the split data function based on the first column (about 90 partners). Half of the worksheets are named correctly while the other just have number of the sheet eventhough there is name of the partner in the column. Any help, please?
This comment was minimized by the moderator on the site
i have a data of 5 worksheets. Every worksheet has a common column (Branch). Can i convert the data into different excel files based on respective branches
This comment was minimized by the moderator on the site
Hi Sudarshan,
Kutools for Excel has an amazing feature – Split Data, which can quickly split data from a range or a sheet to multiple sheets based on values in the specified column. And these sheets are saved in a new workbook.

You can apply the Split Data feature to split each sheet based on the specified common column.
After splitting, you can apply the Combine Worksheets feature, also provided by Kutools for Excel, and combine all same name worksheets into one workbook.
This comment was minimized by the moderator on the site
excel which i want to split is having 3 spread sheet my requirement is to split the excel as per the sheet 1 and remaning to sheet to be contant when file split
This comment was minimized by the moderator on the site
Hi prateeksha,
In the fourth method on this webpage, the Split Workbook feature of Kutools for Excel is recommended, which will split every specified worksheet to individual PDF/CSV/TEXT/Workbooks.
This comment was minimized by the moderator on the site
Hey there,
I was wondering if we can use this macro to split the workbook into csv files
I've changed the VBA as below, replacing "xlsx" with "csv", but it doesn't work:
Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".csv"
Thanks for your help!
This comment was minimized by the moderator on the site
Hi Kevin,
It recommends trying the fourth method to solve your problem. Kutools for Excel can be freely trial for 30 days. And the Split Workbook feature of Kutools for Excel can solve the problem easily.
This comment was minimized by the moderator on the site
Very helpful code. Just had one question. How can I make these excel files read-only. I tried the below but it did not work.

Application.ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations