Excel Hücresindeki satırları okuma

Merhaba arkadaşlar. Bir excel hücresinde birden fazla satır var ise bu satırları ayrı hücrelere atan vba kodu lazım. ya da bir hücrede satır atlatılmışsa bunu tespit edip ilk satır ve diğer satırları ayrı ayrı alan kod lazım. Görselde ne istediğimi anlattım. Formül de olabilir ama kod daha makbule geçer.

Sub Degistir()
Columns("A:A").Replace What:=Chr(10), Replacement:=" "
End Sub ENTER boşluğunu siler normal boşluk ile değiştirir. gerisini metni sütunlara dönüştür ile ayırırsın yan tarafa sonra istediğin gibi kullan hocam.

ilhan79' Alıntı:

Sub Degistir()
Columns("A:A").Replace What:=Chr(10), Replacement:=" "
End Sub ENTER boşluğunu siler normal boşluk ile değiştirir. gerisini metni sütunlara dönüştür ile ayırırsın yan tarafa sonra istediğin gibi kullan hocam.

Genişletmek için tıkla ...

Çok teşekkür ederim hocam.