同じデータ形式を持つ無数の Excel テーブル ファイルを 1 つの Excel ワークブックに結合し、その後のスクリーニング、データ抽出、分析などを容易にするため。
これは 2 つのステップで行う必要があります:
最初のステップ: すべての Excel を 1 つの Excel にマージします。先ほどの複数のテーブルの内容は、以下のテーブルと複数のシートを提示します。
ステップ 2: この Excel 内の複数のシートを 1 つのシートに結合します。
必要な基本ソフト:VBAを搭載したエクセルソフト、VBAを搭載したマイクロソフト社のオフィス、または国産wpsのプロフェッショナル版をご利用いただけます。
具体的な手順については以下で説明します
さまざまなテーブルを多数のシートを含む 1 つのテーブルに結合します
1. 新しいテーブルを作成します1 つのワークブックに、結合した名前を付けます。
2. このワークブックを開きます。
3. その下のワークシート ラベルを右クリックし、[コードの表示] を選択します。 (wps のこのボタンは開発ツールの下にあります)
4. 開いている VBA 編集ウィンドウに次のコードを貼り付けます:
Sub Worksheet merge()
Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: MsgBox Err.Description End Sub
5. VBA 編集ウィンドウを閉じます。
6. Excel で、[ツール] -- [マクロ] -- [マクロ] に移動し、[ワークブック間でワークシートを結合する] を選択し、[実行] を選択します。
7. 開いたダイアログ ウィンドウで、結合するワークシートを選択します。ワークシートが多数ある場合は、フォルダーに入れてすべて選択します。
8. 待ってください。 。 。 。わかりました!
2 1 つのシート内の多数のシートを 1 つのシートに結合します
1. 複数のシートを含むワークブック (たとえば、複数のワークブックを結合した後、n シートのワークブック)、新しいシートを作成します
2. 新しく作成したシートラベルを右クリックし、「コードの表示」を選択します(wpsのボタンは開発ツールの下にあります)
3 . 以下のコードを貼り付けます開いている VBA 編集ウィンドウで:
Sub 現在のワークブックの下にあるすべてのワークシートをマージします ()
Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> ActiveSheet.Name Then X = Range("A65536").End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range("B1").Select Application.ScreenUpdating = True MsgBox "当前工作簿下的全部工作表已经合并完毕!", vbInformation, "提示" End Sub
実行してお待ちください...マージされました その後、プロンプトがポップアップ表示されます。 。
以上がExcelで複数のシートを1つに結合する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。