Note: The other languages of the website are Google-translated. Back to English

ワークシートまたはワークブックをXNUMXつのワークシートにマージまたは統合するにはどうすればよいですか?

私たちの日常業務では、Excelで[コピーして貼り付け]コマンドを使用すると、データを分析するために数百枚のシートまたはブックをXNUMX枚のシートにマージするという問題が発生する場合があります。 このチュートリアルでは、この仕事をすばやく解決するためのヒントをいくつか紹介します。

ドキュメント結合1

クイックナビゲーション

アクティブなブックのすべてのシートをVBAを使用してXNUMXつのシートにマージする
数十枚のシートまたはワークブックをXNUMXつのワークシート/ワークブックにクリックでマージ
XNUMXつのテーブルをXNUMXつにマージし、クリックで列ごとに更新します
サンプルファイルをダウンロードする


アクティブなブックのすべてのシートをVBAを使用してXNUMXつのシートにマージする

このセクションでは、実行中にアクティブなブックのすべてのシートを収集するための新しいシートを作成するVBAコードを提供します。

1.すべてのシートを結合するワークブックをアクティブにしてからを押します + 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2.ポップウィンドウで、をクリックします インセット > モジュール 新しいモジュールスクリプトを作成します。

3.以下のコードをコピーして、スクリプトに貼り付けます。

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
ドキュメント結合2

4。 押す F5 キーを押すと、シート全体のすべてのデータが、すべてのシートの前面に配置されるCombinedという名前の新しいシートにマージされます。


移動する

あなたは昇給と家族と一緒に多くの時間を過ごしたいですか?

Officeタブは、現在作業中のMicrosoft Officeで効率を50%向上させます

信じられないほど、XNUMXつ以上のドキュメントで作業する方が、XNUMXつで作業するよりも簡単で高速です。

よく知られているブラウザと比較して、Officeタブのタブ付きツールはより強力で効率的です。

毎日何百ものマウスクリックとキーボード入力を減らして、今すぐマウスの手に別れを告げましょう。

通常、複数のドキュメントで作業する場合は、Officeタブを使用すると時間を大幅に節約できます。

30日無料トライアル、クレジットカードは必要ありません。

続きを読む今すぐダウンロード


数十枚のシートまたはワークブックをXNUMXつのワークシート/ワークブックにクリックでマージ

VBAを使用すると、アクティブなブック内のシートのみを組み合わせることができますが、ブック間でシートをシートまたはブックにマージするにはどうすればよいですか?

ブック全体のシートをXNUMXつのシートにマージします
ドキュメント結合18

ブック全体のシートをXNUMXつのブックにマージします
ドキュメント結合3

この仕事を解決し、シートの組み合わせに関する他の要件を満たすために、 組み合わせる 関数は、次のXNUMXつの組み合わせシナリオで開発されました。

  • 複数のシートまたはワークブックをXNUMXつのシートに結合します
  • 複数のシートまたはワークブックをXNUMXつのワークブックに結合する
  • 同じ名前のシートをXNUMXつのシートに結合します
  • シートまたはワークブック全体の値をXNUMXつのシートに統合します

次に、XNUMX番目のオプションをインスタンスとして使用します。

複数のシートまたはワークブックをXNUMXつのワークブックに結合する

後の 無料インストール Kutools for Excel、以下のようにしてください:

1. Excelをアクティブにして、をクリックします クツールズプラス > 組み合わせる、ダイアログがポップアップ表示され、結合するワークブックを閉じる必要があることを通知します。 クリック OK 続行します。
ドキュメント結合4
ドキュメント結合5

2。 の中に ワークシートを組み合わせるステップ1 ダイアログ、チェック ワークブックの複数のワークシートをXNUMXつのワークブックに結合します オプション。 クリック ウィザードの次のステップに進みます。
ドキュメント結合6

3。 クリック 追加 > フィレット or フォルダ 結合するワークブックをに追加するには ワークブックリスト ペインで、名前をチェックすることにより、どのワークシートを結合するかを指定できます。 ワークシートリスト ペイン。 クリック ウィザードの最後のステップに進みます。
ドキュメント結合7

4.このステップでは、必要に応じて設定を指定します。 次に、をクリックします 終了.
ドキュメント結合8

5.結合されたブックを配置するフォルダーを選択するためのウィンドウがポップアップし、[ セールで節約.
ドキュメント結合9

これで、ワークブックがXNUMXつのワークブックにマージされました。 また、すべてのシートの前面に、Kutools for Excelという名前のマスターシートも作成され、シートに関する情報と各シートのリンクが一覧表示されます。
ドキュメント結合10

デモ:シート/ワークブックをXNUMXつのシートまたはワークブックに結合します

Kutools for Excel:200+便利な便利なツール。Excelの複雑なタスクを数回クリックするだけで簡単に行えます。

今すぐマウスの手と頸椎症に別れを告げる

Kutools for Excelの300の高度なツールは、80%のExcelタスクを数秒で解決し、何千ものマウスクリックからあなたを引き出します。

1500の作業シナリオに簡単に対処でき、ソリューションを探すために時間を無駄にする必要がなく、人生を楽しむための多くの時間があります。

もちろんあなたも含めて、毎日80人以上の非常に効果的な人々の生産性を110000%向上させます。

痛みを伴うフォーミュラやVBAに悩まされることはもうありません。脳を休ませ、楽しい働きをしてください。

フル機能を備えた30日間の無料トライアル、理由なしに30日間の返金。

より良い体はより良い生活を創造します。


XNUMXつのテーブルをXNUMXつにマージし、クリックで列ごとに更新します

XNUMXつのテーブルをXNUMXつにマージし、以下のスクリーンショットに示すように列に基づいてデータを更新する場合は、 テーブルマージ の有用性 Kutools for Excel.
ドキュメント結合11

Kutools for Excel:複雑なタスクをExcelで数回クリックするだけで簡素化する、200を超える便利なExcelアドイン

後の 無料インストール Kutools for Excel、以下のようにしてください:

1。 クリック クツールズプラス > テーブルマージ 有効にする テーブルマージ ウィザードを起動します。
ドキュメント結合12

2.ウィザードのステップ1で、メインテーブルとルックアップテーブルの範囲を個別に選択する必要があります。 次に、をクリックします .
ドキュメント結合13

3.ベースのメインテーブルのデータを更新するキー列をチェックします。 クリック .
ドキュメント結合14

4.次に、ルックアップテーブルに基づいてデータを更新するメインテーブルの列を確認します。 クリック .
ドキュメント結合15

5.ウィザードのステップ4で、ルックアップテーブルからメインテーブルに追加する列を確認します。 クリック .
ドキュメント結合16

6.ウィザードの最後のステップで、必要に応じて設定オプションを指定します。 次に、をクリックします 終了.
ドキュメント結合17

これで、メインテーブルのデータが更新され、ルックアップテーブルに基づいて新しいデータが追加されました。

デモ:シート/ワークブックをXNUMXつのシートまたはワークブックに結合します

Kutools for Excel:200+便利な便利なツール。Excelの複雑なタスクを数回クリックするだけで簡単に行えます。


サンプルファイルのダウンロード

サンプル


推奨される生産性ツール

Officeタブ-MicrosoftOffice2019-2003およびOffice365でのドキュメントのタブブラウジング、編集、管理


オフィスタブ

Excel 2019-2007を高速化するためのプロフェッショナルアドイン、時間タスクを秒に短縮

このアドインには数十の専門家グループが含まれており、300以上のオプションにより、Excelでの日常のタスクのほとんどが自動化され、生産性が少なくとも50%向上します。 ワンクリックオプトンのグループやバッチ変換など。
今こそ、Kutools forExcelでスピードアップするチャンスです!


コメントを並べ替える
コメント (168)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
最初のマクロ関数を使用しました。 おお! 投稿してくれてありがとう
このコメントは、サイトのモデレーターによって最小化されました
私はコードだと思います'Selection.Offset(0、0).Resize(Selection.Rows.Count-1).Select'そこにある必要はありません。 私の側では、最初の行が欠落しているXNUMX番目以降の行を選択します。
このコメントは、サイトのモデレーターによって最小化されました
私も同じ問題を抱えてる。 追加されたXNUMX番目のワークシートから最初の行が省略されています。
このコメントは、サイトのモデレーターによって最小化されました
ヘッダーが重複しないようにヘッダーを削除します
このコメントは、サイトのモデレーターによって最小化されました
チャームのように機能します。共有してくれてありがとう!
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございました! マクロは完全に機能しました。
このコメントは、サイトのモデレーターによって最小化されました
ExcelでVBN関数を使用する方法がわかりません。その方法を教えてください。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしいです、ありがとう!!! 非常に非常に便利
このコメントは、サイトのモデレーターによって最小化されました
マクロXNUMXは正常に動作します。 ありがとう!! それは素晴らしいです!!!! :)
このコメントは、サイトのモデレーターによって最小化されました
問題を解決するために行Selection.CopyDestination:= Sheets(65).Range( "A1")。End(xlUp)(65536)範囲を上げる必要がある場合、これは2k行の制限によって制限されることに注意してください。
このコメントは、サイトのモデレーターによって最小化されました
素晴らしいツールですが、21枚すべてを組み合わせているわけではありません。 どうすれば範囲を拡大できますか?
このコメントは、サイトのモデレーターによって最小化されました
ノート!!! マクロには注意する必要があります。データに継続的な情報の流れがあり、空白行がない場合に機能します。 これは、「Selection.CurrentRegion.Select」という行が行うことです。 たとえば、スプレッドシート上のすべてのデータをコピーする必要があるが、(たとえば)行200に空白行がある場合、マクロは行200にのみコピーします。 その行より下のすべてのデータは無視されます!!!
このコメントは、サイトのモデレーターによって最小化されました
この問題を回避するコマンドを知っている人はいますか? Selection.Offset(1、0).Resize(Selection.Rows.Count-1).Selectの問題は解決できますか? Selection.Rows.Count-1)は、問題の原因となったコマンドです。 誰??
このコメントは、サイトのモデレーターによって最小化されました
上から始めて下に行くのではなく、下から始めて上に行く
このコメントは、サイトのモデレーターによって最小化されました
空の行と列の問題を解決するためのコードを知っている人はいますか? 私は自分のデータにそれを持っていますが、ボトムアップで始めるような簡単な解決策はありませんか? ありがとう!
このコメントは、サイトのモデレーターによって最小化されました
空の行を削除する場合:オプション1:削除する必要がある列Aのセルを選択します。 Ctrlキーを押しながら、ポップアップで[行全体]を選択します。 ブックを保存して終了します。 次に、ブックを開きます。 オプション2:削除する必要のある行を選択します。 Ctrl-を使用します。 ブックを保存して、開いているブックを終了します。 オプション1を指定して、何が起こっているかがわかるようにしました。 空の列を削除する場合:列を選択します。 Ctrl-。 ブックを保存して、開いているブックを終了します。
このコメントは、サイトのモデレーターによって最小化されました
空白のセルの下にデータをコピーするための解決策はありますか?
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございました ! 私の2列目はすべてのシートで空で、混乱していました。
このコメントは、サイトのモデレーターによって最小化されました
vbaコードはうまく機能しましたが、結合しているワークシートのセルに新しい行または新しいデータを追加するときに、結合されたワークシートを更新する必要があります。 それを行う方法はありますか? ご協力ありがとうございました。
このコメントは、サイトのモデレーターによって最小化されました
マクロコードは最初の結合されたワークシートでうまく機能しましたが、結合している既存のワークシートにデータを追加するときに、結合されたワークシートを更新する必要があります。 それを行う方法はありますか?
このコメントは、サイトのモデレーターによって最小化されました
他のワークシートに行を追加するときに、マスターで更新する方法を理解したことがありますか?
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい仕事..これは私の仕事を2時間から10分に減らしました。
このコメントは、サイトのモデレーターによって最小化されました
すばらしいです。最初のマクロとKutoolsの両方を使用しました。どちらも、データ収集とコンパイルの作業を大幅に削減しました。 共有していただきありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
以下の部分を消去したところ、更新されるだけです。 これがお役に立てば幸いです...Sheets(1).SelectWorksheets.Add
このコメントは、サイトのモデレーターによって最小化されました
コードはうまく機能します! シート上のすべてのデータをコピーするためのマクロが必要です。 シート1の後の最初の行を切り取っています。シートXNUMXのみにヘッダー行があり、他のシートは単なるデータです。 これは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
「すべてのワークシートをVBAコードでXNUMXつのワークシートにマージする」について質問があります。コードは非常にうまく機能しますが、空の場合にのみヘッダーが追加され、空のシートを統合しないようにコードを変更できますか?
このコメントは、サイトのモデレーターによって最小化されました
コピーアンドペーストの時間を節約してくれてありがとう:D
このコメントは、サイトのモデレーターによって最小化されました
123つのワークブックがあり、同じデータですが、7つ目のワークブックには追加のデータがあり、一部のデータが更新されています。inv#ステータス2 123/7オープンinv#ステータス2/7オープン7/XNUMXクローズXNUMXつにマージする方法重複の削除または強調表示と追加最初のものにない新しいinv#
このコメントは、サイトのモデレーターによって最小化されました
列Aが非=空白の場合にうまく機能します。 A列が空白のシートでは、上書きしているようです。 私のdtaa列では、Eはすべてのシートで空白ではありません。 一部のシートの空白の列Aを考慮して、コピー先を変更するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
Sub CopySheet()'' CopySheet Macro'' Dim i As Integer For i = 2 To 25 Sheets( "Sheet1")。Select Range( "A1")。Select Selection.End(xlDown).Select Range( "A"& CStr(Selection.Row)+ 1).Select Sheets( "Sheet"&CStr(i))。Select Range( "A2")。Select Range(Selection、Selection.End(xlDown))。Select Range(Selection、Selection .End(xlToRight))。Select Selection.Cut Sheets( "Sheet1")。Select ActiveSheet.Paste Next End Sub
このコメントは、サイトのモデレーターによって最小化されました
Range( "A:A")。SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1、0).Select'このコードを使用して、列"A"の最後のセルを選択します[quote]SubCopySheet()'' CopySheet Macro ' 'Dim i As Integer For i = 2 To 25 Sheets( "Sheet1")。Select Range( "A1")。Select Selection.End(xlDown).Select Range( "A"&CStr(Selection.Row)+ 1) .Select Sheets( "Sheet"&CStr(i))。Select Range( "A2")。Select Range(Selection、Selection.End(xlDown))。Select Range(Selection、Selection.End(xlToRight))。SelectSelection .Cut Sheets( "Sheet1")。ActiveSheetを選択します。NextEndSubを貼り付けますclopezによる[/見積もり]
このコメントは、サイトのモデレーターによって最小化されました
マクロコードは非常にうまく機能しました...FABジョブ:-)
ここにはまだコメントが投稿されていません
もっと読み込む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所