Menghapus Duplikat
Ada orang yang masih bekerja dengan pemikiran yang sangat sederhana untuk menghilangkan cell-cell yang sama dalam satu kolom, yaitu dengan melakukan sortir (ascending maupun descending), kemudian dari cell-cell yang nilainya sisakan satu dan lainnya dihapus. Tidak salah, tetapi lama dan menjemukan.
Kalau Anda cukup sering mengerjakan data yang memerlukan penghapusan cell duplikasi, sebaiknya Anda menggunakan function khusus untuk itu, namanya “Remove Duplicates”. Atau lebih cepat lagi Anda bisa menggunakan beberapa baris code VBA.
Sub remove_duplicate()
Dim rng As Range
On Error GoTo Batal
Set rng = Application.InputBox(Prompt:=”Please Select Range”, Title:=”Pilih Range”, Type:=8)
rng.RemoveDuplicates
Range(“A1”).Select
Batal:
End Sub
Data sebelum di Remove Duplicates, bisa masih acak maupun sudah di-sort
Data sesudah di Remove Duplicates
Program meminta User until memilih range, dan yang dipilih adalah range data yang belum di sortir
Range Data yang dipilih adalah yang sudah di sortir. Hasilnya sama.
Bila yang terduplikasi adalah rows, jangan khawatir, program ini masih tetap berfungsi baik dalam menghapus baris-baris yang sama. Jangan lupa range nya dipilih mencakup semua kolomnya.
Selamat Mencoba Semoga Bermanfaat.
Work Smart 