mükerrer kayıtların toplu silinmesi ve standart bir metin hali

[hlk]

Herkese selamlar; Ekli listede gönderiğim örnek tabloda toplu SMS atmak istediğim 5425 kayıtlı bir liste var.Mükerrer kayıtları işaretledim ama tek tek satır silmek ölüm.Ayrıca bunları SMS atmak için "0xxx1112233,0xxx2223344,"formatta ve tek hücrede toplamam gerekiyor.Mevcut sütunları bu formatta tekbir hücrede toplamak mümkünmüdür.Dünden beri bittim arkadaşlar ne olur bir formül bulun bana....

 

[ileriexcel]

Sub test()
For sil = [g65000].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("g1:g" & sil), Range("g" & sil)) > 1 Then
Rows(sil).Delete
End If
Next
End Sub

 

[hlk]

Syn.ilerexel yardımınız için çok teşekkürler.mükerrerleri eleme işini halletmiş oldum ama diğer kabusum olan tüm kalan telefonları önceki mesajımda belirttiğim formatta tek hücreye toplamak.

 

[Zeki Gürsoy]

Sub test_2()
    Columns("g").Replace " ", ""
    Columns("g").Replace "-", ""
End Sub

 

[hlk]

İlgi ve alakanıza çok teşekkürler.Fazla olmazsam birşey daha sormak istiyorum ilgili işlemi yaptım fakat baştaki 0'ı kaldırıyor.Galiba değer olarak görmediği için yapıyor bu konuda birşey yapılabilirmi?Teşekkürler

 

[y_tekeli]

sub test()
for sil = [A65000].end(3).row to 1 step -1
ıf worksheetfunction.countıf(range("A3:A" & sil), range("A" & sil)) > 1 then
rows(sil).delete
end ıf
next
end sub

VERDİĞİN FORMULÜ LİSTEME UYGULADIM ANCAK
sayın üstat formülü A SÜTUNUNDA Kİ mükerrer kayıtları benzersizlerin kalacağı şekilde silmek mümkün mü