Option Explicit
Sub ParseStrings()
Dim MyArr As Variant
MyArr = Split(Range("A1"), ";")
Range("B1").Resize(UBound(MyArr) + 1).Value = _
Application.WorksheetFunction.Transpose(MyArr)
End Sub
If the data is really that simple, then:
1) Make sure the data is all in one column and the columns to the right are empty
2) Highlight the column of data
3) Select Data > Text To Colums > Delimited > Other: ; > Finish
That should do it.
If the data is really that simple, then:
1) Make sure the data is all in one column and the columns to the right are empty
2) Highlight the column of data
3) Select Data > Text To Colums > Delimited > Other: ; > Finish
That should do it.
A | B | C | |
1 | Country List | Email To | |
2 | Country A | Amit.kumar@asia.mkassociate.com;Sejal.vyas@algeria.mkassociate.com;nitin.sharan@asia.mkassociate.com | =Proper(Iferror(Left(B2,Search(".",B2)-1,"")) |
3 | Country B | Delly.Dsouza@asia.mkassociate.com;prinu.Patel@asia.mkassociate.com | =Proper(Iferror(Left(B3,Search(".",B3)-1,"")) |
4 | Country C | Vikas.Kumar@asia.mkassociate.com;royse.ph@asia.mkassociate.com;Mike.Ros@japan.mkassociate.com;Tejal.Kumar@asia.mkassociate.com | =Proper(Iferror(Left(B4 ,Search(".",B4)-1,"")) |