|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- let
- Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45Wcjc3AAJDJR2ll6tnPN3Q/3zdQktDo6d7V5o92bEWyFgyDSj1dO2EJ7u3Pe9c+WzazKf924EiwYaGhgbGSrE6ZJjwrL//xf4NQEFDRxMFZ1dSDXk2dcPL9n4g1wikhQTdvVOf7O0FMqJcHclzOMTrZhaOBoamZpT7PcRCISiYbN8bkul7Jx9vSnwPjngjKkR8iAXdvT4a8QhdRth1GZkQHfEkmIA74okyBKfXCenGHvEkex0z4sn0O3rE08f31Ih4YypEPEpRT5rX0Yv60YinV8QP5RwfCwA=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [父件物料号 = _t, 父件物料描述 = _t, 属性 = _t, 值 = _t]),
- #"Added Index" = Table.AddIndexColumn(Source, "Index", 0, 1, Int64.Type),
- #"Pivoted Column" = Table.Pivot(#"Added Index", List.Distinct(#"Added Index"[属性]), "属性", "值"),
- #"Filled Up" = Table.FillUp(#"Pivoted Column",{"子件物料描述", "子件数量", "单位"}),
- #"Filtered Rows" = Table.SelectRows(#"Filled Up", each ([子件物料号] <> null)),
- #"Removed Columns" = Table.RemoveColumns(#"Filtered Rows",{"Index"})
- in
- #"Removed Columns"
复制代码 全程鼠标点点点,无需动手敲一个代码,新手必备。
话说这原表就是做了UNPIVOT的结果。
|
评分
-
1
查看全部评分
-
|