Help with VBA code printing data with an offset

[peter_z]

Hey Guys,

I have some code which is seperating some clumped data by "|" pulling back some individual pieces of string. Just wondering how would I print these individual pieces of string into the same row but a different column until there is no more info?

So far I have come up with:

 Sub SplitDemo()
    Dim txt As String
    Dim x As Variant
    Dim c As Variant
    Dim i As Long
    Dim ii As Long
    
       ' This code is seperating the clumped data
        txt = Worksheets("RAW_DATA").Range("E2")
        x = Split(txt, "|")
    
        For i = 0 To UBound(x)
           Debug.Print x(i)
      
        Next i
    
   '  This is me struggling to get it printed into the workbook 
    For ii = 2 To UBound(c)
    x(i) = Worksheets("RAW_DATA").Range.Offset(0, 5 + ii)
Next ii
       
End Sub

Thanks very much for your help

 

[SydneyGeek]

Instead of looping, you can transpose the array onto the worksheet.

Sub SplitDemo()
    Dim txt As String
    Dim x As Variant
    Dim c As Variant
    Dim i As Long
    Dim ii As Long
 
       ' This code is seperating the clumped data
        txt = Worksheets("RAW_DATA").Range("E2")
        x = Split(txt, "|")
 
        For i = 0 To UBound(x)
           Debug.Print x(i)
        Next i
 
        Range("F2").Resize(1, UBound(x)+1) = WorksheetFunction.Transpose(WorksheetFunction.Transpose(x))
End Sub

Denis