Splitting a row with multiple lines of text to different rows

Eizenman 

One more variant with Power Query. Not everything from user interface, the script is

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    UnpivotColumns = Table.UnpivotOtherColumns(
        Source,
        {},
        "Attribute", "Value"
    ),
    DateToText = Table.ReplaceValue(
        UnpivotColumns,
        each [Value],
        each
            if Type.Is(Value.Type([Value]),DateTime.Type)
            then Date.ToText(DateTime.Date([Value]),"yyyy-MM-dd")
            else [Value],
        Replacer.ReplaceValue,{"Value"}
    ),
    AllToText = Table.TransformColumnTypes(
        DateToText,
        {{"Value", type text}}
    ),
    TransformColumn = Table.TransformColumns(
        AllToText,
        {
            {"Value", Splitter.SplitTextByDelimiter("#(lf)")}
        }
    ),
    ExpandToRows = Table.ExpandListColumn(
        TransformColumn,
        "Value"
    ),
    GroupRows = Table.Group(
        ExpandToRows,
        {"Attribute"},
        {{"Group", each [Value]}}
    ),
    Result = Table.FromRows(
        List.Zip(GroupRows[Group]),
        GroupRows[Attribute]
    ),
    ProperType = Table.TransformColumnTypes(
        Result,
        {
            {"Line", Int64.Type},
            {"Date", type date},
            {"Supplier", type text}
        }
    )
in
    ProperType

Eizenman I'm not sure why you don't want to use VBA, but I couldn't come up with an easy alternative. The code below assumes all cells on a row contain the same number of "lines":

Option Explicit

Sub SplitTableROws()
    Dim Data As Variant
    Dim NewData As Variant
    Dim SplitData As Variant
    Dim DataRow As Long
    Dim NewDataRow As Long
    Dim Col As Long
    Dim Line As Long

    Data = ActiveSheet.Range("A1").CurrentRegion.Value
    NewData = Application.Transpose(Data)
    For DataRow = LBound(Data, 1) To UBound(Data, 1)
        NewDataRow = NewDataRow + 1
        If InStr(Data(DataRow, 1), Chr(10)) > 0 Then
            ReDim Preserve NewData(1 To UBound(Data, 2), 1 To NewDataRow + UBound(Split(Data(DataRow, 1), Chr(10))))
            For Col = LBound(Data, 2) To UBound(Data, 2)
                SplitData = Split(Data(DataRow, Col), Chr(10))
                For Line = LBound(SplitData) To UBound(SplitData)
                    NewData(Col, NewDataRow + Line) = SplitData(Line)
                Next
            Next
            NewDataRow = NewDataRow + Line - 1
        Else
            ReDim Preserve NewData(1 To UBound(Data, 2), 1 To NewDataRow)
            For Col = LBound(Data, 2) To UBound(Data, 2)
                NewData(Col, NewDataRow) = Data(DataRow, Col)
            Next
        End If
    Next DataRow
    Range("F1").Resize(NewDataRow, UBound(Data, 2)).Value = Application.Transpose(NewData)
End Sub