12个月的工资表，如何汇总到一张表上

chxw68 · 发表于 2019-5-31 11:13

huazai688 发表于 2019-5-31 10:49
老师，您好！
如果工作簿中还有其他辅助表格，不需要遍历工作表，直接给bt工作表范围，比如
bt = Array ...

把你的文件发上来。

huazai688 · 发表于 2019-5-31 18:47

chxw68 发表于 2019-5-31 11:13
把你的文件发上来。

12个月的工资表，如何汇总到一张表上--VBA提取工作表名为字段名.rar (1.7 MB, 下载次数: 53)
仍沿用本帖子中的文件为例，我就增加了前3个月的副本文件（在加班费后的3个文件），但想这3个文件不要被提取到汇总表，所以我想到直接框定bt的范围，但自己修改代码后，因为设定 for k=1 to uBound(bt()) 的话，会遍历不到《加班费》这个工作表，所以麻烦老师看下，谢谢！

chxw68 · 发表于 2019-5-31 19:20

详见附件。

huazai688 · 发表于 2019-6-3 10:06

本帖最后由 huazai688 于 2019-6-3 10:10 编辑

chxw68 发表于 2019-5-31 19:20
详见附件。

If ws.Name <> "汇总" And ws.Name <> "一(2)" And ws.Name <> "二月(2)" And ws.Name <> "三(2)" Then
老师，您好！可能我没表达到位，实际工作表中可能不止只有3个不用汇总的工作表，有可能有二十多个，所以用这个工作名不等于来做判断不太科学，
因为工资一年就12个月，所以我想通过Array直接框定工作表范围，您看方便修改下代码吗？谢谢！

chxw68 · 发表于 2019-6-3 11:14

huazai688 发表于 2019-6-3 10:06
If ws.Name "汇总" And ws.Name "一(2)" And ws.Name "二月(2)" And ws.Name "三(2)" Then
老师，您 ...

for each ws in worksheets(array("一月","二月","三月"))

huazai688 · 发表于 2019-6-3 12:10

chxw68 发表于 2019-6-3 11:14
for each ws in worksheets(array("一月","二月","三月"))

谢谢老师！

huazai688 · 发表于 2019-6-3 13:54

chxw68 发表于 2019-6-3 11:14
for each ws in worksheets(array("一月","二月","三月"))

老师，您好！
假设全年12个月的工资全部保存在《全年明细》的工作表里，
如何实现附件中的《单项汇总》、《多项汇总》中的求助效果，
麻烦老师拨冗解答，谢谢！！！

chxw68 · 发表于 2019-6-3 16:11

huazai688 发表于 2019-6-3 13:54
老师，您好！
假设全年12个月的工资全部保存在《全年明细》的工作表里，
如何实现附件中的《单项汇总》 ...

这个用字典就可以实现，但代码就比较复杂了。

huazai688 · 发表于 2019-6-3 17:26

chxw68 发表于 2019-6-3 16:11
这个用字典就可以实现，但代码就比较复杂了。

哦，那单项汇总的是否会简单点？

huazai688 · 发表于 2019-6-4 15:59

chxw68 发表于 2019-6-3 16:11
这个用字典就可以实现，但代码就比较复杂了。

老师，您好！如果可以，恳请帮忙拨冗写一下，如果实在复杂就作罢，谢谢！

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

[求助] 12个月的工资表，如何汇总到一张表上

评分