Excel Vba split multiple cells into columns

Question

My file has multiple lines (72000+) written like this:

UNIX timestamp;User id;In/Out

This homework is about a parking lot. My problem is how do I split all col A into 3 other cols (like B, C and D). I found the split function but I not understanding how to do a loop that cycles all rows and split the text to the other columns .

Please provide some code. What have you tried so far? What do expect your code to do? What does it actually do? — jeanggi90
– jeanggi90, Commented Mar 25, 2019 at 12:03
You don't have to use code - Look under Data, Text to Columns, Delimited and tick comma — Harassed Dad
– Harassed Dad, Commented Mar 25, 2019 at 12:08
You could try something like this Range(input your range here).TextToColumns DataType:=xlDelimited, semicolon:=True using vba to split the data into three columns or use the Text to Columns function under the Data tab. — Arjun
– Arjun, Commented Mar 25, 2019 at 12:12
If using Text to Columns, you will have to change the target from A1 (the defalt) to B1 in order to fill columns B, C and D. — user11246173
– user11246173, Commented Mar 25, 2019 at 12:14

Gary's Student · Accepted Answer · 2019-03-25 12:27:12Z

1

Assuming the data starts in cell A1:

Sub Parser()
    Dim cell As Range
    For Each cell In Range("A:A")
        If cell.Value = "" Then Exit Sub
        Range(cell.Offset(0, 1), cell.Offset(0, 3)).Value = Split(cell, ";")
    Next cell
End Sub

answered Mar 25, 2019 at 12:27

Gary's Student

96.9k10 gold badges66 silver badges104 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Excel Vba split multiple cells into columns

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related