RemoveDuplicates dalam VBA Excel
Nilai pendua sering tidak diperlukan dalam excel, terutama ketika anda ingin mempunyai nilai yang unik. Kami biasanya mempunyai sekumpulan data yang berbeza untuk digunakan, dan kami melihat banyak nilai pendua di dalamnya.
Saya harap anda terbiasa membuang pendua dalam lembaran kerja excel, jika tidak perlu dibimbangkan. Kami akan menunjukkan contoh ringkas untuk anda. Di VBA juga, kita dapat melakukan kaedah hapus pendua.
Jadi, Ia telah menghapus semua nilai pendua dari tajuk "Wilayah". Begitu juga, kita dapat melakukan tugas ini dengan bantuan kod VBA.
Bagaimana Mengeluarkan Nilai Pendua dalam Pengekodan VBA?
Untuk menghapus nilai pendua terlebih dahulu, kita perlu menyebut julat yang kita maksudkan. Kemudian kita dapat mengakses kaedah "Hapus Pendua". Jadi sintaks akan seperti berikut.
(Lajur): Lajur pilihan mana yang perlu kita hapus pendua? Kita perlu menyebut nombor lajur bagi julat yang dipilih.
(Header): Julat yang anda pilih mempunyai header atau tidak. Kami mempunyai tiga pilihan untuk bekerjasama di sini.
- xlYa: Sekiranya data mempunyai tajuk, anda boleh memilih ini.
- xlTidak: Sekiranya data tidak mempunyai tajuk, anda boleh memilih ini.
- xlGuess: Pilihan ini akan membolehkan excel meneka tajuk data.
Oleh itu, dengan menggunakan parameter ini, kita boleh membuang pendua dengan hanya satu klik butang tanpa keringat.
Di bahagian bawah, saya akan menunjukkan kepada anda beberapa contoh untuk VBA membuang pendua. Ikuti langkah-langkah dengan teliti untuk menulis kod anda sendiri.
Contoh Hapus Nilai Pendua dalam Pengekodan VBA
Berikut adalah contoh Hapus Pendua dalam Nilai VBA.
VBA Buang pendua - Contoh # 1
Pertimbangkan juga data di bawah untuk contoh ini.
Dari data di atas, kita perlu membuang pendua lajur "Wilayah", jadi ikuti langkah di bawah untuk menulis kod.
Langkah 1: Mulakan subproses dengan memberikan nama kod makro.
Langkah 2: Sebutkan julat data dengan menggunakan objek Rentang VBA .
Kod:
Sub Buang_Duplikat_Contoh1 () Julat ("A1: C9"). Sub Akhir
Langkah 3: Setelah menyebut kaedah capaian VBA " RemoveDuplicates ".
Kod:
Sub Remove_Duplicates_Example1 () Julat ("A1: C9"). RemoveDuplicates End Sub
Langkah 4: Argumen pertama di lajur mana kita perlu membuang nilai pendua. Dalam contoh ini, dari lajur pertama, kita perlu membuang pendua.
Kod:
Sub Remove_Duplicates_Example1 () Julat ("A1: C9"). RemoveDuplicates Column: = 1, End Sub
Langkah 5: Perkara seterusnya ialah sama ada data mempunyai tajuk atau tidak. Dalam kes ini, kami memiliki tajuk, jadi pilih "xlYa."
Kod:
Sub Remove_Duplicates_Example1 () Julat ("A1: C9"). RemoveDuplicates Columns: = 1, Header: = xlYa Sub Akhir
Jalankan kod ini. VBA akan mengeluarkan pendua dari kawasan yang dipilih.
This is an explicit way of referring to the range of cells. If you wish to select the range on our own and then remove duplicates, then we need to use the variable to work with. In the below example, I will show you how to use variables in VBA.
VBA Remove duplicates - Example #2
In the above example, we have specifically supplied the range of cells. Now we will see how to work with the selection of our own cells.
For example, I have a few sets of data, as shown in the below image.
Each time I cannot specify the range of cells explicitly, so we will assign the selection as the range.
Step 1: Declare the variable as Range.
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range End Sub
Step 2: Range is an object. We will set the range as our selection.
Code:
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 mempunyai nilai pendua pada lajur pertama dan lajur keempat. Oleh itu, kami akan membuang dari lajur ini. Gunakan kod di bawah untuk VBA untuk membuang pendua.
Kod:
Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Columns: = Array (1, 4), Header: = xlYa Sub Akhir
Anda boleh memuat turun VBA Remove Duplicates Excel ini di sini. VBA Buang Duplikat Excel Templat