Function getdata(r As Range) As String
Dim xstr As String
Dim c As Range
For Each c In r
xstr = xstr & c
Next c
getdata = Trim(xstr)
End Function


Lets suppose I have a value in Cell B2 as 123456789, I want to split it into next cells like C2=1, D2=2, E2=3, F2=4, G2=5, H2=6, I2=7, J2=8, K2=9...
Help Needed to Reverse this Function...

I want to learn How this Function can be reversed? And also suggest HOW the REVERSE of this FUNCTION works for Columns values.

Thanks...