|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
let
Source = Excel.CurrentWorkbook(){[Name="表3"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"列1", type text}}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Changed Type", "列1", Splitter.SplitTextByDelimiter(":", QuoteStyle.Csv), {"列1.1", "列1.2"}),
拆分表格 = Table.Split(#"Split Column by Delimiter",4),
Custom1 = List.Transform(拆分表格, each Table.Transpose(_)),
Custom2 = Table.Combine(Custom1),
#"Promoted Headers" = Table.PromoteHeaders(Custom2, [PromoteAllScalars=true]),
#"Changed Type1" = Table.TransformColumnTypes(#"Promoted Headers",{{"姓名", type text}, {"班级", type text}, {"录取学校", type text}, {"毕业小学", type text}}),
#"Filtered Rows" = Table.SelectRows(#"Changed Type1", each ([姓名] <> "姓名"))
in
#"Filtered Rows" |
|