Excel - Gabungkan beberapa lembaran kerja ke satu sama lain

Isu

Saya menggunakan Excel untuk menyimpan maklumat mengenai beberapa produk dan mempunyai lembaran kerja yang berbeza untuk setiap julat. Bagaimana untuk bergabung (menggabungkan secara bersamaan) semua lembaran kerja ini ke dalam halaman tunggal? Semua lembaran kerja jumlah lajur yang sama, dengan tajuk yang sama (di baris atas).

Bagaimana untuk teruskan?

Penyelesaian

Dengan mengandaikan bahawa:

1. Lembaran bertajuk Disatukan boleh dibuat dan dipadamkan oleh makro

2. Pengepala berada pada baris 1 pada semua helaian dan biasa untuk semua

3. Semua helaian hendaklah disalin

 Sub CombineSheets () Dim lConRow Sebagai Long Dim Sheet Sebagai Variant Dim sConsolidatedSheet Sebagai String Dim lSheetRow Sebagai Long Dim sLastCol Sebagai String sConsolidatedSheet = "Disatukan" Pada Ralat Teruskan Lembaran seterusnya (sConsolidatedSheet) .Delete Pada Kesalahan GoTo 0 Sheets.Add ActiveSheet.Name = sConsolidatedSheet Untuk Setiap Lembaran Dalam Helaian Jika Sheet.Name = sConsolidatedSheet Kemudian GoTo Next_Sheet Jika sLastCol = "" Lalu sLastCol = Sheet.Cells (1, Columns.Count) .End (xlToLeft) .Address Sheets (sConsolidatedSheet) .Range ("1: LSheetRow = 0 Pada Ralat Ralat lSheetRow = Sheet.Cells.Find ("*", Sel (1, 1), SearchOrder: = (LSheetRow> 1) Kemudian Lembar (sConsolidatedSheet) .Pendang (lConRow + 1 & ":" & lSheetRow + lConRow - 1) = Sheet.Range ("2:" & lSheetRow) .Value lConRow = Sheet (sConsolidatedSheet) .Cells.Find ("*", Sel (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Row End If Next_Sheet: Next End Sub 

Terima kasih kepada rizvisa1 untuk tip ini.