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?