6 Responses to “Split text across columns”

1. Ingolf says:

   December 3, 2014 at 3:30 pm

   Hi Oscar,

   To avoid array formula,and use Text to columns, can be used:

   Sub Splitcell()
   [A1].TextToColumns [A1].Offset(, 2), xlDelimited, , , 0, 0, 1, 0, 0
   End sub

   PS
   Your site is excellent. One of the best of the best.

   Ingolf

   Reply
   • Oscar says:

     December 4, 2014 at 6:37 pm

     Ingolf,

     thank you!

2. Rick Rothstein (MVP - Excel) says:

   December 4, 2014 at 5:45 pm

   Two points about your SplitValues UDF...

   First, when the Split function will be called only once during a procedure, there is no need to assign the output from the Split function to an intermediary dynamic array in order to work with its output (doing so similar to selecting a range and then woring with the Selection object instead of the range itself); rather, you can work directly with the Spiit function itself...

   Function SplitValues(a As String, b As String)
     SplitValues = Split(b, a)
   End Function
   

   Second, the way you have implemented your function, you need to know, in advance, how many substrings the 'b' argument will split into so that you can select exactly that amount of cells to array-enter your formula in, otherwise, any excess selected cells will display the #N/A error which, of course, looks kind of ugly but would be necessary if the text passed into the 'b' argument could vary in the number of delimiters over time. We can eliminate the #N/A errors for any excess selected cells fairly easily using the Application.Caller object like so...

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

   Reply
   • Oscar says:

     December 4, 2014 at 6:54 pm

     Rick Rothstein (MVP - Excel),

     Interesting comment, as always.
     Your second point was new to me.

3. Ingolf says:

   December 4, 2014 at 6:10 pm

   [quote]
   Second, the way you have implemented your function, you need to know, in advance, how many substrings the 'b' argument will split into so that you can select exactly that amount of cells to array-enter your formula in, otherwise, any excess selected cells will display the #N/A error which, of course, looks kind of ugly but would be necessary if the text passed into the 'b' argument could vary in the number of delimiters over time.
   [/quote]

   Not too sure..

   Sub SplitCell()
   With Range("A1", Cells(Rows.Count, "A").End(xlUp))
   .TextToColumns .Offset(, 2), xlDelimited, , , 0, 0, 1, 0, 0
   End With
   End Sub

   Reply
   • Rick Rothstein (MVP - Excel) says:

     December 4, 2014 at 6:54 pm

     I was referring to problems associated with implementing the UDF in my previous posting... macros (like what you posted) are completely different than UDFs and do not have the same (or virtually any such) restrictions. As for determining the vertical extent of the cells to apply the Text-To-Columns method to... that is not necessary as Text-To-Columns will only work on cells with data, so applying it to the entire column will work the same as restricting it to your calculated range...

     Columns("A").TextToColumns .Offset(, 2), xlDelimited, , , 0, 0, 1, 0, 0

How to comment

How to add a formula to your comment
<code>Insert your formula here.</code>

Convert less than and larger than signs
Use html character entities instead of less than and larger than signs.
< becomes &lt; and > becomes &gt;

How to add VBA code to your comment
[vb 1="vbnet" language=","]
Put your VBA code here.
[/vb]

How to add a picture to your comment:
Upload picture to postimage.org or imgur
Paste image link to your comment.

Contact Oscar

You can contact me through this contact form