Menandai Data Ganda

        Menandai Data Ganda

Pembahasaan saat ini adalah mencari dan menemukan data ganda atau data duplikat . Model pencarian ini sangat bermanfaat apabila kita dihadapkan oleh Ratusan data bahkan Ribuan data  untuk dapat menemukan data ganda misalnya data pemilih ganda
dengan Bantuan Visual Basic Kita akan dapat menemukan dgn mudah bahkan dalam waktu 1 menit kita dapat mengatasi ribuuan data menemukan dan menandainya

Cukup Mudah  caranya Pastekan kode berikut pada Sebuah Modul
Yang mengacu pada kolom b  baris ke 2

LastRow = Range("b65000").End(xlUp).Row
For iCntr = 2 To LastRow

Kode lengkapnya :

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

Selesai
Semoga bermanfaat
Silahkan klik halaman Download dibawah ini


 Data Ganda