Excel - Gabungkan beberapa lembar kerja menjadi satu

Isu

Saya menggunakan Excel untuk menyimpan informasi tentang beberapa produk dan memiliki lembar kerja yang berbeda untuk setiap rentang. Bagaimana cara menggabungkan (secara berurutan menggabungkan) semua lembar kerja ini menjadi satu halaman? Semua lembar kerja memiliki jumlah kolom yang sama, dengan judul yang sama (di baris atas).

Bagaimana untuk melanjutkan?

Larutan

Berasumsi bahwa:

1. Lembar berjudul Konsolidasi dapat dibuat dan dihapus secara makro

2. Header ada di baris 1 di semua sheet dan umum untuk semua

3. Semua lembar harus disalin

 Sub CombineSheets () Dim lConRow As Long Dim Sheet Sebagai Variant Dim sConsolidatedSheet As String Dim lSheetRow As Long Dim sLastCol As String sConsolidatedSheet = "Terkonsolidasi" Pada Resume Resume Lembar Selanjutnya (sConsolidatedSheet). Hapus Tentang Kesalahan. sConsolidatedSheet Untuk Setiap Lembar Dalam Lembar Jika Lembar.Nama = sConsolidatedSheet Kemudian Pergi Selanjutnya_Sheet Jika sLastCol = "" Kemudian sLastCol = Lembar.Cells (1, Kolom.Count) .End (xlToLeft) .Address Sheets (s: 1) " 1 ") = Sheet.Range (" 1: 1 "). Nilai lConRow = 1 End Jika lSheetRow = 0 Pada Error Resume Selanjutnya lSheetRow = Sheet.Cells.Find (" * ", Cells (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious) .Row On GoTo 0 If (lSheetRow> 1) Kemudian Sheets (sConsolidatedSheet) .Range (lConRow + 1 & ":" & lSheetRow + lConRow - 1) = Sheet.Range (":": " & lSheetRow) .Value lConRow = Sheets (sConsolidatedSheet) .Cells.Find ("*", Cells (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlSebelumnya) .Row End Jika Next_Sheet: Next End Sub 

Terima kasih kepada rizvisa1 untuk tip ini.