Sayıları tek tek ayırma

[asyasakarya]

A1 hücresinde 4569876 gibi sayı var ben bunu b1,c1,d1,e1.... Hücrelerine tek tek yazdırmak istiyorum
şimdiden teşekkürler

 

[ÖmerBey]

Tek tek derken rakam rakam 1 karakter olacak şekilde istiyorsanız
B1 hücresine aşağıdaki formülü yazıp sağa doğru çekiniz

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

 

[asyasakarya]

Oldu fakat t.c c6 hücresinde olunca olmuyor

 

[Emir Hüseyin Çoban]

. . .

Makro ile çözüm

İşlem Sonucu:

Sub KOD()

For Each alan In Range("A1:A" & [A65536].End(3).Row)
uzunluk = Len(alan.Text)
For i = 1 To uzunluk
Cells(alan.Row, i + 1) = Mid(alan.Text, i, 1)
Next i
Next alan

End Sub

. . .

 

[ÖmerBey]

D6 ya formülü şu şekilde uygulayın

=PARÇAAL($C6;SÜTUN()-3;1)

Ya da garanti olsun
Hangi hücre olursa olsun sağındaki hücreye yazdığınız zaman ayıracaktır

=PARÇAAL($C6;SÜTUN()-SÜTUN($C6);1)

 

[Leoncio]

Merhaba;

Alternatif olması açısından aşağıdaki kod ile de seçili olan hücreleri parçalayabilirsiniz.

Sub Kelime_Böl()
Dim i As Integer
Dim hucre As Range
For Each hucre In Selection
c = hucre.Value
For i = 1 To Len(c)
hucre.Offset(0, i) = Mid(c, i, 1)
Next
Next
End Sub