Aynı satırlarda bulunan rakam ve harfleri ayırma

[fedayi72]

Merhaba
Aynı satırda bulunan isim ve telefon numaralarını nasıl ayırabilirm.Sadece telefon numaraları lazım.yardımcı olabilirmisiniz.

 

[Ömer]

Merhaba,

Örnek dosya ekler misiniz.

 

[fedayi72]

Dosya ekte.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Ayir()
 
    Dim d As Object, i As Long
 
    Set d = CreateObject("Vbscript.RegExp")
 
    d.Pattern = "[^\d]"
    d.Global = True
 
    Range("B2:B" & Rows.Count).ClearContents
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = "'" & d.Replace(Cells(i, "A"), "")
    Next i
 
    Set d = Nothing
 
End Sub

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)

-----------------------------------------------------------------------------------------------

Eğer verileriniz bu düzendeyse ve sizi yavaşlatmayacaksa formül ile de yapabilirsiniz.

=SAĞDAN(A2;UZUNLUK(A2)-BUL("*";YERİNEKOY(A2;" ";"*";UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;" ";"")))))

.