ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: hzs1111111

[求助] 有偿求助计算月度数据汇总

[复制链接]

TA的精华主题

TA的得分主题

发表于 2024-2-15 17:52 | 显示全部楼层
本帖最后由 fzxba 于 2024-2-15 17:57 编辑
hzs1111111 发表于 2024-2-15 17:47
好的感谢,给我发下支付宝账号老哥,顺便密码发我一下

楼主言出必行,已兑现承诺……

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2024-2-16 09:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
为什么要密码?                                                                                                  

TA的精华主题

TA的得分主题

发表于 2024-2-16 17:17 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
供参考...400个文件可以跑进3秒
2024-02-16_171505.jpg

TA的精华主题

TA的得分主题

发表于 2024-2-19 21:42 | 显示全部楼层
  1. //Unnamed
  2. let
  3.     源 = Folder.Files("C:\Users\飞飞\Desktop\求助"),
  4.     筛选的行 = Table.SelectRows(源, each not Text.Contains([Name], "汇")),
  5.     筛选的隐藏文件1 = Table.SelectRows(筛选的行, each [Attributes]?[Hidden]? <> true),
  6.     调用自定义函数1 = Table.AddColumn(筛选的隐藏文件1, "转换文件", each 转换文件([Content])),
  7.     重命名的列1 = Table.RenameColumns(调用自定义函数1, {"Name", "Source.Name"}),
  8.     删除的其他列1 = Table.SelectColumns(重命名的列1, {"Source.Name", "转换文件"}),
  9.     扩展的表格列1 = Table.ExpandTableColumn(删除的其他列1, "转换文件", Table.ColumnNames(转换文件(示例文件))),
  10.     删除的其他列 = Table.Buffer(Table.SelectColumns(扩展的表格列1, {"时间", "成交金额", "新增粉丝数", "评论次数"})),
  11.     更改的类型 = Table.TransformColumnTypes(
  12.         删除的其他列,
  13.         {
  14.             {"成交金额", Currency.Type},
  15.             {"时间", type datetime},
  16.             {"新增粉丝数", Int64.Type},
  17.             {"评论次数", Int64.Type}
  18.         }
  19.     ),
  20.     已添加自定义 = Table.AddColumn(
  21.         更改的类型,
  22.         "主播",
  23.         each List.Accumulate(
  24.             {0 .. Table.RowCount(表1) - 1},
  25.             "",
  26.             (x, y) => x & (if [时间] >= 表1{y}[上播时间] and [时间] <= 表1{y}[下播时间] then 表1{y}[主播] else "")
  27.         )
  28.     ),
  29.     分组的行 = Table.Group(
  30.         已添加自定义,
  31.         {"主播"},
  32.         {
  33.             {"销售额", each List.Sum([成交金额]), type nullable number},
  34.             {"涨粉数", each List.Sum([新增粉丝数]), type nullable number},
  35.             {"评论数", each List.Sum([评论次数]), type nullable number},
  36.             {"播出时长", each Text.From(Number.Round(Table.RowCount(_) / 60, 2)) & "小时"}
  37.         }
  38.     )
  39. in
  40.     分组的行
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-18 19:45 , Processed in 0.030632 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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