hücre içindeki sayıyı satırlara ayırmak

[uslu45]

merhaba,
örneğin 141592653589793238462643383279502884197169399375105820974944592307816406286208

gibi bir sayıyı her satıra 1 rakam gelecek şekilde alt alta nasıl ayırabilirim.

örnek: 1
4
1
5

şeklinde devam edecek

 

[uzmanamele]

merhaba
sayınız A1 hücresindeyse;

Sub parçala()
Range("b:b").ClearContents
u = Len([a1])
For i = 1 To u
y = y + 1
sayı = Mid([a1], y, 1)
Cells(i, 2) = sayı
Next
End Sub

not:
A1 hücredeki sayı 15 haneden büyükse metin olarak yazmalısınız.

 

[uslu45]

harikasınız çok teşekkür ederim yardımlarınız için
kolay gelsin...

merhaba
sayınız A1 hücresindeyse;

Sub parçala()
Range("b:b").ClearContents
u = Len([a1])
For i = 1 To u
y = y + 1
sayı = Mid([a1], y, 1)
Cells(i, 2) = sayı
Next
End Sub

not:
A1 hücredeki sayı 15 haneden büyükse metin olarak yazmalısınız.