Cara Cepat Menggabungkan Data dari 2 Sheet atau Lebih dengan Macro hanya 1 Kali Klik

Excel-id.com | Masih tetap semangat belajar Excel? jika Ya mari kita lanjutkan dengan tutorial bagaimana cara cepat menggabungkan data dari dua sheet yang berbeda atau bahkan lebih dari dua sheet. Untuk menggabungkan data seperti yang telah biasa dilakukan oleh para pengguna Excel biasanya dengan menggunakan copy kemudian paste. Kali ini akan saya buat berbeda ini akan mempercepat pengolahan data pada Ms. Excel Anda.

Ini dia script VBA yang dapat saya berikan untuk Anda

Option Explicit
Sub GabungkanData()

Dim myWksNames As Variant
Dim iCtr As Long
Dim newWks As Worksheet
Dim NextRow As Long

myWksNames = Array("sheet1", "sheet2")

Set newWks = Worksheets.Add

NextRow = 1

With ActiveWorkbook
For iCtr = LBound(myWksNames) To UBound(myWksNames)
.Worksheets(myWksNames(iCtr)).UsedRange.Copy
With newWks
 Application.Goto .Cells(NextRow, "A")
.Pictures.Paste Link:=True
NextRow = .Pictures(.Pictures.Count).BottomRightCell.Row + 1
End With
Next iCtr
End With
End Sub

Silakan copykan script VBA diatas kemudian pastekan pada Module1. Untuk menyisipkan module sudah pernah saya bahas sebelumnya dan lebih jelasnya hasil paste script diatas tampak seperti gambar berikut



Setelah sript VBA Anda paste kan silakan buat dua buah data pada sheet 1 dan data pada sheet 2



Setelah dibuat data pada masing-masing sheet langkah berikutnya silakan buat sebuah CommandButton pada Sheet1



Jika sudah selesai maka akan tampil Assingn Macro silakan pilih atau klik Macro name GabungkanData kemudian klik OK




Untuk menguji coba hasil script VBA macro excel ini silakan klik tombol yang telah dibuat dan perhatikan apa yang terjadi

Selesai, Data yang ada di sheet1 dan data yang ada di sheet2 telah berhasil digabungkan hanya dengan satu kali klik dan data ini akan dibuat pada sheet baru. Semoga cara cepat menggabungkan data dari 2 sheet atau lebih ini bermanfaat.

Tweet