项目位置不定的个月工资汇总

jjmysjg · 发表于 2024-6-20 21:23

本帖最后由 jjmysjg 于 2024-6-21 07:15 编辑

部内有数量不定的工作表，要求按不重复姓名分月汇总。

1、提取各表“记工姓名”(是合并单元格)开始到“合计”(是合并单元格)结尾之间的不重复姓名，对应的“打卡金额”列数据分别写入。(表中姓名重复的，求和写入）
2、记工姓名和打卡金额位置不定(如表十、表十一、表十二)
3、开始行和结束行希望用到下列语句，方便以后通用。
ksh = .Cells.Find(what:="记工姓名", LookIn:=xlValues, lookat:=xlWhole)--开始行
jsh = .Cells.Find(what:="合计", LookIn:=xlValues, lookat:=xlWhole)--结束行
dke = .Cells.Find(what:="打卡金额", LookIn:=xlValues, lookat:=xlWhole)--汇总数值
4、汇总表数据不全，是汇总样式。

因“打卡金额”不固定，工作表数不定，重新求助。
谢谢各位老师！

ykcbf1100 · 发表于 2024-6-20 21:38

你这月份表名还搞成二种格式，这是自我加压吗？

jjmysjg · 发表于 2024-6-20 21:45

ykcbf1100 发表于 2024-6-20 21:38
你这月份表名还搞成二种格式，这是自我加压吗？

表名不统一，是为了避免语句带”月“的写法，实际中改表名。

ykcbf1100 · 发表于 2024-6-20 22:08

jjmysjg 发表于 2024-6-20 21:45
表名不统一，是为了避免语句带”月“的写法，实际中改表名。

带月不挺好吗？

feilanga · 发表于 2024-6-20 22:32

..........................

feilanga · 发表于 2024-6-20 22:59

本帖最后由 feilanga 于 2024-6-20 23:02 编辑

表头自动生成

feilanga · 发表于 2024-6-20 23:04

年度合计有,

jjmysjg · 发表于 2024-6-20 23:16

feilanga 发表于 2024-6-20 22:32
..........................

工作表名没有自动提取到汇总表的第3行

jjmysjg · 发表于 2024-6-20 23:20

ykcbf1100 发表于 2024-6-20 22:08
带月不挺好吗？

很多的时候，统计各表需要在簿中对工作表名进行特殊标记，没有月的字符。

feilanga · 发表于 2024-6-20 23:27

关于find 如果表格不规范,还是得根据实际情况来写.总不能1个表1个样.喜欢满表里找表头关键字那就去找吧.自己改去吧,不陪你玩了.

		自动登录	找回密码
密码			免费注册

[求助] 项目位置不定的个月工资汇总

评分

评分