Menyalin data dari beberapa lembar kerja menjadi satu vba

Dalam pekerjaan kita sehari-hari, kita mungkin menghadapi masalah yang menggabungkan ratusan lembar atau buku kerja menjadi satu lembar untuk menganalisis data yang memakan banyak waktu jika Anda menggunakan perintah Salin dan Tempel di Excel. Di sini, di tutorial ini, saya akan memberikan beberapa tip untuk menyelesaikan pekerjaan ini dengan cepat

NAVIGASI CEPAT

Menggabungkan semua lembar buku kerja aktif menjadi satu lembar dengan VBA

Di bagian ini, saya memberikan kode VBA yang akan membuat lembar baru untuk mengumpulkan semua lembar buku kerja aktif saat Anda menjalankannya

1. Aktifkan buku kerja yang ingin Anda gabungkan semua lembarnya, lalu tekan tombol Alt + F11 untuk membuka jendela Microsoft Visual Basic for Applications

2. Di jendela popping, klik Sisipkan > Modul untuk membuat skrip Modul baru

3. Salin kode di bawah ini dan tempelkan ke skrip

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

4. Tekan tombol F5, lalu semua data di seluruh sheet telah digabungkan menjadi sheet baru bernama Combined yang diletakkan di depan semua sheet.

Apakah Anda Ingin Mendapat Kenaikan Gaji dan Banyak Waktu Untuk Menemani Keluarga?

Tab Office Meningkatkan Efisiensi Anda Sebesar 50% Di Microsoft Office Bekerja Saat Ini

Baca Lebih Lanjut Unduh Gratis Sekarang

Menggabungkan puluhan sheet atau workbook menjadi satu worksheet/workbook dengan sekali klik

Dengan VBA, Anda hanya dapat menggabungkan lembar di buku kerja yang aktif, tetapi bagaimana cara menggabungkan lembar di seluruh buku kerja menjadi satu lembar atau buku kerja?

Gabungkan lembar di seluruh buku kerja menjadi satu lembar

Gabungkan lembar di seluruh buku kerja menjadi satu buku kerja

Untuk menyelesaikan pekerjaan ini dan memenuhi persyaratan lain pada kombinasi sheet, fungsi Combine telah dikembangkan dengan empat skenario kombinasi

• Gabungkan beberapa lembar atau buku kerja menjadi satu lembar
• Gabungkan beberapa lembar atau buku kerja menjadi satu buku kerja
• Gabungkan lembar nama yang sama menjadi satu lembar
• Gabungkan nilai di seluruh lembar atau buku kerja menjadi satu lembar

Di sini ambil opsi kedua sebagai contoh

Gabungkan beberapa lembar atau buku kerja menjadi satu buku kerja

Setelah menginstal Kutools for Excel gratis, silakan lakukan seperti di bawah ini

1. Aktifkan Excel, klik Kutools Plus > Gabungkan, sebuah dialog muncul untuk mengingatkan Anda bahwa buku kerja yang ingin Anda gabungkan perlu ditutup. Klik OK untuk melanjutkan

2. Dalam dialog Gabungkan Lembar Kerja langkah 1, centang opsi Gabungkan beberapa lembar kerja dari buku kerja menjadi satu buku kerja. Klik Berikutnya untuk pergi ke langkah wizard berikutnya

3. Klik Tambah > File atau Folder untuk menambahkan buku kerja yang ingin Anda gabungkan ke panel daftar Buku Kerja, lalu Anda bisa menentukan lembar kerja mana yang akan digabungkan dengan mencentang nama di panel daftar Lembar Kerja. Klik Next untuk pergi ke langkah terakhir wizard

4. Pada langkah ini, tentukan pengaturan yang Anda butuhkan. Kemudian klik Selesai

5. Sebuah jendela akan muncul untuk Anda memilih folder untuk menempatkan buku kerja gabungan, lalu klik Simpan

Sekarang buku kerja telah digabungkan menjadi satu buku kerja. Dan di depan semua lembar, lembar master bernama Kutools for Excel juga dibuat yang mencantumkan beberapa informasi tentang lembar dan tautan untuk setiap lembar

Demo. Gabungkan sheet/workbook menjadi satu sheet atau workbook

Kutools untuk Excel. 200+ alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik

Uji Coba Gratis Ucapkan Selamat Tinggal Pada Tangan Tikus dan Spondylosis Serviks Sekarang

300 alat canggih Kutools for Excel menyelesaikan 80% tugas Excel dalam hitungan detik, menarik Anda keluar dari ribuan klik mouse.

Menggabungkan dua tabel menjadi satu dan memperbarui kolom dengan klik

Jika Anda ingin menggabungkan dua tabel menjadi satu dan memperbarui data berdasarkan kolom seperti gambar di bawah ini, Anda dapat mencoba Tabel Menggabungkan utilitas dari Kutools for Excel

Kutools untuk Excel. lebih dari 200 add-in Excel praktis untuk menyederhanakan tugas rumit menjadi beberapa klik di Excel

Setelah menginstal Kutools for Excel gratis, silakan lakukan seperti di bawah ini

1. Klik Kutools Plus > Penggabungan Tabel untuk mengaktifkan wizard Penggabungan Tabel

Kutools untuk Excel

2. Di langkah 1 panduan, Anda perlu memilih tabel utama dan rentang tabel pencarian secara terpisah. Lalu klik Berikutnya

3. Periksa kolom kunci yang ingin Anda perbarui data di tabel utama berdasarkan. Klik Berikutnya

4. Kemudian periksa kolom di tabel utama yang ingin Anda perbarui datanya berdasarkan tabel pencarian. Klik Berikutnya

5. Di langkah 4 panduan, centang kolom yang ingin Anda tambahkan dari tabel pencarian ke tabel utama. Klik Berikutnya

6. Di langkah terakhir wizard, tentukan opsi pengaturan yang Anda butuhkan. Kemudian klik Selesai

Sekarang tabel utama telah memperbarui data dan menambahkan data baru berdasarkan tabel pencarian

Demo. Gabungkan sheet/workbook menjadi satu sheet atau workbook

Kutools untuk Excel. 200+ alat praktis yang berguna, menyederhanakan tugas rumit di Excel menjadi beberapa klik

Unduh File Contoh

Alat Produktivitas yang Direkomendasikan

Office Tab - Penjelajahan Tab, Pengeditan, Pengelolaan Dokumen Di Microsoft Office 2019 - 2003 Dan Office 365

Add-in Profesional untuk Mempercepat Excel 2019-2007, mengecilkan tugas berjam-jam menjadi detik

Add-in ini mencakup lusinan grup profesional, dengan 300+ opsi akan mengotomatiskan sebagian besar tugas harian Anda di Excel, dan meningkatkan produktivitas Anda setidaknya sebesar 50%. Seperti grup opton sekali klik dan konversi batch
Sekarang kesempatan Anda untuk mempercepat diri Anda dengan Kutools for Excel

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 168 )

Belum ada peringkat. Jadilah yang pertama menilai

Jason Mills

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

menggunakan fungsi Makro pertama Anda. WOW. terima kasih telah memposting

Membalas

0

0

Edwin M     Jason Mills

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya pikir kode 'Pilihan. Offset(0, 0). Ubah ukuran (Seleksi. Baris. Hitung - 1). Select' tidak harus ada. Di pihak saya, yang dilakukannya adalah memilih baris kedua dan seterusnya tanpa baris pertama

Membalas

0

0

Razina K     Edwin M

sekitar 7 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya memiliki masalah yang sama. Itu menghilangkan baris pertama dari lembar kerja kedua yang ditambahkan

Membalas

0

0

KJ     Razina K

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Menghilangkan tajuk sehingga Anda tidak memiliki tajuk ganda

Membalas

0

0

Shannon

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bekerja seperti pesona, terima kasih telah berbagi

Membalas

0

0

Daniel

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih. Makro bekerja dengan sempurna

Membalas

0

0

M. Anandhi

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

saya tidak tahu, bagaimana cara menggunakan fungsi VPN di excel, bisakah Anda membantu bagaimana melakukannya

Membalas

0

0

David Tkemaladze

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Keren terima kasih. Sangat Sangat Bermanfaat

Membalas

0

0

Yogesh

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Makro satu berfungsi dengan baik. terima kasih. Itu mengagumkan. . )

Membalas

0

0

randy

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Perhatikan bahwa ini dibatasi oleh batas baris 65k, jika Anda perlu menaikkan Seleksi baris. Salin Tujuan. =Lembar(1). Rentang("A65536"). Rentang End(xlUp)(2) untuk menyelesaikan masalah

Membalas

0

0

Craig     randy

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Namun alat yang hebat, itu tidak menggabungkan semua 21 lembar. Bagaimana cara memperluas jangkauan?

Membalas

0

0

gula-gulaJ

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

CATATAN. Anda harus berhati-hati dengan makro. ini akan berfungsi jika data Anda memiliki aliran informasi yang berkelanjutan dan tidak ada baris kosong. ini apa baris "Seleksi. Wilayah Saat Ini. Pilih" tidak. Misalnya, jika Anda perlu menyalin SEMUA data pada spreadsheet tetapi ada baris kosong di (misalkan) baris 200, makro hanya akan menyalin hingga baris 200;

Membalas

1

0

Carlos     gula-gulaJ

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah ada yang tahu perintah untuk menghindari masalah ini?? . Offset(1, 0). Ubah ukuran (Seleksi. Baris. Hitung - 1). Pilih dapat diselesaikan? . Baris. Hitung - 1) adalah perintah yang menyebabkan masalah. Siapa pun??

Membalas

0

0

Ed     Carlos

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Alih-alih memulai dari atas dan turun, mulailah dari bawah dan naik

Membalas

0

0

arno     Ed

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Adakah yang tahu kode untuk menyelesaikan masalah baris dan kolom kosong?. Saya memilikinya di data saya tetapi tidak ada solusi sederhana seperti memulai dari bawah ke atas?

Membalas

0

0

Diane     arno

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Untuk menghapus baris yang kosong. Pilihan 1. Pilih sel di kolom A yang perlu dihapus. Gunakan Ctrl - lalu pilih Seluruh Baris di munculan. Simpan buku kerja dan keluar. Kemudian buka buku kerja. pilihan 2. Pilih baris yang perlu dihapus. Gunakan Ctrl -. Simpan buku kerja dan keluar dari buku kerja yang terbuka. Berikan opsi 1 sehingga Anda dapat melihat apa yang terjadi. Untuk menghapus kolom yang kosong. Pilih kolom. Ctrl -. Simpan buku kerja dan keluar dari buku kerja yang terbuka

Membalas

0

0

arul kumar     arno

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah kami memiliki solusi untuk menyalin data di bawah sel kosong?

Membalas

Laporan

0

0

Eyan     gula-gulaJ

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih. Baris ke-2 saya kosong di semua lembar & saya bingung

Membalas

0

0

Lis

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

kode vba berfungsi dengan baik tetapi saya memerlukan lembar kerja gabungan untuk diperbarui saat saya menambahkan baris baru atau data baru ke sel di lembar kerja yang saya gabungkan. Apakah ada cara untuk melakukan itu?

Membalas

0

0

Lis

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kode makro berfungsi dengan baik untuk lembar kerja gabungan pertama, tetapi saya memerlukan lembar kerja gabungan untuk diperbarui saat saya menambahkan data ke lembar kerja yang ada yang saya gabungkan. Apakah ada cara untuk melakukan itu?

Membalas

0

0

MALLORY ANDERSON     Liz

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Apakah Anda pernah mengetahui cara memperbaruinya di master saat Anda menambahkan baris ke lembar kerja lain?

Membalas

0

0

anto

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kerja bagus. Ini telah mengurangi pekerjaan saya dari 2 jam menjadi 10 menit

Membalas

0

0

Idris Runijawala

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Luar biasa, saya menggunakan makro pertama dan Kutools, keduanya telah sangat mengurangi pekerjaan pengumpulan dan kompilasi data saya. Terima kasih telah berbagi

Membalas

0

0

Alper

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya baru saja menghapus bagian yang diberikan di bawah ini dan sekarang hanya memperbarui. Semoga ini membantu. Lembar(1). Pilih Lembar Kerja. Menambahkan

Membalas

0

0

Ikan Angela

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kode berfungsi dengan baik. Saya memerlukan makro untuk menyalin semua data di lembar. Itu memotong baris pertama setelah Lembar 1. Hanya sheet satu yang memiliki baris header, sheet lainnya hanyalah data. Apakah ini mungkin?

Membalas

0

0

Adnan

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya memiliki pertanyaan tentang "Gabungkan semua lembar kerja menjadi satu lembar kerja dengan kode VBA". Kode bekerja dengan sangat baik, tetapi hanya ketika kosong, itu menambahkan header, dimungkinkan untuk mengubah kode untuk mengatakan tidak mengkonsolidasikan lembar kosong?

Membalas

0

0

Driehlax

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih, Anda menyelamatkan saya satu jam untuk menyalin dan menempel. D

Membalas

0

0

Debbie

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Memiliki dua buku kerja, data yang sama tetapi yang kedua memiliki data tambahan dan beberapa data telah diperbarui, inv# Status 123 7/2 buka inv# status 123 7/2 buka 7/7 ditutup cara menggabungkan menjadi satu menghapus atau menyorot duplikat dan menambahkan

Membalas

0

0

Jogan

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Berfungsi dengan baik jika Kolom A Anda tidak-=kosong. Pada lembar dengan kolom A kosong, sepertinya ada yang ditimpa. Di kolom dtaa saya, E tidak kosong di semua lembar. Bagaimana saya bisa memodifikasi Tujuan Penyalinan untuk memperhitungkan kolom kosong A pada beberapa lembar?

Membalas

0

0

clopez

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1"). Pilih Rentang ("A1"). Pilih Pilihan. Akhir(xlDown). Pilih Range("A" & CStr(Seleksi. Baris) + 1). Pilih Lembar("Lembar" & CStr(i)). Pilih Rentang ("A2"). Pilih Rentang(Pilihan, Pilihan. Akhir(xlDown)). Pilih Rentang(Pilihan, Pilihan. Akhir(xlToRight)). Pilih Pilihan. Potong Lembar("Lembar1"). Pilih Lembar Aktif. Tempel Sub Akhir Berikutnya

Membalas

0

0

RamN     clopez

sekitar 8 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Rentang("A. SEBUAH"). Sel Khusus(xlCellTypeLastCell). Pilih Sel Aktif. Offset(1, 0). Pilih 'gunakan kode ini untuk memilih sel terakhir di kolom "A" [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1"). Pilih Rentang ("A1"). Pilih Pilihan. Akhir(xlDown). Pilih Range("A" & CStr(Seleksi. Baris) + 1). Pilih Lembar("Lembar" & CStr(i)). Pilih Rentang ("A2"). Pilih Rentang(Pilihan, Pilihan. Akhir(xlDown)). Pilih Rentang(Pilihan, Pilihan. Akhir(xlToRight)). Pilih Pilihan. Potong Lembar("Lembar1"). Pilih Lembar Aktif. Tempel Ujung Berikutnya SubBy clopez[/quote]

Bagaimana cara menyalin data dari beberapa lembar ke satu lembar dalam kode Excel VBA?

Bagaimana cara menarik data dari beberapa lembar kerja di Excel menggunakan makro?

Bagaimana cara menyalin beberapa lembar kerja menjadi satu?