Aynı olan numaraları kaldırma makrosu

[keyci60]

Merhaba tek exzelde yaklaşık 5 milyon telefon numaraları her satırda yüzbin no var istediğim tek aynı exzelin altına ellibin no yapıştırdığımda yukardaki 5milyon noların içinde yapıştırdığım nolarla aynı olan varsa yapıştırdığım ellibin no içinden atması ve elimde o beşmilyon datanın içinde olmayan datayı elde etmek ve bunu sürekli yapmam gerekiyor oyüzden makro yazılması gerekiyormuş lütfen bu konda bana yardımcı olun şimdiden hepinize teşekkür ediyorum..

 

[Necdet]

Merhaba,

5 milyon satırlık veriyi excelde nasıl tutuyorsunuz?

 

[keyci60]

hersatırda 60000 bin data var yanyana devam ediyor

 

[Murat OSMA]

Şu dosyayı gönderin de bir görelim.

 

[Baggwell]

Benimde aynı konuda yardıma ihtiyacım var fakat mevzu bahis 5 milyon data değil ortalama 5yüz adetlik

 

[Murat OSMA]

Dosya gönderilir ve nasıl olacağı açıklanırsa çözmeye çalışırım.

 

[keyci60]

yardımcı olacak kimse yokmu acill

 

[Murat OSMA]

Rüzgâra yazı yazmamızı bekliyorsunuz sanırım.

 

[Necdet]

Rüzgâra yazı yazmamızı bekliyorsunuz sanırım.

Basit, örnek bir dosya hazırlamak zor geliyor arkadaşımıza ama hayali kod yazmamızı bekliyor.

 

[keyci60]

ekte

örnek exzel

 

[Murat OSMA]

Elinizde her satırda 100.000 numara olan örneğiniz var mı ? :dusun:
Excel'de o kadar sütun yok. Satır ile sütunu karıştırıyor olabilir misiniz ? :dusun:

 

[keyci60]

örnek a sutununda farzedelim ellibin olsun farketmez

 

[Baggwell]

Örnek dosyada koşullu olarak biçimlendirebiliyorum fakat koşullu olarak silmek istiyorum aslında bunu nasıl yapabiliriz

Saygılar

 

[keyci60]

basit bi exzel dediniz onuda yaptık ama halabi yardım göremedik gerçekten çok yararlıbi formmuş onu anladım bu saatten sonrada kimse yardımcı olmasın..!!

 

[Murat OSMA]

Siz bilirsiniz.

 

[Baggwell]

basit bi exzel dediniz onuda yaptık ama halabi yardım göremedik gerçekten çok yararlıbi formmuş onu anladım bu saatten sonrada kimse yardımcı olmasın..!!

Nolur yardımcı olalım aman..... Saygısızlık etme istersen, burda kimse senin sorunu yanıtlamak zorunda değil, bilen varsa paylaşır yoksa saygı duyarsın, en azından yanıtlayıp sana tenezzül ediyorlar

 

[Korhan Ayhan]

Sabırlı olmalısınız. Forumda mükerrer kayıtlarla ilgili birçok örnek kodlama mevcut. Arama yaparsanız ulaşabilirsiniz.

Aşağıdaki linkte benzer bir soru sorulmuş. Oradaki kodlamayı deneyin.

Birden fazla sütuna göre ayıklama

 

[Necdet]

basit bi exzel dediniz onuda yaptık ama halabi yardım göremedik gerçekten çok yararlıbi formmuş onu anladım bu saatten sonrada kimse yardımcı olmasın..!!

Kusurumuza bakmayınız, geç kaldık baya :biggrin:
Öncelik kendi işlerimiz.

Sub BulSil()
    
    Dim Hcr As Range
    Dim Rng As Range
    
    Set Rng = Range("A1").CurrentRegion
    
    For Each Hcr In Rng
        If Application.WorksheetFunction.CountIf(Rng, Hcr) > 1 Then Hcr.Clear
    Next Hcr
    Rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
    
End Sub

Bir deneyin bakalım, sonuç ne olacak?