Excel'de Yinelenenleri Tek Saydırmak

Merhabalar.

Mehmet CANBULAT'ın paylaştığı vidyoda yinelenenleri bir kez saydırmak için kullandığı kod parçası şöyledir:

Sub Yinelenenleri_Tek_Saydir() Dim i As Long 'kontrol sayaci Dim es As Long 'eger_say Dim bssn As Long bssn = 1 'b sutunu son yazılabilir satir For i = 1 To Sayfa1.Cells(Rows.Count, 1).End(xlUp).Row es = Application.WorksheetFunction.CountIf(Sayfa1.Range(Sayfa1.Cells(1, "A"), Sayfa1.Cells(i, "A")), Sayfa1.Cells(i, "A")) If es = 1 Then Sayfa1.Cells(bssn, "B") = Sayfa1.Cells(i, "A") bssn = bssn + 1 End If Next i End Sub

Kaynak:
https://youtu.be/W-oohkfA1dE?t=2510