Splitting column data using delimiters

[Oliver1234]

Hi there,

Having some problems splitting data within a single column into several using VBA rather than a Formula. (I have been able to get working using a formula). I have found a few similar theads but nothing i seem to be able to convert with my some what limited skills

My data is always in a sheet called "Release Data" in column A, the number of rows varies daily. The data is always extracted with the delimiters in the same position E.G.

NNNNNN_AAA_Variable length txt

I would like to split the data into columns I, J and K.

Any help greatly appreciated

 

[jim may]

Post the below into a Standard Module, and Run from a Back-Up copy of your file...

Sub Foo()
Dim T As String
Dim s As Variant
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    T = Cells(i, 1)
    s = Split(T, "_")
        For j = 0 To UBound(s)
        Cells(i, j + 9) = s(j)
        Next j
Next i
End Sub

 

[Oliver1234]

Works a treat.....

Many thanks