bir tablodaki bilgileri ayıklamak

[ermanusta]

merhaba,

F sütununda 1200 tane kadar çalıştığımız firmaların email adresleri mevcut, ancak bir mail adresinden bir kaç tane var.

Örn:
info@kurumsal...com
musteri@kurumsal....com
satis@mynet....com
satis@kurumsal....com
info@kurumsal...com

gibi

burada yapmak istediğim şu: fazlalık olan info@kurumsal..com adresini silecek
satis@kurumsal...com adresini diğer kurumsal adreslerin altına yerleştirecek.

bunun gibi 4 sayfa mevcut. ve her sayfada 1200 tane email adresi var. bu işin altından nasıl kalkabilirim.
yardımcı olabilirmisiniz


örnek dosya ekde

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
Application.ScreenUpdating = False

For x = [f65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("f1:f" & x), Cells(x, "f")) > 1 Then Rows(x).Delete
Next x

Application.ScreenUpdating = True
End Sub

. . .

 

[ermanusta]

yazdığınız kodla aynı olan adresleri ayıkladım çok teşekkür ederim.
acaba bu mail adreslerini web adresleri aynı olanlar alt alta gelecek şekilde sıraya koyabilirmiyiz ?

örn:
1-info@kurumsal...com
2-musteri@kurumsal....com
3-satis@mynet..com
4-satis@kurumsal...com
5-info@mynet..com

4. adresi 3.sıraya koyarak
kurumsalları alt alta
mynet leri alt alta

gelecek şekilde sıraya koyabilirmiyiz ?

 

[tahsinanarat]

Ekli dosyayı deneyiniz

Maillerinizi önce sutunlara bölüm altalta gelmesini istediğiniz (c sutunu) uzuntıları sıralama yapıp diğer yardımcı sutunları silebilirsiniz.

 

[ermanusta]

Maillerinizi önce sutunlara bölüm altalta gelmesini istediğiniz (c sutunu) uzuntıları sıralama yapıp diğer yardımcı sutunları silebilirsiniz.

tahsin bey, çok teşekkür ederim.