What Can be Reverse of this Function ?

[Muhammad Fraz]

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...

[bebo021999]

Option Explicit
Function splitData(r As Range, n As Integer)
splitData = Mid(r, n, 1)
End Function 

In C2, drag accross

Please Login or Register  to view this content.

[Muhammad Fraz]

Thanks Sir...