根据多个工作簿内工作表名称合并到汇总工作簿对应的工作表中

cqcbc · 发表于 2014-9-30 10:24

zax010 发表于 2014-9-30 08:57
Sub zz()
Dim f$, p$, arr, brr
Application.ScreenUpdating = False

谢谢zax010，运行后能汇总，有一小问题，希望帮我完善一下:
因明细表中有身份证号码，汇总后不正常，变为科学计数形式。本例中因为数据少，格式可能是定了的，没看出来，在实例中运行，就有问题了。

cqcbc · 发表于 2014-9-30 10:42

kszcs 发表于 2014-9-30 10:20
zax010你好：
想把所有的工作簿中的表都汇总进来，修改了一下你的代码，但运行的效果没有实现--《事业单 ...

brr是表三的？也是表二的？

zax010 · 发表于 2014-9-30 11:06

本帖最后由 zax010 于 2014-9-30 11:07 编辑

cqcbc 发表于 2014-9-30 10:24
谢谢zax010，运行后能汇总，有一小问题，希望帮我完善一下:
因明细表中有身份证号码，汇总后不正常 ...

把
Sheet1.[a3:aj2000] = ""
Sheet2.[a3:aj2000] = ""
改为
Sheet1.[a3:aj2000] = "": Sheet1.Columns("E:E").NumberFormatLocal = "@"
Sheet2.[a3:aj2000] = "": Sheet2.Columns("E:E").NumberFormatLocal = "@"

zax010 · 发表于 2014-9-30 11:30

kszcs 发表于 2014-9-30 10:20
zax010你好：
想把所有的工作簿中的表都汇总进来，修改了一下你的代码，但运行的效果没有实现--《事业单 ...

再增加一个数组crr即可。

按工作表名称合并明细表--汇总所有的表出错.rar (45.88 KB, 下载次数: 250)

cqcbc · 发表于 2014-9-30 12:44

zax010 发表于 2014-9-30 11:06
把
Sheet1.[a3:aj2000] = ""
Sheet2.[a3:aj2000] = ""

谢谢，完美了。

战战如疯 · 发表于 2014-9-30 21:38

cqcbc 发表于 2014-9-30 10:20
再次谢谢，不错，可以汇总了。还有一点小问题：
1、我在实例中运行后，发现没关闭源表？
2、实例中，因 ...

没太明白，你在myfile=Dir下面加句wb.Close试下

LMY123 · 发表于 2018-4-7 11:01

同名工作表合并成一薄多表

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

[求助] 根据多个工作簿内工作表名称合并到汇总工作簿对应的工作表中

评分

评分

最新热点 /1