Vba: cara menghapus nilai duplikat


Anda dapat menggunakan metode berikut untuk menghapus nilai duplikat di VBA:

Metode 1: Hapus nilai duplikat berdasarkan kolom

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Contoh khusus ini menghapus baris duplikat dalam rentang A1:C11 berdasarkan nilai duplikat di kolom pertama rentang tersebut.

Argumen Header:=xlYes menetapkan bahwa baris pertama dalam rentang adalah baris header dan tidak boleh dipertimbangkan saat memeriksa duplikat.

Metode 2: Hapus nilai duplikat berdasarkan beberapa kolom

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Contoh khusus ini menghapus baris duplikat dalam rentang A1:C11 berdasarkan nilai duplikat di dua kolom pertama rentang tersebut.

Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan kumpulan data berikut di Excel:

Contoh 1: Hapus nilai duplikat berdasarkan kolom

Kita bisa membuat makro berikut untuk menghapus baris yang memiliki nilai duplikat di kolom pertama:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap baris dengan nilai duplikat di kolom pertama kumpulan data telah dihapus.

Contoh 2: Hapus nilai duplikat berdasarkan beberapa kolom

Kita dapat membuat makro berikut untuk menghapus baris yang memiliki nilai duplikat di dua kolom pertama:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa setiap baris yang berisi nilai duplikat di dua kolom pertama kumpulan data telah dihapus.

Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Hapus Duplikat di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menambahkan nilai dalam suatu rentang
VBA: Cara menghitung nilai rata-rata rentang
VBA: Cara menghitung nilai unik dalam rentang

Tambahkan komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *