vba复制同一文件夹下其他工作簿中某一工作表的数据到汇总工作簿的某一工作表

最后这个效果好像不清楚，N个相同格式的表格，“复制到”格式相同的一个工作表？如何复制？复制完还格式相同？

应该说明，N个源表向汇总表转移（汇总）数据的具体方式：

一是顺序追加：即每一源表，复制后，按先后顺序，原样（保留格式和数值，去掉公式）粘贴数值到汇总表的不同行位置。例如：源表1有1个数据A，源表2有1个数据B，汇总表就是2个数据A和B（这种方式不要求汇总表有格式，汇总表实际是一个记录不断增多的叠加表）

二是定位加总：即每一源表，复制后，将数值累加或其他运算方式汇总到汇总表的对应单元格。L例如：源表1有1个数据5，源表2有1个数据3，求和的汇总表就是1个数据8，计数的汇总表就是1个数据2。（这种方式必须保持汇总表与源表格式一致，但要定义好每个单元的汇总规则）
最常用的定位加总是单元格数值累加，也叫求和
其次有均值、最大值、最小值、中值、计数等等等等
对于字符单元，也有合并、计数和忽略

你要哪种？

要实现你这个功能不需要编复杂的程序，只需要写一些公式，然后使用一条VBA命令将公式计算结果转换成公式就OK，我以前在百度知道里为别的网友回答过类似的问题，你可以参考一下。自己解决不了的话也可以发邮件给我，我的邮箱是：woo_rain@qq.com。如果问题解决了要采纳我的答案哦！