Herbir rakamı bir sütüna yerleştirmek

[ocak26]

Arkadaşlar merhaba
ekli listede her bir rakamı bir sütüna yerleştirilecek şekilde nasıl formülleriz
teşekkürler

 

[vardar07]

Lütfen konu açmadan site içi aramayı kullanın. Bir kaç kez işlenmiş bir konudur. Verinizi A1 Hücresine yazarak deneyiniz.

Sub parcala()
son = Sheets("Sayfa1").Range("a65536").End(3).Row
Application.ScreenUpdating = False
Sheets("Sayfa1").Range("b1:r50").Clear
For i = 1 To son
For j = 1 To Len(Sheets("Sayfa1").Cells(i, 1))
Sheets("Sayfa1").Cells(i, j + 1) = VBA.Mid(Replace(Cells(i, 1), " ", ""), j, 1)
Next j
Next i
Application.ScreenUpdating = True
End Sub

 

[Merhum İdris SERDAR]

.

=MID($C$6;COLUMN(A1);1)

=PARÇAAL($C$6;SÜTUN(A1);1)

yazıp, sağa doğru yeterince kopyalayın.

Ayrıca buradaki dosyayı inceleyin.


http://www.excelgurusu.com/sayiyi-dijit-olarak-hucrelere-ayirma/


.