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