VBA Hapus Duplikat - Bagaimana cara menghapus nilai duplikat di Excel VBA?

Hapus duplikat di VBA Excel

Nilai duplikat seringkali tidak diperlukan di excel, terutama bila Anda ingin menghitung nilai 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, kita juga bisa 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 harus bersusah payah.

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 Hapus 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 " RemoveDuplicates " akses jangkauan VBA .

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 hal ini, kami memiliki header, jadi pilih "xlYa".

Kode:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). Kolom RemoveDuplicates: = 1, Header: = xlYes End Sub

Jalankan kode ini. Ini akan VBA 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 cara menggunakan variabel di VBA.

VBA Hapus duplikat - Contoh # 2

Dalam contoh di atas, kami telah secara khusus menyediakan rentang sel. Sekarang kita akan melihat bagaimana bekerja dengan pemilihan sel kita 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: Rentang adalah sebuah objek. Kami akan mengatur kisaran sebagai pilihan kami.

Kode:

Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub

Step 3: Now, instead of a range of cells, we can use the variable “rng.”

Code:

Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub

Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.

VBA Remove Duplicates from Multiple Columns - Example #3

We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.

For example, look at the example data image.

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

Anda dapat mengunduh VBA ini Hapus Duplikat Excel di sini. VBA Hapus Duplikat Template Excel

Artikel yang menarik...