[[20211228135714]] 『Power Queryでのデータ作成』(まめち) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『Power Queryでのデータ作成』(まめち)

以前は、皆様ありがとうございました。
追記なのですが
商品コード 商品名 容量  納品日  A店    B店 
                   ケース バラ  ケース バラ
111111  ○○○  350  12月21日 10 5  10  5
222222  △△△  500  12月21日 20 5  45  0 
333333  □□□  750  12月21日  0 5   0  5  
上記にある表を作成してCSVファイルに出力したいがため、以前皆様に教えていただいたPower Queryで,下記のように表示したいのです。
店名 商品コード 商品名 ケース  バラ
A店  111111   〇〇○  10  5
A店  222222   △△△  20  5
A店  333333   □□□   0  5
B店  111111   〇〇○  10  5
B店  222222   △△△  45  0
B店  333333   □□□   0  5
以前は変換から、ピボットの解除でしたが今回は出来るのでしょうか。
すみませんが、どなたか分かる方よろしくお願い致します。

< 使用 Excel:Excel2019、使用 OS:Windows10 >


こんな感じで。

タイトル行が2行となっているので、
行列を入れ替えて、列のマージするのがポイントです。

 let
    ソース = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content],
    変更された型 = Table.TransformColumnTypes(ソース,{{"列1", type text}}),
    削除された列 = Table.RemoveColumns(変更された型,{"列3", "列4"}),
    転置されたテーブル = Table.Transpose(削除された列),
    下方向へコピー済み = Table.FillDown(転置されたテーブル,{"Column1"}),
    結合された列 = Table.CombineColumns(下方向へコピー済み,{"Column1", "Column2"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"結合済み"),
    #"トリム テキスト" = Table.TransformColumns(結合された列,{{"結合済み", Text.Trim, type text}}),
    転置されたテーブル1 = Table.Transpose(#"トリム テキスト"),
    昇格されたヘッダー数 = Table.PromoteHeaders(転置されたテーブル1, [PromoteAllScalars=true]),
    ピボット解除された他の列 = Table.UnpivotOtherColumns(昇格されたヘッダー数, {"商品コード", "商品名"}, "属性", "値"),
    区切り記号による列の分割 = Table.SplitColumn(ピボット解除された他の列, "属性", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), {"属性.1", "属性.2"}),
    ピボットされた列 = Table.Pivot(区切り記号による列の分割, List.Distinct(区切り記号による列の分割[属性.2]), "属性.2", "値", List.Sum),
    #"名前が変更された列 " = Table.RenameColumns(ピボットされた列,{{"属性.1", "店名"}}),
    並べ替えられた列 = Table.ReorderColumns(#"名前が変更された列 ",{"店名", "商品コード", "商品名", "ケース", "バラ"}),
    並べ替えられた行 = Table.Sort(並べ替えられた列,{{"店名", Order.Ascending}, {"商品コード", Order.Ascending}})
 in
    並べ替えられた行

(マナ) 2021/12/28(火) 17:18


↑空のクエリを追加して、Power Queryエディターにコピペしてください。

(マナ) 2021/12/28(火) 17:21


ありがとうございます!
やってみます
(まめち) 2021/12/29(水) 08:27

マナさんありがとうございます
これってVBAじゃなくても出来ますでしょうか。
(まめち) 2021/12/29(水) 12:01

>やってみます

その結果はどうでしたか。

(マナ) 2021/12/29(水) 12:36


トークンEofが必要ですと出ました。
(まめち) 2021/12/29(水) 13:18

>Power Queryエディターにコピペしてください。

Power Queryエディターの詳細エディターを開いたら
下記を削除したうえで、コピペしてください(上書きしてください)。

 let
    ソース = ""
 in
    ソース

(マナ) 2021/12/29(水) 14:49


コピペしたのですが基のデータのヘッダーと合っていないのでエラーが起きてしまいます、、、
県酒販コード、1本JANコ−ド、商品名、容量、入数、単価、ケース単価、追加発注、発注日、納品日、店名、合計これがヘッダーになります

(まめち) 2021/12/29(水) 16:16


まずは最初に提示された表で確認してください。
実際のデータで試すのは、
操作が理解できてからでお願いします。
理解できれば列が増えても応用は簡単です。

テーブルに変換する際に、1行目を見出しに設定しないでくいださい。
してもよいですが、それも応用段階でお願いします。

(マナ) 2021/12/29(水) 16:46


ありがとうございます
迷惑をかけてしまいすみません
試してみます
(まめち) 2021/12/29(水) 17:46

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.