Hapus duplikat di VBA Excel
Nilai duplikat seringkali tidak diperlukan di excel terutama ketika Anda ingin menghitung nilai yang unik. Kami biasanya memiliki kumpulan data yang berbeda untuk dikerjakan dan kami melihat banyak nilai duplikat di dalamnya.
Saya harap Anda terbiasa menghapus duplikat di lembar kerja excel, jika tidak ada yang perlu dikhawatirkan, kami akan menunjukkan contoh sederhana untuk Anda. Di VBA juga kita dapat melakukan metode hapus duplikat.
Jadi, Ini telah menghapus semua nilai duplikat dari heading "Region". Demikian pula, kita dapat melakukan tugas ini dengan bantuan kode VBA.
Bagaimana Cara Menghapus Nilai Duplikat di VBA Coding?
Untuk menghapus nilai duplikat terlebih dahulu, kita perlu menyebutkan kisaran yang kita maksud, kemudian kita dapat mengakses metode "Hapus Duplikat". Jadi sintaksnya adalah sebagai berikut.
[Kolom]: Kolom pilihan mana yang kita perlukan untuk menghapus duplikat? Kami perlu menyebutkan nomor kolom dari rentang yang dipilih.
[Header]: Rentang yang Anda pilih memiliki header atau tidak. Kami memiliki tiga opsi untuk dikerjakan di sini.
- xlYa: Jika data memiliki header maka Anda dapat memilih ini.
- xlNo: Jika data tidak memiliki header maka Anda dapat memilih ini.
- xlGuess: Opsi ini akan memungkinkan excel menebak header data.
Jadi dengan menggunakan parameter ini kita dapat menghapus duplikat hanya dengan satu klik tombol tanpa perlu repot.
Pada bagian di bawah ini saya akan menunjukkan beberapa contoh untuk VBA menghapus duplikat. Ikuti langkah-langkah dengan hati-hati untuk menulis kode Anda sendiri.
Contoh Hapus Nilai Duplikat di VBA Coding
Di bawah ini adalah contoh Hapus Duplikat di Nilai VBA.
VBA Dihapus duplikat - Contoh # 1
Pertimbangkan data di bawah ini untuk contoh ini juga.
Dari data di atas, kita perlu menghapus duplikat kolom "Region" jadi ikuti langkah-langkah di bawah ini untuk menulis kode.
Langkah 1: Mulai subprocedure dengan memberi nama pada kode makro.
Langkah 2: Sebutkan kisaran data dengan menggunakan objek Rentang VBA .
Kode:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). Akhiri Sub
Langkah 3: Setelah menyebutkan metode akses jangkauan VBA " RemoveDuplicates ".
Kode:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates End Sub 
Langkah 4: Argumen pertama di kolom mana kita perlu menghapus nilai duplikat. Dalam contoh ini dari kolom pertama, kita perlu menghapus duplikatnya.
Kode:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Columns: = 1, End Sub 
Langkah 5: Selanjutnya adalah apakah data memiliki header atau tidak. Dalam kasus ini, kami memiliki header jadi pilih "xlYes".
Kode:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). Kolom RemoveDuplicates: = 1, Header: = xlYes End Sub 
Jalankan kode ini, VBA akan menghapus duplikat dari wilayah yang dipilih.
Ini adalah cara eksplisit untuk mengacu pada rentang sel. Jika Anda ingin memilih rentangnya sendiri dan kemudian menghapus duplikat, maka kami perlu menggunakan variabel untuk bekerja dengannya. Dalam contoh di bawah ini saya akan menunjukkan kepada Anda bagaimana menggunakan variabel di VBA.
VBA Dihapus duplikat - Contoh # 2
Dalam contoh di atas, kami telah secara khusus menyediakan rentang sel. Sekarang kita akan melihat bagaimana bekerja dengan pemilihan selnya sendiri.
Misalnya, saya memiliki beberapa set data seperti yang ditunjukkan pada gambar di bawah ini.
Setiap kali saya tidak dapat menentukan rentang sel secara eksplisit, jadi kami akan menetapkan pilihan sebagai rentang.
Langkah 1: Deklarasikan variabel sebagai Range .
Kode:
Sub Remove_Duplicates_Example2 () Dim Rng Sebagai Rentang Akhir Sub
Langkah 2: Range adalah objek yang akan kita atur range sebagai pilihan kita.
Kode:
Sub Remove_Duplicates_Example2 () Dim Rng Sebagai Rentang Set Rng = Seleksi Akhir Sub
Langkah 3: Sekarang sebagai ganti rentang sel kita bisa menggunakan variabel " rng ".
Kode:
Sub Remove_Duplicates_Example2 () Dim Rng As Range Set Rng = Pilihan Rng.RemoveDuplicates Columns: = 1, Header: = xlYes End Sub
Sebelum kita menjalankan kode, kita perlu memilih rentang sel terlebih dahulu kemudian kita dapat menghapus duplikat dari rentang sel yang dipilih.
VBA Hapus Duplikat dari Beberapa Kolom - Contoh # 3
Kami juga dapat menggunakan VBA untuk menghapus nilai duplikat dari kolom excel juga. Untuk menghapus beberapa kolom, kita perlu menggunakan Array dan menyebutkan nomor kolomnya.
Misalnya lihat contoh data gambar.
Kami memiliki nilai duplikat di kolom pertama dan kolom keempat. Jadi kami akan menghapus dari kolom ini. Gunakan kode di bawah ini untuk VBA untuk menghapus duplikat.
Kode:
Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Columns: = Array (1, 4), Header: = xlYes End Sub You can download this VBA Remove Duplicates Excel here. VBA Remove Duplicates Excel Template
