Putting data into separate cells from one cell - breaking up an untidy list

[Zakky]

hi, is there a way to get the data below (which is in one cell) into separate cells going down so it's nice and tidy. At the moment i'm copying the data 5 times and deleting the unwanted text to have one day in each cell: The problem is it's not consistence with the separators. some have a full stop, space, semi colon or space. I want to delete the separators and just be left with the text. Thank you

Monday, Tuesday; Wednesday. Thursday Friday Monday Tuesday Wednesday Thursday Friday

 

[alansidman]

With Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Changed Type","Column1",Splitter.SplitTextByAnyDelimiter({".",";",","," "})),
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Split Column by Delimiter", {}, "Attribute", "Value"),
    #"Trimmed Text" = Table.TransformColumns(#"Unpivoted Columns",{{"Value", Text.Trim, type text}}),
    #"Removed Columns" = Table.RemoveColumns(#"Trimmed Text",{"Attribute"})
in
    #"Removed Columns"

 

[Zakky]

With Power Query

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}}),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Changed Type","Column1",Splitter.SplitTextByAnyDelimiter({".",";",","," "})),
    #"Unpivoted Columns" = Table.UnpivotOtherColumns(#"Split Column by Delimiter", {}, "Attribute", "Value"),
    #"Trimmed Text" = Table.TransformColumns(#"Unpivoted Columns",{{"Value", Text.Trim, type text}}),
    #"Removed Columns" = Table.RemoveColumns(#"Trimmed Text",{"Attribute"})
in
    #"Removed Columns"

alansidman, thank you for replying. This is a a bit heavy for me, as i was expecting an Excel function. I don't use Power Query.

 

[jolivanes]

Sub As_Per_Your_Example()
Dim a
a = Split(Replace(Replace(Replace([a3], ", ", " "), "; ", " "), ". ", " "), " ")
    Cells(5, 1).Resize(UBound(a) + 1) = Application.Transpose(a)
End Sub

And, if you answer to this post, don't Quote. Just refer to the Post # if needed.

 

[alansidman]

Power Query is a free AddIn for Excel 2010 and 2013, and is built-in functionality from Excel 2016 onwards (where it is referred to as "Get & Transform Data").

It is a powerful yet simple way of getting, changing and using data from a broad variety of sources, creating steps which may be easily repeated and refreshed. I strongly recommend learning how to use Power Query - it's among the most powerful functionalities of Excel.

- Follow this link to learn how to install Power Query in Excel 2010 / 2013.

- Follow this link for an introduction to Power Query functionality.

- Follow this link for a video which demonstrates how to use Power Query code provided.

 

[Zakky]

alansidman, thank very much for the details.

jolivanes, thank you for the code.

All, have a good day.

 

[Fluff]

Another option with a formula

Fluff.xlsm
	A
1
2	Monday, Tuesday; Wednesday. Thursday Friday
3	Monday
4	Tuesday
5	Wednesday
6	Thursday
7	Friday
Lists

Cell Formulas
Range	Formula
A3:A7	A3	=TEXTSPLIT(A2,,{"."," ",",",";"},1)
Dynamic array formulas.

 

[Zakky]

Fluff, just what i was looking for....works like a dream. Many thanks!!

 

[Fluff]

Glad we could help & thanks for the feedback.