Delimited Numbers

[mohan.r1980]

Hi Friends,

i have large numbers in Column A and i delimited it by column B To H.
eg. 1452689 will be delimited 7 columns 1 4 5 2 6 8 9

maximum digit will be 7 in column A
if a number like 456 comes in Column A the it will be delimited like this 4 5 6 in column F to G
means right alignment

Please see the attached file for more details

[tom1977]

Hi check such code

Sub aa()
Dim c As Range
Dim x, y As Integer

For Each c In Range("a2:a7")
 y = 7
 For x = Len(c) To 1 Step -1
     c.Offset(0, y) = Mid(c, x, 1)
 y = y - 1
    Next x
    Next c
    
End Sub

[Cutter]

Or this formula (which doesn't use the delimiting) - J6 copied over and down:

=MID(TEXT($A2,"0000000"),COLUMNS($J:J),1)*1

you can suppress the leading zero results (if they are not wanted) with this version (also in J6 and copied over and down):

=IF(LEN($A2)>=COLUMNS(J:$P),MID(TEXT($A2,"0000000"),COLUMNS($J:J),1)*1,"")
or
=IF(LEN($A2)<COLUMNS(J:$P),"",MID(TEXT($A2,"0000000"),COLUMNS($J:J),1)*1)