列の値に基づいて、値が変化するまで複数の行内の複数の列を結合します。

Question 1

これを行う 1 つの方法は、Windows Excel 2010 以降および Office 365 で利用可能な Power Query を使用することです。

データテーブル内のセルを選択します
- Data => Get&Transform => from Table/Range
- Power Query UI の場合:Home => Advanced Editor
- 2行目のテーブル名をメモします。
- 以下のMCodeをウィンドウに貼り付けます
- 2行目のテーブル名を実際のテーブル名に変更します。
- コードとコメントを読み、Applied Stepsウィンドウを調べて何が起こっているかを理解します。

簡単なアルゴリズム

Fill down名前とIDの列の空白
Group名前とIDの列
抽出する初め日付、人物、メモを別々の列に表示します
最後の列のすべての日付/人物/メモ（改行で区切られている）を結合します

Mコード
以下のコードでは、2行目のテーブル名を実際のテーブル名に変更してください。

let
    Source = Excel.CurrentWorkbook(){[Name="Table3"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Name", type text}, {"ID", type text}, {"Date", type datetime}, {"Person", type text}, {"Notes", type text}}),
    
//Fill down to fill in the blanks for Name and ID columns
    #"Filled Down" = Table.FillDown(#"Changed Type",{"Name", "ID"}),

//Group on Name and ID -- should be the same so this is a double check.
    #"Grouped Rows" = Table.Group(#"Filled Down", {"Name", "ID"}, {

//For each Name/ID
    //Extract first Date as a date string if it has no time component, otherwise leave it as a datetime 
        {"Date", each if DateTime.Time([Date]{0}) = #time(0,0,0)
                            then DateTime.ToText([Date]{0},"MM/dd/yy")
                            else [Date]{0}},
    //Extract first Person
        {"Person", each [Person]{0}},

    //extract first Note
        {"Notes.1", each [Notes]{0}},

    //Extract and combine, for each note, the Date, person, and note
    //  Then split the combination for each entry by linefeed.
        {"Notes.2", (t)=> Text.Combine(
                            List.Generate(() => [Count=1, 
                            dt =DateTime.ToText(t[Date]{0},"MM/dd/yyyy") & " (" & 
                                t[Person]{0} & 
                                ") - " & t[Notes]{0}],
                         each [Count] <= Table.RowCount(t), 
                         each [Count = [Count] + 1, dt = DateTime.ToText(t[Date]{[Count]},"MM/dd/yyyy") & 
                                    " (" & t[Person]{[Count]} & 
                                    ") - " & t[Notes]{[Count]}],
                         each [dt]),"#(lf)")
                    }
        })
in
    #"Grouped Rows"

データ

結果

Notes.2Excelでは、列をにWrap Text、Date列をにフォーマットする必要がありますmm/dd/yyyy hh:mm （日付列では、時間のない日付はテキスト文字列として返されるため、同じ形式にはなりません（これも質問に示されているとおりです）。）

Answer

これを行う 1 つの方法は、Windows Excel 2010 以降および Office 365 で利用可能な Power Query を使用することです。

データテーブル内のセルを選択します
- Data => Get&Transform => from Table/Range
- Power Query UI の場合:Home => Advanced Editor
- 2行目のテーブル名をメモします。
- 以下のMCodeをウィンドウに貼り付けます
- 2行目のテーブル名を実際のテーブル名に変更します。
- コードとコメントを読み、Applied Stepsウィンドウを調べて何が起こっているかを理解します。

簡単なアルゴリズム

Fill down名前とIDの列の空白
Group名前とIDの列
抽出する初め日付、人物、メモを別々の列に表示します
最後の列のすべての日付/人物/メモ（改行で区切られている）を結合します

Mコード
以下のコードでは、2行目のテーブル名を実際のテーブル名に変更してください。

let
    Source = Excel.CurrentWorkbook(){[Name="Table3"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Name", type text}, {"ID", type text}, {"Date", type datetime}, {"Person", type text}, {"Notes", type text}}),
    
//Fill down to fill in the blanks for Name and ID columns
    #"Filled Down" = Table.FillDown(#"Changed Type",{"Name", "ID"}),

//Group on Name and ID -- should be the same so this is a double check.
    #"Grouped Rows" = Table.Group(#"Filled Down", {"Name", "ID"}, {

//For each Name/ID
    //Extract first Date as a date string if it has no time component, otherwise leave it as a datetime 
        {"Date", each if DateTime.Time([Date]{0}) = #time(0,0,0)
                            then DateTime.ToText([Date]{0},"MM/dd/yy")
                            else [Date]{0}},
    //Extract first Person
        {"Person", each [Person]{0}},

    //extract first Note
        {"Notes.1", each [Notes]{0}},

    //Extract and combine, for each note, the Date, person, and note
    //  Then split the combination for each entry by linefeed.
        {"Notes.2", (t)=> Text.Combine(
                            List.Generate(() => [Count=1, 
                            dt =DateTime.ToText(t[Date]{0},"MM/dd/yyyy") & " (" & 
                                t[Person]{0} & 
                                ") - " & t[Notes]{0}],
                         each [Count] <= Table.RowCount(t), 
                         each [Count = [Count] + 1, dt = DateTime.ToText(t[Date]{[Count]},"MM/dd/yyyy") & 
                                    " (" & t[Person]{[Count]} & 
                                    ") - " & t[Notes]{[Count]}],
                         each [dt]),"#(lf)")
                    }
        })
in
    #"Grouped Rows"

データ

結果

Notes.2Excelでは、列をにWrap Text、Date列をにフォーマットする必要がありますmm/dd/yyyy hh:mm （日付列では、時間のない日付はテキスト文字列として返されるため、同じ形式にはなりません（これも質問に示されているとおりです）。）

Question 2

コメント列全体に対して、[ホーム] リボンから [テキストの折り返し] を必ず設定してください。次の数式を使用して、テキスト値を改行と結合します。

="comment1" & CHAR(10) & "Comment2"

2 つの別々のテーブルを結合する場合は、Excel の Power Query を調べる価値があるかもしれません。

Answer

コメント列全体に対して、[ホーム] リボンから [テキストの折り返し] を必ず設定してください。次の数式を使用して、テキスト値を改行と結合します。

="comment1" & CHAR(10) & "Comment2"

2 つの別々のテーブルを結合する場合は、Excel の Power Query を調べる価値があるかもしれません。

列の値に基づいて、値が変化するまで複数の行内の複数の列を結合します。

答え1

答え2

関連情報