alvian-cs blog

Mengcopy Data dan Menghapus Duplikat di VBA Excel

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.
Mengcopy Data dan Menghapus Duplikat di VBA Excel
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.




2 Comments

2 comments:

  1. A Alvian, aku ada pertanyaan, untuk kode vba nya.
    untuk kasus sbb :
    ada data di 2 kolom (bisa lebih).
    di cell A2 ada datanya (nama), untuk B2 kosong
    di cell A3 kosong, B3 kosong
    di cell A4 ada datanya (kombinasi angka n huruf), B4 ada datanya (kombinasi angka n huruf).
    dan cell A5,B5,A6,B6 itu kosong
    kemudian di cell A7 baru ada data lagi seperti yang diatas.

    dan ingin di pindahkan ke sheet 2 sbb :
    data A2:B4 di copy ke sheet2 ke B7:C9
    dan kemudian A7:B10 di copy ke sheet2 B15:C18

    Apa kode vba nya untuk mslh diatas..

    Terima kasih A sebelumnya...

    ReplyDelete
  2. Alvian, ini ga ada File Excel nya yang bisa di Download kah? or Video nya?

    ReplyDelete

Next Older Post
Mengcopy Data dan Menghapus Duplikat di VBA Excel Mengcopy Data dan Menghapus Duplikat di VBA Excel