Mewarnai data duplikat

        Mewarnai data duplikat

Materi kali ini kita akan membahas bagaimana menemukan data ganda atau duplikat  ,Hal ini sangat penting bagi seorang operator pengolah data , apalagi jumlah data sampai ruan data sehingga secara manual akan sulit dilakukan
Dengan fasilitas VBA kita akan menemukan dan otomatis menandai data yang dianggap ganda
Carannya cukup mudah dengan membuat Modul
Pastekan kode berikut :

Kode ini mengacu pada data di kolom B

Sub ganda()
Dim LastRow As Long
Dim matchFoundIndex As Long
Dim iCntr As Long
LastRow = Range("b65000").End(xlUp).Row
For iCntr = 2 To LastRow
If Cells(iCntr, 2) <> "" Then
matchFoundIndex = WorksheetFunction.Match(Cells(iCntr, 2), Range("b1:b" & LastRow), 0)
If iCntr <> matchFoundIndex Then
Cells(iCntr, 2).Interior.Color = vbRed
Cells(iCntr, 2).Font.Color = vbWhite
End If
End If
Next
End Sub

Selesai
Semoga Bermanfaat