Can this UDF changed to Rows instead of Colomns

[Please_H]

Hi guys,

To break-down addresses this is the UDF I have been using, Can someone be kind enough to change its feature to break it down to rows instead of breaking it down to Colomns?

Thanks a lot,

Function SplitValues(a As String, b As String)
  SplitValues = Split(b & String(Application.Caller.Count, a), a)
End Function

 

[Snakehips]

Are you thinking directly via code or maybe using a UDF ?

 

[AkaTrouble]

i was thinking out loud lol

so either or

 

[Snakehips]

As direct via code then...

Sub Example_Split()


Splt = Split("one,two,three,four", ",")
'in this case it is obvious that the string splits into 4 elements


'if need to test the resulting elements eg to run a loop then
u = UBound(Splt)  ' upper bound of the array.
'u = 3 here 4 array elements 0 to 3


'asign individual elements
Range("B2") = Splt(0)
Range("D6") = Splt(1)
Range("C2") = Splt(2)
Range("D3") = Splt(3)
Range("E3") = Splt(u)    'u = 3 so same string as line above (4 elements 0 to 3)


'assign whole to range
Range("A7:D7") = Splt


'reverse of split is join eg
Range("B4") = Join(Splt, "***")


End Sub

 

[AkaTrouble]

As direct via code then...

Brilliant explanation with perfect code commenting Thank You, will let you have a coffee (or) now