Excelで複数のシートを1つに結合する方法

同じデータ形式を持つ無数の 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 サイトの他の関連記事を参照してください。