|
楼主 |
发表于 2020-3-10 11:06
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
let
源 = Folder.Files("C:\Users\acewill\Desktop\入库汇总\入库单明细"),
筛选的隐藏文件1 = Table.SelectRows(源, each [Attributes]?[Hidden]? <> true),
调用自定义函数1 = Table.AddColumn(筛选的隐藏文件1, "转换文件", each 转换文件([Content])),
重命名的列1 = Table.RenameColumns(调用自定义函数1, {"Name", "Source.Name"}),
删除的其他列1 = Table.SelectColumns(重命名的列1, {"Source.Name", "转换文件"}),
#"展开的“转换文件”" = Table.ExpandTableColumn(删除的其他列1, "转换文件", {"序号", "货品名称", "货品编码", "单位", "合计", "Y上海闸北大悦城店", "Y上海虹口龙之梦店", "Y上海丁香国际店", "YM上海大华虎城店", "Y上海久光百货店", "Y上海莘庄仲盛店", "Y上海虹桥龙湖店", "YM上海浦东长泰广场店", "Y上海五角场百联店", "J上海新天地店"}, {"序号", "货品名称", "货品编码", "单位", "合计", "Y上海闸北大悦城店", "Y上海虹口龙之梦店", "Y上海丁香国际店", "YM上海大华虎城店", "Y上海久光百货店", "Y上海莘庄仲盛店", "Y上海虹桥龙湖店", "YM上海浦东长泰广场店", "Y上海五角场百联店", "J上海新天地店"}),
重命名的列 = Table.RenameColumns(#"展开的“转换文件”",{{"Source.Name", "文件名"}})
in
重命名的列
目前是用的以上的编辑合并,直接展开Excel
想了个笨办法,在示例文件里,把首行添加上所有出现的门店 |
|