1819
11-03-2016, 03:48 PM
This macro to split up strings is written to deal with the first row only.
Only column A has data, but the number of rows will vary. There are no gaps.
Please could you modify the code so that it loop through all rows. I have tried to do this and have not succeeded.
Thanks.
Sub Split()
Dim txt As String
Dim i As Integer
Dim FullName As Variant
txt = ActiveCell.Value
FullName = Split(txt, "ADD")
For i = 0 To UBound(FullName)
Cells(1, i + 1).Value = FullName(i)
Next i
End Sub
Only column A has data, but the number of rows will vary. There are no gaps.
Please could you modify the code so that it loop through all rows. I have tried to do this and have not succeeded.
Thanks.
Sub Split()
Dim txt As String
Dim i As Integer
Dim FullName As Variant
txt = ActiveCell.Value
FullName = Split(txt, "ADD")
For i = 0 To UBound(FullName)
Cells(1, i + 1).Value = FullName(i)
Next i
End Sub