mükerrer kayıtlardan mükerrer olmaynaları ayırmak

[mhmtmzlm]

benim sorunum şu... elimde yaklaşık olarak 5000 adet numara var ve bunların bazıları 2 kere yazılmış... ben tek olanları başka bir sutuna ayırmaya çalışıyorum. bana yardımcı olabilirseniz sevinirim... açıklayıcı bi dosya gönderiyorum

 

[muygun]

Merhaba;
Eki inceleyin.
İyi çalışmalar.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu deneyiniz.

Option Explicit
Sub Deneme()
Dim Say As Double, Son_Satır As Long, U As Long
Range("B2:B65536").ClearContents
    For U = 2 To [A65536].End(3).Row
        Say = WorksheetFunction.CountIf(Range("A:A"), Cells(U, "A"))
            If Say = 1 Then
                Son_Satır = [B65536].End(3).Row + 1
                Cells(Son_Satır, "B") = Cells(U, "A")
            End If
    Next
End Sub

 

[mhmtmzlm]

thanks

muygun çok teşekkr ederim beni büyük bir dertten kurtardın... şimdiden bayrama rahat girmemi sağladın çok sağol... iyi bayramlar