Kelime ayırma makro yardım

[td877]

Merhaba,

A sütunu 1 hücreden itibaren aralarında * işareti olan kelime öbeklerim var. Toplamda 373 satır.

Örnek satır:
kelime1*kelime2*kelime3*kelime4 ...........

kelime adeti her satırda değişkenlik içermekte.

* işaretlerinin arasında yer alan kelimeleri diğer sütunlara (her kelime sırası bir sütun olmak üzere) ayırabilir miyim?

 

[hamitcan]

Metni Sütunlara Dönüştür fonksiyonunu denediniz mi ?

 

[td877]

Denedim ama satırlardaki kelimelerin harf sayıları birbirinden farklı olduğu için olmadı. Ya da ben yapamadım.

 

[td877]

Metni sütunlara dönüştür "sınırlandırılmış" seçeneğini işaretleyince oldu. Teşekkür ederim hamitcan.

 

[antonio]

Örnek bir dosya ekleyerek daha doğru ve hızlı cevap alabilirsiniz.

 

[kulomer46]

Merhaba

Ek' li dosyada A Sütunu İnputbox ile gireceğiniz karaktere Göre Sağa Doğru Dağıtılmaktadır.

Selamlar...

 

[antonio]

Merhaba,
Üzerinde çalıştığınız makronuzu aşağıdaki şekilde revize ederek deneyiniz.

Sub Aktar()
'17.09.2019   15:45
Dim c As String, hepsi As String, kelime As Variant, ss As Long, sh As Worksheet, d As Integer
    
    
    Columns("B:IP").Select
    Selection.ClearContents
c = InputBox("A sütununu hangi karakter yada karakterler göre yan sütunlara ayırmak istiyorsanız o karakteri Giriniz", , "*")
Set sh = Sayfa1
ss = sh.Cells(50000, 1).End(3).Row

For i = 1 To ss
    d = 0
    hepsi = sh.Range("A" & i).Value
    kelime = Split(hepsi, c)
    For d = 2 To UBound(kelime) + 2
        sh.Cells(i, d).Value = kelime(d - 2)
    Next d
Next

 Columns("B:IP").EntireColumn.AutoFit
 Cells(1, 1).Select
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub