View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
2007-User 2007-User is offline
external usenet poster
 
Posts: 35
Default Seperating Numbers

That is it, thank you so much, is it possible to make it like one of Excel's
functions? (like SEPARATOR(A1))


"kounoike" wrote in message
...
if using VBA, select all the range you want to change first, then run
test1 below.
but the range should be in same column.(i assume all formula are in the
same column and all oprators are "+")

Sub test1()
Dim r, s
Dim i As Long
For Each r In Selection
Range(r(1, 2), r.End(xlToRight)).ClearContents
s = Split(Mid(r.Formula, 2), "+")
For i = 0 To UBound(s)
r(1, 2 + i) = s(i)
Next
Next
End Sub

keizi

"2007-User" wrote in message
...
Hi,

This is an example of what I am trying to do:
In one cell I have "=4+6+12+18+4+5+8+7" (so the result of this cell would
be "64").
Now, I would like to have all of these numbers to be sorted and separated
in one row (or column) next to each other (like "4","6","12", ... Etc.)
how is this possible with or without using VBA?

Thanks for your future inputs.