Triming data in a cell?

[SandyUK]

I have a column of postcode area in which each cell can have 1 or more areas for example this is the data in one of the cells

SO25, SO26, SO27, SO28, SO29, SO30, SO31, SO32, SO33, SO34, SO35, SO36, SO37, SO38, SO39, SO40

I am trying to split the areas into into individual cells i.e. SO25 would appear in A1 then SO26 in A2 etc etc but having no joy.

Can anybody help?

Regards

Adrian

[stevebriz]

somthing like this will work for you:

Private Sub CommandButton1_Click()

    Dim txt As String
    Dim x As Variant
    Dim i As Long
    txt = Range("B2").Text ' the data you want to split is in cell B2
    'MsgBox txt
    x = Split(txt, ",")
    For i = 0 To UBound(x)
   Cells(1, i + 1).Value = Trim(x(i)) ' puts in row 1 starting a column A
       
    Next i
End Sub

[SandyUK]

Thanks for that Steve

It is a step in the right direction.

Much appreciated

Adrian