Vbscript untuk menggabungkan beberapa lembar excel menjadi satu lembar

Pada artikel ini, saya akan menunjukkan kepada Anda bagaimana Anda bisa menggabungkan kumpulan data dari beberapa lembar menjadi satu lembar dengan VBA di Excel

Daftar isi

Download Buku Latihan

Unduh buku latihan latihan ini untuk berolahraga saat Anda membaca artikel ini

Menggabungkan Beberapa Lembar menjadi Satu Lembar. xlsm

2 Cara Menggabungkan Beberapa Sheet Menjadi Satu Sheet dengan VBA

Di sini kami memiliki buku kerja yang terdiri dari 3 lembar kerja, Lembar1, Lembar2, dan Lembar3. Masing-masing berisi catatan penjualan beberapa produk dari 3 minggu yang berbeda

Sheet1 berisi catatan penjualan Minggu 1

Sheet2 berisi catatan penjualan Minggu ke-2

Dan Sheet3 berisi catatan penjualan Minggu ke-3

Tujuan kita hari ini adalah menggabungkan kumpulan data dari beberapa lembar kerja ini menjadi satu lembar kerja dengan Aplikasi Visual Basic (VBA)

1. Gabungkan Kumpulan Data dari Beberapa Lembar menjadi Satu Lembar dengan VBA Row-wise

Pertama, kami akan menggabungkan kumpulan data menjadi satu lembar dengan baris-baris VBA

Anda dapat menggunakan kode VBA berikut untuk tujuan ini

⧭ Kode VBA

Sub Merge_Multiple_Sheets_Row_Wise()

Dim Work_Sheets() As String
ReDim Work_Sheets(Sheets.Count)

For i = 0 To Sheets.Count - 1
    Work_Sheets(i) = Sheets(i + 1).Name
Next i

Sheets.Add.Name = "Combined Sheet"

Dim Row_Index As Integer
Row_Index = Worksheets(1).UsedRange.Cells(1, 1).Row

Dim Column_Index As Integer
Column_Index = 0

For i = 0 To Sheets.Count - 2
    Set Rng = Worksheets(Work_Sheets(i)).UsedRange
Rng.Copy
    Worksheets("Combined Sheet").Cells(Row_Index, Column_Index + 1).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    Column_Index = Column_Index + Rng.Columns.Count + 1
Next i

Application.CutCopyMode = False

End Sub

⧭ Keluaran

Jalankan ini (Merge_Multiple_Sheets_Row_Wise) dan Anda akan menemukan kumpulan data dari semua lembar kerja digabungkan menjadi satu lembar kerja yang disebut Combined_Sheet baris-bijaksana

⧭ Catatan

• Di sini, nama lembar kerja yang digabungkan adalah "Lembar Gabungan". Jika Anda ingin menamainya dengan nama lain, beri nama di baris kode ke-7 dan ke-15

            Spreadsheet. Menambahkan. Nama = “Lembar Gabungan”

• Saya telah menempatkan 1 celah kolom di antara masing-masing kumpulan data di lembar gabungan. Jika Anda ingin mengubahnya, ubahlah di baris ke-16 kode

Kolom_Indeks = Kolom_Indeks + Rng. Kolom. Hitung + 1

Konten Terkait. Cara Menggabungkan Beberapa File Excel Menjadi Satu Lembar (4 Metode)

Bacaan Serupa

• Cara Menggabungkan Baris di Excel (6 Metode)
• Menggabungkan Lembar di Excel (6 Cara termudah)
• Cara Menggabungkan Kolom Menjadi Satu Daftar di Excel (4 Cara Mudah)

2. Gabungkan Kumpulan Data dari Beberapa Lembar menjadi Satu Lembar dengan VBA Column-wise

Sekarang kami akan menggabungkan lagi kumpulan data dari beberapa lembar kerja menjadi satu lembar, tetapi kali ini kami akan menggabungkannya berdasarkan kolom

Gunakan kode VBA berikut

⧭ Kode VBA

Sub Merge_Multiple_Sheets_Column_Wise()

Dim Work_Sheets() As String
ReDim Work_Sheets(Sheets.Count)

For i = 0 To Sheets.Count - 1
    Work_Sheets(i) = Sheets(i + 1).Name
Next i

Sheets.Add.Name = "Combined Sheet"

Dim Column_Index As Integer
Column_Index = Worksheets(1).UsedRange.Cells(1, 1).Column

Dim Row_Index As Integer
Row_Index = 0

For i = 0 To Sheets.Count - 2
    Set Rng = Worksheets(Work_Sheets(i)).UsedRange
    Rng.Copy
    Worksheets("Combined Sheet").Cells(Row_Index + 1, Column_Index).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    Row_Index = Row_Index + Rng.Rows.Count + 1
Next i

Application.CutCopyMode = False

End Sub

⧭ Keluaran

Jalankan ini (Merge_Multiple_Sheets_Column_Wise) dan Anda akan menemukan kumpulan data dari semua lembar kerja digabungkan menjadi satu lembar kerja yang disebut Combined_Sheet berdasarkan kolom

⧭ Catatan

• Di sini juga, nama lembar kerja yang digabungkan adalah "Lembar Gabungan". Jika Anda ingin menamainya dengan nama lain, beri nama di baris ke-7 dan baris ke-15 kode

             Spreadsheet. Menambahkan. Nama = “Lembar Gabungan”

• Saya telah menempatkan 1 celah baris di antara masing-masing kumpulan data di lembar gabungan. Jika Anda ingin mengubahnya, ubahlah di baris ke-16 kode

            Row_Index = Row_Index + Rng. Baris. Hitung + 1

Baca Selengkapnya. Cara Menggabungkan Dua Lembar Excel Berdasarkan Satu Kolom (3 Cara)

Hal-hal untuk diingat

Setiap kali Anda menjalankan salah satu dari kode ini, Excel membuka lembar kerja baru yang disebut "Lembar Gabungan" untuk Anda di buku kerja yang aktif. Jadi, jika Anda sudah memiliki lembar kerja dengan nama yang sama di buku kerja aktif Anda, ganti nama atau hapus sebelum menjalankan kode. Jika tidak, Anda akan mendapatkan kesalahan dan kode tidak akan berjalan

Kesimpulan

Dengan menggunakan metode ini, Anda dapat menggabungkan kumpulan data dari beberapa lembar menjadi satu lembar dengan VBA baik berdasarkan baris maupun kolom. Apakah Anda memiliki masalah?

Bagaimana cara menggabungkan beberapa lembar Excel menjadi satu lembar data?

Bagaimana cara menggabungkan beberapa lembar kerja menjadi satu di VBA?

Bagaimana cara menggabungkan beberapa lembar kerja menjadi satu buku kerja?

Bagaimana cara menggabungkan beberapa lembar dengan header yang sama di Excel VBA?