如何合并不同工作簿中的同名工作表

chenmeidi

合并要求：
1、用鼠标选定汇总表的待合并区域，然后运行宏，进行有选择地合并单元格数值或文本。
2、待合并的工作簿放在合并工作簿的同一文件夹内；或合并工作簿运行宏时会指向待合并的工作簿文件夹（指向的文件夹可灵活选择）。
注：网上的多工作簿合并求和代码，我放在模块里运行测试，连选定数字区域都测试不通过，更不用说文本区域。
只有麻烦大师了，因为像类似的表格用手工去汇总，工作量挺大的，并且每年都有好几次这样的统计，在此我先谢了。正在努力学习中……
附件附后，急需大师帮忙

各工作簿的工作表保护密码是“0”。

wenwen000424

作个记号，学习一下。

高手你怎么看

作个记号，学习一下

okeey

厉害，学习中。。。。。

akaandre

zhaogang1960 发表于 2011-8-25 19:33
看来你需要合并所有工作簿中共有的工作表，打开工作簿时计算出它们，你需要选择工作表1中组合框中的工作 ...

您好，请问为什么我按后面的代码，在运行到.range value就是数值化的地方会报错，我的表比较大。

沟壑中的鱼庚

zhaogang1960 发表于 2011-8-25 19:33
看来你需要合并所有工作簿中共有的工作表，打开工作簿时计算出它们，你需要选择工作表1中组合框中的工作 ...

老是 为什么我执行的时候是这样子出现错误呢？
  如果文件夹中多余2个book，该怎么改代码？
要是文件夹种有.xls  he  .xlsx   又该如何呢？

沟壑中的鱼庚

zhaogang1960 发表于 2011-8-25 19:33
看来你需要合并所有工作簿中共有的工作表，打开工作簿时计算出它们，你需要选择工作表1中组合框中的工作 ...

老师 请您看一下附件

book表的名称会改变，命名也不一定按照那么正规的命名，但是每个book里面的sheet1都是一样的名字，
效果就是按照该帖子的效果，
如果文件夹中多余2个book，该怎么改代码？每个月的book数量不一样，根据情况会改变
要是文件夹种有.xls  he  .xlsx   又该如何呢？  只有合并效果那个表是固定.xlsx 的

沟壑中的鱼庚

zhaogang1960 发表于 2011-12-27 23:09

老师  帮一下忙吧

lpzxhjp

zhaogang1960 发表于 2011-8-25 18:53
Sub combo()
Dim Wk As Workbook, Sht As Worksheet, n As Integer, MyPath, MyName, t%
t = Val(Input ...

赵老师：您好！怎样将代码中的MyPath = ThisWorkbook.Path & "\"   '指定路径
MyName = Dir(MyPath & "\" & "*.xls")    '寻找第一项
两句，改为getopenfilename的选择方式呢？

酷家园

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

赵老师，在吗，需要您帮忙指导一下。http://club.excelhome.net/thread-1153073-1-1.html
liulang0808刘老师给的建议由于我初学，对数组还不熟悉