İki den fazla olan verileri belirleme.

[Carpintero]

İyi geceler

A kolonu

1
1
2
2
3
3
3
4
4

gibi her veriden 2 şer tane olan veri blogu var. Bazıları 2 den fazla
amacımız da 2 den fazla olanları tespit edebilmek.
örneğe göre 3 ün olduğu satırın B kolonunda işaretlenmesi gerekli
2 den fazla olduğu için. Bunun için yardımcı olabilir misiniz lütfen.

 

[Ziynettin]

Merhaba,

Verilerinizin 2. satırdan başladığı varsayılmıştır.

Sub ikiden_fazla()
a = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
Set d = CreateObject("scripting.dictionary")
ReDim b(1 To UBound(a), 1 To 1)
For i = 1 To UBound(a)
    d(a(i, 1)) = d(a(i, 1)) + 1
Next i

For i = 1 To UBound(a)
s = s + 1
    If d(a(i, 1)) > 2 Then
        b(s, 1) = "X"
    End If
Next i
Application.ScreenUpdating = False
Range("B2:B" & Rows.Count).ClearContents
[B2].Resize(UBound(a)) = b
Application.ScreenUpdating = True
MsgBox "İşlem tamam", vbInformation
End Sub

 

[Carpintero]

Teşekkür ederim Sn. Ziynettin
Elinize Sağlık.