Muharrem DOĞANCI: Excel'de Yinelenenleri Tek Saydırmak

8 Nisan 2022 Cuma

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

Muharrem DOĞANCI

Bu Blogda Ara

8 Nisan 2022 Cuma

Excel'de Yinelenenleri Tek Saydırmak

Hiç yorum yok:

Yorum Gönder