|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
向下填充 = Table.FillDown(源,{"列1"}),
转置表 = Table.Transpose(向下填充),
向下填充1 = Table.FillDown(转置表,{"Column1"}),
筛选的行 = Table.SelectRows(向下填充1, each ([Column1] <> "求和项:11月汇总" and [Column1] <> "求和项:12月汇总")),
合并的列 = Table.CombineColumns(筛选的行,{"Column1", "Column2"},Combiner.CombineTextByDelimiter(":", QuoteStyle.None),"已合并"),
转置表1 = Table.Transpose(合并的列),
筛选的行1 = Table.SelectRows(转置表1, each ([Column1] <> "总计")),
提升的标题 = Table.PromoteHeaders(筛选的行1, [PromoteAllScalars=true]),
逆透视的其他列 = Table.UnpivotOtherColumns(提升的标题, {":开具单位", "区域:客户"}, "属性", "值"),
按分隔符拆分列 = Table.SplitColumn(逆透视的其他列, "属性", Splitter.SplitTextByDelimiter(":", QuoteStyle.Csv), {"属性.1", "属性.2"}),
已透视列 = Table.Pivot(按分隔符拆分列, List.Distinct(按分隔符拆分列[属性.2]), "属性.2", "值"),
重排序的列 = Table.ReorderColumns(已透视列,{"区域:客户", "11月", "12月", "属性.1", ":开具单位"}),
重命名的列 = Table.RenameColumns(重排序的列,{{"区域:客户", "客户"}, {"属性.1", "区域"}, {":开具单位", "开具单位"}})
in
重命名的列 |
评分
-
1
查看全部评分
-
|