Mengcopy Data dan Menghapus Duplikat di VBA Excel

Setelah sekian lama tidak update di situs ini, kali ini Saya akan menyajikan tutorial atas dasar permintaan salah satu pembaca yang mengemail Saya. Beliau ingin tahu cara menyalin data dari satu sheet yang berisi kumpulan data unik yang mana banyak kesamaan data dan beliau juga butuh menghilangkan kesamaan data yang ada pada tabel tersebut.

Jika Anda memiliki keluhan yang sama dengan pengirim tadi, berarti Anda beruntung dapat singgah di postingan ini, namun jika Anda tidak memiliki keluhan serupa, mungkin Anda bisa belajar dari kasus tersebut dan mencoba menemukan solusinya di artikel ini.

Solusinya sederhana, untuk mengcopy data, Anda bisa menggunakan property copy dan menempelkan dengan paste. Sebelumnya pernah disinggung di artikel Cara Mengcopy Data Otomatis. Untuk menghapus data yang sama, Anda bisa menggunakan property RemoveDuplicates. Untuk lebih jelasnya, silakan ikuti langkah-langkah berikut:

LANGKAH 1:

Buatlah lembar kerja baru dengan nama terserah.

LANGKAH 2:

Sheet 1 diberi nama "Database" berisi data akun di bawah ini (bisa disalin, blok data kemudian copy - paste ke lembar kerja pada sel A1).

Account	Name
10000005	Vernon
10000005	Vernon
10000005	Vernon
10000005	Vernon
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000006	Mitsuko
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000007	Kristian
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000008	Leroy
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000010	Trang
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000012	Sheba
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda
10000020	Kenda

LANGKAH 3:

Sheet 2 diberi nama "Account List" dan berisi tabel dengan header kolom bertuliskan "Account List" di sel A1 (nama opsional).

Account List

LANGKAH 4:

VBA Macro pada Module1 diisikan sintaks sebagai berikut:

Sub SalinDanDeduplikasi()
Sheets("Database").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Account List").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub


LANGKAH 5:

Tetapkan Macro yang sudah dibuat diatas bernama SalinDanDeduplikasi pada objek yang Anda kehendaki seperti button, shape, maupun langsung dari Macro Runnernya.

Alvian Casablancas — arubiandesu@gmail.com

Terimakasih sudah berkunjung di alvian-cs.blogspot.com, silakan membaca artikel yang lainnya lagi dan jangan lupa berkomentar cerdas dengan tidak membuat SPAM :)