ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 368|回复: 5

自动刷新汇总表-每次的报告行数和指标都不一样怎么汇总?

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-2-25 19:11 | 显示全部楼层 |阅读模式
大家好,想请教一个问题,附件里是一个示例汇总问题。

一月,二月,三月以及每个月的机器指标需要汇总到总表。实际的机器数很多我只是列了几个做例子。机器每个月都不一样,而且每个机器下面可能需要汇总的指标数也不一样。我试了用PQ新建查询,但是出来的结果都是把一月二月三月的所有A列的放在A列然后B列的都叠放在B列, 出来是一个很长的竖着的表格,而不是汇总表里我想要的结果。请问这个汇总要怎么操作才能让每个月的数据可以自动刷新汇总进去呢?
非常感谢!

汇总机器指标表.xlsx.zip

10.35 KB, 下载次数: 11

汇总表

TA的精华主题

TA的得分主题

发表于 2023-2-25 21:47 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
附件供参考
汇总机器指标表.zip (19.2 KB, 下载次数: 5)

TA的精华主题

TA的得分主题

发表于 2023-2-26 15:21 | 显示全部楼层
image.jpg
我做了下,对工作表可以合并,也能做出这样的效果。


就是指标那一列,透视列后顺序都乱了,哪位大神知道怎么情况可以不打乱。

汇总机器指标表.rar

19.37 KB, 下载次数: 2

TA的精华主题

TA的得分主题

发表于 2023-2-26 19:49 | 显示全部楼层
指标加一个索引,透视后排序
let
    源 = Excel.Workbook(File.Contents("***文件地址***\汇总机器指标表.xlsx"), null, true),
    筛选 = Table.SelectRows(源, each Text.Contains([Name], "月") and [Kind] = "Sheet"),
    自定义 = Table.AddColumn(筛选, "自定义", each
                [a = Table.Skip([Data], 3),
                b = Table.AddColumn(a, "a", each if Text.Contains([Column1], "机器") then [Column1] else null),
                c = Table.FillDown(b, {"a"}),
                d = Table.SelectRows(c, each [Column2]<>null),
                e = Table.Group(d, "a", {"b", each Table.AddIndexColumn(Table.SelectColumns(_, {"Column1", "Column2"}), "no", 1)}),
                f = Table.ExpandTableColumn(e, "b", {"Column1", "Column2", "no"})
                ][f]),
    删除列 = Table.SelectColumns(自定义,{"自定义", "Name"}),
    展开 = Table.ExpandTableColumn(删除列, "自定义", {"a", "Column1", "Column2", "no"}),
    已透视列 = Table.Pivot(展开, List.Distinct(展开[Name]), "Name", "Column2", List.Sum),
    排序的行 = Table.Sort(已透视列,{{"a", Order.Ascending}, {"no", Order.Ascending}}),
    删除的列 = Table.RemoveColumns(排序的行,{"no"}),
    重命名 = Table.RenameColumns(删除的列,{{"a", "机器"}, {"Column1", "指标"}})   
in
    重命名

TA的精华主题

TA的得分主题

发表于 2023-2-26 20:45 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-2-27 19:23 | 显示全部楼层

非常感谢!
有没有办法在自动刷新的同时保持原来的表样式的吗?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-3 11:36 , Processed in 0.045644 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表