Hücredeki çoklu mail adresini sağdaki sütunlara ayırma

[Akinero]

excel dosyasındaki aynı hücredeki alt alta birden fazla emailleri sağdaki sütunlara tek tek nasıl aktarabilirim?

 

[YUSUF44]

Metni sütunlara dönüştür ile yapabilirsiniz.

A sütununu seçin
Veri menüsünden Metni sütunlara Dönüştürü seçin
İlk ekranda Sınırlandırılmış'ı seçip ilerleyin
İkindi ekranda Diğer'i işaretleyip yandaki boşluğa Alt tuşu basılıyken 010 yazın ve işlemi tamamlayın.

 

[Muzaffer Ali]

Merhaba.

Kod ile alternatif.
Aşağıdaki kodu deneyiniz.

Sub test()
    Dim Bak As Long
    Dim ePost As Variant
   
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        ePost = Split(Cells(Bak, "A"), Chr(10))
        Range("B" & Bak & ":" & Cells(Bak, UBound(ePost) + 2).Address) = ePost
    Next
End Sub

 

[Akinero]

Metni sütunlara dönüştür ile yapabilirsiniz.

A sütununu seçin
Veri menüsünden Metni sütunlara Dönüştürü seçin
İlk ekranda Sınırlandırılmış'ı seçip ilerleyin
İkindi ekranda Diğer'i işaretleyip yandaki boşluğa Alt tuşu basılıyken 010 yazın ve işlemi tamamlayın.

TEŞEKKÜRLER

 

[Akinero]

Merhaba.

Kod ile alternatif.
Aşağıdaki kodu deneyiniz.

Sub test()
    Dim Bak As Long
    Dim ePost As Variant
  
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        ePost = Split(Cells(Bak, "A"), Chr(10))
        Range("B" & Bak & ":" & Cells(Bak, UBound(ePost) + 2).Address) = ePost
    Next
End Sub

TEŞEKKÜRLER

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.