|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
源数据的格式还是挺规矩的,简单处理一下就可以完成。- let
- Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("hZJLCsIwFEX30rGD2/pfS+leCg6sA1GhgmAFEQRFUQeCv7obE83ILdimohhvdZacd9/Lh+O6lmOLw1bE/nU6U82emowsr/CkN78hx/vLaWcW1GKQdMigK6Plm4pjP8l+UT1arocimJPppJB1iHY6zYybNN2f29mZ9zjIWu9xKz+hL/mRUKEvwpXsb1Szo2m21DVbRoHJHMKKhJUIKxNWIaxKWI2wOmE2GGQvsV9PcUAtQJ4FoBaAWoA8C5BnAagFoBbgrwUs8WkBfliQ1mB+noamByAegHgA4gGIByAegHgA4gGYB2Ae4O2B9wA=", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [Raw = _t]),
-
- #"Added Custom" = Table.AddColumn(Source, "Custom",
- each [
- t = Text.Select([Raw], {"0".."9","年"}),
- yymm = Text.Split(t, "年"),
- rec = [Yr=yymm{0}, Mth=yymm{1}, Misc=Text.Remove([Raw], Text.ToList(t)&{"月"})]
- ][rec]
- ),
- #"Expanded Custom" = Table.ExpandRecordColumn(#"Added Custom", "Custom", {"Yr", "Mth", "Misc"}, {"Yr", "Mth", "Misc"})
- in
- #"Expanded Custom"
复制代码
|
|