Cara Menandai Data Ganda dengan macros excel

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

Sub Tampilkan()
Redup LastRow As Long
Dim matchFoundIndex As Long
Dim iCntr As Long
LastRow = Range("b65000").End(xlUp).Baris
For iCntr = 2 To LastRow
If Cells(iCntr, 2) <> "" Kemudian
matchFoundIndex = WorksheetFunction.Match(Cells(iCntr, 2), Range("b1:b" & LastRow), 0)
If iCntr <> matchFoundIndex Kemudian
Sel(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 .Warna = vbBlack

End Sub

Lihat contoh sheet di bawah ini

Macros untuk mencari data ganda Unduh di sini