新人求助，合并工资表中的工资数

acedisa

附件仅供参考，功能如下
1、自动获取当前文件夹下其他文件名
2、自动指定其他文件对应工作表名
3、自动核算。。。
忘了，好像就这样，闲暇之余随便写的，还是等高手设置吧

洞房不败

acedisa 发表于 2017-1-14 09:56
附件仅供参考，功能如下
1、自动获取当前文件夹下其他文件名
2、自动指定其他文件对应工作表名

谢谢 套用时 提示错误9 下标跨界 错误的代码可能是Set sh2 = wb.Sheets(sh1.Name) 是不是和套用文件SHEET数多有关？

于铁于铁

数据透视表一下搞成。

acedisa

洞房不败 发表于 2017-1-14 11:02
谢谢 套用时 提示错误9 下标跨界 错误的代码可能是Set sh2 = wb.Sheets(sh1.Name) 是不是和套用文件SHEET ...

Set sh2 = wb.Sheets(sh1.Name)
这个是指定源工作簿中和当前工作簿同工作表名的工作表
有点绕，就是比如说当前工作表的名称为abc，就去源工作簿中找名称为abc的工作表，核对下源工作表内是否有相同的工作表名称

洞房不败

于铁于铁 发表于 2017-1-14 11:08
数据透视表一下搞成。

请做个案例上传好么 小白表示不懂细节  然后如果有更好思路尝试解决问题岂不更好

洞房不败

acedisa 发表于 2017-1-14 11:23
Set sh2 = wb.Sheets(sh1.Name)
这个是指定源工作簿中和当前工作簿同工作表名的工作表
有点绕，就是比 ...

谢谢你的宏，我套用后 一次只能合并一个车间 整本里面有几十个SHEET 无法合并 有没有办法一键全部合成 包括表页SHEET的名称也自动生成呢？
这个宏的有点是可以识别出新增加人的信息并保留 缺点就是有的时候会有人员遗漏的情况出现

洞房不败

acedisa 发表于 2017-1-14 11:23
Set sh2 = wb.Sheets(sh1.Name)
这个是指定源工作簿中和当前工作簿同工作表名的工作表
有点绕，就是比 ...

因为工资表是加了密外面电脑无法打开 我只能描述下 就是 公司做了一本11月份的工资 里面包含几十个车间（sheet）又做了一本12月的 打算把两本工资合在一起发一个比例的工资数 我是在这个问题上困扰的 部门多 几十个sheet  如果把两本工资放到一个文件夹中然后宏一合并 就可以得到相同部门相同人名合在一起的工资数了 谢谢你的宏

acedisa

洞房不败 发表于 2017-1-14 14:23
因为工资表是加了密外面电脑无法打开 我只能描述下 就是 公司做了一本11月份的工资 里面包含几十个车间（ ...

哦，这个宏就是按照实例里做的，只有个人事部，就在11月和12月里找人事部这个工作表去进行汇总，多个部门或者工作表中不同的情况没考虑到
如果你能看懂代码的话，尝试去改下，应该就可以改出来的

flyinghawk_wu

洞房不败 发表于 2017-1-14 08:44
A公司11月 A公司12月 导出 A11 12的全部数据 包括工号 姓名 工资合计数 卡号

哦，vlookup函数是有点点问题，用sumif函数吧。具体见附件。

洞房不败

acedisa 发表于 2017-1-14 14:40
哦，这个宏就是按照实例里做的，只有个人事部，就在11月和12月里找人事部这个工作表去进行汇总，多个部门 ...

我尝试了下，确实很有用，但现在一个表格里面有几十个sheet 请问这样怎么合并呢？