Menghapus Cell Duplikasi dalam Excel

Dalam mengolah data yang cukup besar, kita sering menjumpai isi cell yang sama (duplicate). Untuk menghapusnya secara manual tentu akan memerlukan ketelitian dan waktu yang lama. Cobalah program VBA berikut ini, semuanya itu bisa dikerjakan dengan sekali click saja.

Sub DelDups()
sortir
Do While ActiveCell.Offset(1, 0) <> ""
If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Value = "Z"
End If
Loop
ActiveCell.CurrentRegion.Select
sortir
Set finalisasi = Selection
For Each sell In finalisasi
If sell.Value = "Z" Then sell.Value = vbNullString
Next sell
Set finalisasi=nothing
End Sub


Sub sortir()
Selection.Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Pilih cell paling atas dalam database anda, kemudian jalankan program ini. Selamat mencoba.
Catatan : Ada banyak cara dan banyak program yang bisa menghapus duplikasi, program ini hanya salah satu yang biasa saya pakai dalam bekerja dengan Excel. Fast!

Bagi anda yang belum pernah menggunakan VBA, click disini untuk mengetahui langkah-langkah dalam menggunakan Visual Basic Editor (VBE) yang built in dalam MS Excel