Aynı Telefon numarası olan satırları silmek

[canengineer]

Selamlar;

Elimde sms göndermek için farklı yerlerden edindiğim, telefon listeleri var. Bunları tek bir sayfada birleştirerek, aynı olan numara satırlarının fazlasını silerek elemek istiyorum. Bu konuda bana önerebileceğiniz bir makro kodu varmıdır. Yardımcı olabilirseniz çok sevinirim.

Teşekkürler

Not: Listelerde dizilim şöyledir.
A sütununda isimler,
B sütununda Numaralar,
C sütununda e-mail adresleri bulunmaktadır.

B sütununda numaralara göre, eleme yapılacaktır.

Teşekkürler

 

[Ömer]

Merhaba,

Sub AynıSatırları_Sil()
Dim i, son As Long
Application.ScreenUpdating = False
son = [B65536].End(3).Row
For i = son To 1 Step -1
   If WorksheetFunction.CountIf(Range("B1:B" & i), Cells(i, "B").Value) > 1 Then
       Rows(i).Delete Shift:=xlUp
   End If
Next i
Application.ScreenUpdating = True
End Sub

Denermisiniz. Dosyanıza uyarlayamazsanız küçük bir örnek dosya ekleyerek açıklayınız.

Konuyla ilgili detaylı bilgiye aşağıdaki linten ulaşabilirsiniz.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.