Hücredeki harfleri başka bir hücreye tek tek yazdırmak

[asim.gunes]

Merhaba, herhangi bir hücremiz var içerisinde ABCABCDE diye harf grubu var, buradaki herharfi başka bir hücreye alt alta yazdırabilirmiyiz ? yani A bir alta B bir alta C aşağı doğru sıralayacak.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    metin = Selection
    sat = Selection.Row + 1
    süt = Selection.Column
    
    For i = 1 To Len(metin)
        Cells(sat, süt) = Mid(metin, i, 1)
        sat = sat + 1
    Next i
    
End Sub

. . .

 

[Tevfik_Kursun]

Merhaba Hüseyin Hocam,

Sub Kod_Yatay()
    metin = Selection
    sat = Selection.Row
    süt = Selection.Column + 1
    
    For sat = 1 To 5
        For j = 1 To Len(metin)
            Cells(sat, süt) = Mid(metin, j, 1)
            süt = süt + 1
        Next j
        süt = 3
    Next sat
End Sub

Sizin makroya bakarak oluşturdum. Üstteki kod seçilmiş hücreyi yatay olarak karakterlere ayırıyor. Benim düşündüğüm ise B5 ten aşağıya kaç satır varsa hepsini ayrı ayrı yatay olarak karakterlere ayırsın
Bu birer birer ayırıyor. Mümkünse ikişer ikişer ya da üçer üçer olsun.
Yardımcı olursanız sevinirim.
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

sayı = [B][COLOR="DarkRed"]3[/COLOR][/B]

For a = 5 To Cells(Rows.Count, "B").End(3).Row
metin = Cells(a, "B")
süt = 3
s = 0

For i = 1 To Len(metin)
sat = a
Cells(sat, süt) = Mid(metin, s + 1, sayı)
s = s + sayı
süt = süt + 1
Next i
Next a

End Sub

. . .

 

[Tevfik_Kursun]

Çok teşekkür ederim Hüseyin Hocam,
Saygılar Sunarım