软件: Excel
版本:Office 2013
我有上百个以下的EXCEL档案，每个档案内都有三个工作表，分别表示受访者的各类表现
每个类别的工作表格式相同，反之则不同，例如不同档案间"[*]体适能表现"的工作表
内的格式是一样的。
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
档案名称1：小明.xls
工作表名称1:[小明]数学成绩、[小明]体适能表现、[小明]出缺席状况
档案名称2：小莉.xls
工作表名称2：[小莉]数学成绩、[小莉]体适能表现、[小莉]出缺席状况
档案名称3：小卷.xls
工作表名称3：[小卷]数学成绩、[小卷]体适能表现、[小卷]出缺席状况
▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁
想请问是否有办法借由宏，合并不同档案间的特定工作表成为一个单一的工作活页簿？
例如，我想要制作一个EXCEL档案，表示所有受访者的体适能表现？
过往合并多项EXCEL档案，我都是借由以下部落格提供的宏。
http://blog.bestdaylong.com/2008/07/excelcopy.html
这个宏仅能合并默认第一个的工作表，或者指定相同名称的工作表。
但是这次合并档案的工作表名称不相同（却有规律性），而且又落在第二个与第三个工作表
请问是否可小幅修改上述的宏，即能达到我想要的目的？
或者，我也想到只要有办法批次修改不同档案的工作表名称，一致称为sheet2 与sheet3
就可再使用上述宏来合并EXCEL档案。

将切换视窗windows(filename).activesheet改为ActiveWorkbook.Sheets("[" & replace(filename,".xls","") &"]体适能表现")