Ayrıştırarak metne dönüştür

[meleklerim]

örnek dosya ektedir.

http://dosya.co/us0txk07v9xe/metne_dönüştür.xls.html

 

[Erdem Akdemir]

Merhaba,

Tag'daki kodu kullanabilirsiniz.

Sub böl()
x = 1
For Each alan In Sayfa1.Range("b2:b" & Sayfa1.Cells(Rows.Count, "b").End(3).Row)

a = VBA.Split(alan.Value, "@")

For Each metin In a

x = x + 1

b = Split(metin, ";")
Sayfa2.Range("a" & x) = alan.Offset(, -1).Value
Sayfa2.Range("b" & x).Resize(, 2) = b

Next
Next

End Sub

 

[meleklerim]

Teşekkürler Kuvari bey,
Yalnız 62bin satırdan sonra hata verdi, sanırım excel versiyonu ile ilgili bir sorun. Size ekte ofis 2016 da oluşturduğum orjinal belgeyi gönderiyorum. Ben kodu bu belgeye ekledim hatalar verdi.

http://dosya.co/vb2i61tmv6j1/metnedönüştür_2016.rar.html

 

[Erdem Akdemir]

Rica etsem dosyayı yandex'e yükleyebilir misiniz.
Şirket internetinde sorun yaşıyorum.

 

[Erdem Akdemir]

Merhaba,

Orjinal dosyanızda hata almadım, 122440 satır veri oluştu.
Ofis 2003 versiyonu kullanmıyorsanız doğru çalışması gerekiyor.

 

[meleklerim]

yandex hakkında fikrim yoktu ama tarayıcıya kurup eklemeye çalıştım
inşallah olmuştur

https://yadi.sk/i/ZnSAcpl5t8Bwm

 

[meleklerim]

tamamdır Kuvari Bey,
Şu an tüm belgeleri kapatıp yeniden oluşturdum.
Kod çalıştı çok teşekkürler