Sütunda aynı olanların sayısı

[gertt]

Merhaba.
B5 ile B1000 arasındaki aralıkta tekrarlanan değerlerin sayısının, her bir değerin karşısına sütundaki toplam sayısı gelecek şekilde D sütununa makroyla nasıl yazabiliriz?
Örneğin;B sütununda Ali ismi 30 defa geçmişse her Ali yazan hücrenin karşısındaki satıra (D sütunu) 30 sayısının yazılması.
Not: B sütununda sayısal değerlerde var.

Teşekkürler.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırın.

Sub SayYaz()
 
    Dim i As Long, son As Long
 
 
    son = Cells(Rows.Count, "B").End(xlUp).Row
 
    Range("D5:D" & Cells(Rows.Count, "D").End(xlUp).Row).ClearContents
 
    For i = 5 To son
        If Cells(i, "B") <> "" Then
            Cells(i, "D") = WorksheetFunction.CountIf( _
                            Range("B5:B" & son), Cells(i, "B"))
        End If
    Next i
 
 
End Sub

.

 

[gertt]

Ömer bey merhaba.
B sütununda boş olan hücrelerin karşısına sayı gelmemesi gerekiyor. Yani boş olması gerekiyor. İlginiz için teşekkürler.

 

[Ömer]

#2 numaralı mesajı değiştirdim, tekrar deneyiniz.

.

 

[gertt]

Ömer bey, elinize sağlık.Teşekkürler...