Cara Menandai Data Ganda dengan macros

Dalam pengelolaan data yang banyak dan rumit, perlu kita menyiasati barangkali ada terdapat banyak data ganda atau doble, maka perlu sekiranya untuk membuat macros untuk mengetahui data yang ganda atau dowble, berikut screp (rumus macro) untuk mendeteksi data ganda.

Sub Tampilkan()
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

Sub Reset()
Sheets(1).Range("B1:B20").Interior.Color = vbWhite
Sheets(1).Range("B1:B20").Font.Color = vbBlack

End Sub

Lihat contoh sheet di bawah ini