Headers split from notepad++ to Excel

Hi anupambit1797​ 

EDIT: Revised the query to simplify it and remove dependency on previously hard coded strings

// CsvSource
let
    Source = Csv.Document(
        // Don't forget to update the below file path with yours
        File.Contents("C:\Lz\Downloads\headers.txt"),
        [Delimiter=",", Columns=1, Encoding=1252]
    )
in
    Source

// RestructuredHeaders
let
    Source = CsvSource,
    RemovedTopRows = Table.Skip( Source, 2 ),
    delim = "|",
    TextSplitToList = Table.AddColumn( RemovedTopRows, "Splitted", each
        List.Skip( Text.Split( [Column1], delim ), 22 ), type list
    ),
    RemovedColumn = Table.RemoveColumns( TextSplitToList, {"Column1"} ),
    AddedRowNum = Table.AddIndexColumn( RemovedColumn, "Row", 1, 1 ),

    reptDelim2 = Text.Repeat( delim, 2 ),
    reptDelim3 = reptDelim2 & delim,
    reptDelim4 = reptDelim2 & reptDelim2,
    reptDelim5 = reptDelim2 & reptDelim3,

    AddDelimitersRow2 = (ListSource as list ) as list =>
        let
            Source = List.Repeat( List.FirstN( List.Skip( ListSource, 2 ), 2 ), 2 ),
            ConvertedToTable = Table.FromList( Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
            AddedIndex = Table.AddIndexColumn(ConvertedToTable, "Index", 1, 1 ),
            AddedModulo = Table.AddColumn(AddedIndex, "Modulo", each Number.Mod( [Index], 2 ), Int64.Type ),
            RemovedIndex = Table.RemoveColumns(AddedModulo,{"Index"}),
            AddedDelimiters = Table.AddColumn(RemovedIndex, "DelimitedValue", each
                if [Modulo] = 1
                then Text.Combine( {reptDelim3, Text.Trim([Column1]), reptDelim4} )
                else Text.Combine( {Text.Trim([Column1]), reptDelim2} ),
                type text
            )
            in
                AddedDelimiters[DelimitedValue],

    TransformedList = Table.AddColumn( AddedRowNum, "CustomList", each
        if [Row] = 1
            then  List.Transform( List.FirstN( [Splitted], 2 ),
                    (text) => Text.Combine( {reptDelim5, Text.Trim(text), reptDelim5} )
                  )
        else if [Row] = 2 then AddDelimitersRow2( [Splitted] )
        else List.Transform( List.FirstN( List.Skip( [Splitted], 3 ), 22 ), Text.Trim ),
        type list
    ),
    RemovedOtherColumns = Table.SelectColumns( TransformedList, {"CustomList"} ),
    ListToText = Table.AddColumn( RemovedOtherColumns, "TextToSplit", each
        Text.Combine( [CustomList], delim ), type text
    ),
    RemovedList = Table.SelectColumns(ListToText, {"TextToSplit"} ),
    SplitByDelimiter = Table.SplitColumn( RemovedList, "TextToSplit",
        Splitter.SplitTextByDelimiter( delim, QuoteStyle.Csv),
        List.Transform( {1..22}, (num) => "Col" & Text.From(num) )
    )
in
    SplitByDelimiter