split column dynamically with values

1. Split the text into a list using the delimiter "-".

Text.Split([Path], "-")

"1CO-11C-1000C1" --> {"1CO", "11C", "1000C1"}

2. Split each element of the list by the transition from digits to letters.

List.Transform(PrevStep, each Splitter.SplitTextByCharacterTransition({"0".."9"}, {"A".."Z"})(_))

{"1CO", "11C", "1000C1"} --> {{"1","CO"},{"11","C"},{"1000","C1"}}

3. Zip this list of 3 lists with 2 elements to get a list of 2 lists with 3 elements as follows:

List.Zip(PrevStep)

{{"1","CO"},{"11","C"},{"1000","C1"}} --> {{"1","11","1000"},{"CO","C","C1"}}

 4. Convert this pair of lists into a record.

Record.FromList(PrevStep{0}, PrevStep{1})

{{"1","11","1000"},{"CO","C","C1"}} --> [C0="1", C="11", C1="1000"]

 5. Expand the record column.

Put all together:

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("Zc6xDcAgDATAXaiDZBtIBmCAFJSI/ddAvEji6BuETm/7ew9a76hao4pI1TCOTSJtPeoNMYXbdltuyzM8kRd4/u3GuUJkiJ7kCX5RFWnUjTbSKqpNff2IP+CD3z+9mcfCGBM=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Path = _t]),
    #"Added Custom" = Table.AddColumn(Source, "Custom", each let pairs = List.Zip(List.Transform(Text.Split([Path], "-"), each Splitter.SplitTextByCharacterTransition({"0".."9"}, {"A".."Z"})(_))) in Record.FromList(pairs{0}, pairs{1}), type record),
    #"Expanded Custom" = Table.ExpandRecordColumn(#"Added Custom", "Custom", {"CO", "C", "C1", "S"}, {"CO", "C", "C1", "S"})
in
    #"Expanded Custom"