mail ayıklamak

[Barons]

merhaba
sitede mail ayıklama ile ilgili inceleme yaptım ama sorumun tam cevabını bulamadım.

bir mailde com 'dan sonraki kelimeleri silmek istiyorum.

örnekler:

.............@mynet.comMobile0
.............@gmail.comMobile0488

olması gereken

.............@mynet.com
.............@gmail.com

Binlerce bu şekilde var.Kodla yapmak mümkünmüdür? olmazsa formulasyonlada olabilir.

çok teşekkürler

 

[Barons]

unutmuşum;
ek olarak bazen com dan sonra hem kelime hem rakamda olabiliyor.

örnek:
...............@gmail.comMobile533-711

 

[Barons]

Üstadlar yardım lütfen

 

[dEdE]

Merhaba,
Ayıklanacak mail adreslerini A sütununa yazarak aşağıdaki kodu dener misiniz?

Sub MailAdersleriniAyır()
Range("B:B") = ""
With CreateObject("VBScript.RegExp")
    .Global = True
    For i = 1 To [A65536].End(3).Row
        .Pattern = "\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,3}"
        Cells(i, 2).Value = WorksheetFunction.Substitute(Cells(i, 1).Value, .Replace(Cells(i, 1), ""), "")
    Next
End With
End Sub

 

[Barons]

Hocam çok makbule geçti..Allah razı olsun