Tek bir hücre içerisindeki telefon numaralarını ayırma

[ASLAN7410]

Merhaba, hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın B2 hücresinden aşağıya doğru her bir hücrede farklı adet olarak telefon numaraları bulunmaktadır.
Yapmak istediğim butona bastığımda hücre içerisindeki telefon numaralarını C2 hücresinden aşağıya doğru tek tek ayırmak istiyorum.
Telefon numaraları atmasyondur.
Forumda araştırdım ancak benim istediğim gibi bir örnek bulamadım.

Yardımcı olur musunuz?

 

[Ziynettin]

Merhaba,

B2 hücresi için,

    Range("C2:C" & Rows.Count).ClearContents
    s = 2
    a = Cells(2, 2)
    ayır = Split(a, vbLf)
    For i = 0 To UBound(ayır)
        Cells(s, 3) = ayır(i)
        s = s + 1
    Next i

B sütunu için,

    Range("C2:C" & Rows.Count).ClearContents
    s = 2
    For j = 2 To Cells(Rows.Count, 2).End(3).Row
        a = Cells(j, 2)
        ayır = Split(a, vbLf)
        For i = 0 To UBound(ayır)
            Cells(s, 3) = ayır(i)
            s = s + 1
        Next i
    Next j

 

[ASLAN7410]

Sayın Ziynettin Bey, ilginize çok teşekkür ederim, orijinal dosyamda deneyip geri dönüş yapacağım.

 

[ASLAN7410]

Sayın Ziynettin Bey, tam istediğim gibi çalışıyor çok teşekkür ediyorum.

Hayırlı akşamlar diliyorum.