Question

This question ended up being more interesting than I thought it would be, and I have solved the direct issue for my purposes.

But now I have a question for which the answer should be simple, but I can’t find it.

After TextToColumns has done its thing, how can I figure out how many columns were created?
The number of columns in my results are variable, and it’s not guaranteed that there’s whitespace after the end of the split.

It would be great if the TextToColumns function returned the number of columns it created, but that doesn’t seem to work.

I don’t want to just count the commas before splitting; there are situations of commas inside quotes, for example, which TextToColumns seems to handle just fine. If I was going to have to count character-by-character, then I might as well write my own split function.

(The reason I need this is so I can offer the option to transpose the results)

Thanks.

Answer 1

You can check with UsedRange. Please see below example:

Sub check()
Dim before As Integer
Dim after As Integer
before = Sheet1.UsedRange.Columns.Count
MsgBox before
Range("A1").TextToColumns DataType:=xlDelimited, _
    Comma:=False, Space:=True
after = Sheet1.UsedRange.Columns.Count
MsgBox after
MsgBox after - before
End Sub