引用:
d:\test にファイルにエクセルファイルが保存されています。ファイル名は不規則です。
ファイルは今後増えていく予定で、現在は10程度。増えればその分だけ横に伸ばしていきたいと思っています。
A〜D列の項目は固定されておりますが、E列から右は日付の項目で何列あるか決まっていません。
右へ行くほど新しい日付となります。
引用:
※重複列は削除したい
※増えた品番は追加したい
※CD、分類は削除したい
(詳細エディタ)
------------------------------------------------------------
let
GetTable = (File as binary, SheetName as text) =>
let
Source = Excel.Workbook(File, null, true),
FirstSheet = Source{[Item=SheetName,Kind="Sheet"]}[Data],
PromotedHeaders = Table.PromoteHeaders(FirstSheet, [PromoteAllScalars=true])
in
PromotedHeaders,
GetFiles = Folder.Files("D:\test"),
InvokedCustomFunction = Table.AddColumn(GetFiles, "Sheet1", each GetTable([Content], "Sheet1")),
CombinedTable = Table.Combine(InvokedCustomFunction[Sheet1]),
UnpivotedOtherColumns = Table.UnpivotOtherColumns(CombinedTable, {"CD", "品番", "商品名", "分類"}, "ColumnName", "ColumnValue"),
RemovedColumns = Table.RemoveColumns(UnpivotedOtherColumns,{"CD", "分類"}),
RemovedDuplicates = Table.Distinct(RemovedColumns),
SortedRows = Table.Sort(RemovedDuplicates,{{"品番", Order.Ascending}, {"ColumnName", Order.Ascending}}),
PivotedColumn = Table.Pivot(SortedRows, List.Distinct(SortedRows[ColumnName]), "ColumnName", "ColumnValue")
in
PivotedColumn
------------------------------------------------------------
こんな感じのクエリを作成できれば良い、ということでしょうか。