Bosluk Oncesindeki Kelimeleri Ayrı Sütunlara Kopyalama

[ozgenalper]

Merhaba,
Ekteki dosyada a kolonundaki hücrelerde ilk boşluğu gördüğünde boşluktan önceki karakterleri bir sonraki kolona yazan, aynı şeyi bir sonraki boşluğa geldiğinde iki boşluk arasındaki karakterleri yazan bir makroya acilen ihtiyacım var.

 

[Necdet]

Merhaba,

Sorunuz pek anlaşılmıyor, örnek dosyada da şöyle olacak diye bir açıklamanız yok. Her sözcüğü yandaki hücrelere mi atmasını istiyorsunuz?

Eğer böyle ise niyetiniz Metni sütunlara dönüştürden rahatlıkla yapabilirsiniz.

Sub KolonAyir()
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Space:=True
End Sub