ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 如何把打卡记录的格式进行转换

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-15 10:34 | 显示全部楼层 |阅读模式
公司有几百人,换了打卡机后,新的打卡机导出来的考勤数据与旧的格式差别很大,旧的打卡记录每天都在一行,新的打卡记录每天都有三行,给计算考勤及打印带来非常不便,想把新的打卡记录转换成旧的格式,如何进行转换?
附表中:“表1”是旧的打卡记录,“表2”是新的打卡记录,如何把“表2”的打卡记录转换成“表1”打卡记录格式,也就是把“表2”的打卡记录按日期全部显示在一行上,并在“表3”显示出来。我用了数据透视表试了一下(值设置取的是平均值),见“Sheet1”,打卡时间都显示不了,求助各位大神老师帮助解决一下,不胜感激。用函数也可,用数据透视表表也行。不求一步到位,用两步三步达到“表1”的结果都可以。谢谢。

123.rar

16.59 KB, 下载次数: 32

TA的精华主题

TA的得分主题

发表于 2019-2-15 11:36 | 显示全部楼层
  1. let
  2.     Source = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
  3.     fx=(t as table)=>
  4.           let
  5.             a=Table.SelectColumns(t,{"上班打卡时间","下班打卡时间"}),
  6.             b=List.FirstN(List.Combine(Table.ToRows(a))&List.Repeat({null},6),6),
  7.             c=b&{List.Sum(List.FirstN(t[工作时间],2)),List.Last(t[工作时间]),List.Sum(t[例外情况])},
  8.             d=List.TransformMany({"1","2","3"},each {"上班","下班"},(x,y)=>y&x)&{"白班(时)","加班(时)","事假(时)"}
  9.           in
  10.             Table.FromRows({c},d),

  11.     Custom1 = Table.Group(Source,{"考勤号码","姓名","日期"},{"n",each fx(_)}),
  12.     Custom2 = Table.ExpandTableColumn(Custom1,"n",Table.ColumnNames(Custom1[n]{0})),
  13.     #"Changed Type" = Table.TransformColumnTypes(Custom2,{{"上班1", type time}, {"下班1", type time}, {"上班2", type time}, {"下班2", type time}, {"上班3", type time}, {"下班3", type time}, {"白班(时)", type number}, {"加班(时)", type number}, {"事假(时)", type number}, {"日期", type date}})
  14. in
  15.     #"Changed Type"
复制代码


123.rar

28.39 KB, 下载次数: 29

TA的精华主题

TA的得分主题

发表于 2019-2-15 13:09 | 显示全部楼层
123-19-02-15.zip (24.24 KB, 下载次数: 28) 楼主,你看一下吧!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-15 15:06 | 显示全部楼层
xhms 发表于 2019-2-15 13:09
楼主,你看一下吧!

非常感谢老师。我用一下试试,不懂再求教您。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-15 15:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

谢谢老师,我水平很差,主要是看不懂。

TA的精华主题

TA的得分主题

发表于 2019-2-16 22:35 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
missmemiao 发表于 2019-2-15 15:07
谢谢老师,我水平很差,主要是看不懂。

这是PowerQuery完成的,数据有变化时,右键-刷新 一下即可。
有关PQ的内容可在论坛内搜索或PowerBI版块查看。

TA的精华主题

TA的得分主题

发表于 2019-2-18 16:08 | 显示全部楼层
见附件。不知道这样子是否符合你的需求。

123.zip

19.87 KB, 下载次数: 22

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 23:21 , Processed in 0.047626 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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