求助复制合并多个工作表

雷雨过后

说明：
1，同一文件夹有500多份工作薄分表。
2，每个分表只有一个Sheet1且命名为“Sheet1”（若能实现有多个Sheet都复制过来并命名不同更好）
3，每个分表格式类似，但行数不全相同，分表内都有图片，有合并单元格
4，每个表中如：铁芯片所在行数不一定相同
5，由于文字较多，每个工作表页面设置页边距统一留很小（上下2 下1 左右0.8）
6，并不是所有型号都有加强环
希望实现的功能：
1，将500多个分工作薄全部完全复制至BOM总表一个工作薄中（建不同的工作表）
2，复制过来的工作表命名为原工作薄名称如：原B56001工作薄复制过来后Sheet1处命名为B56001
3，每个复制过来的工作表页面设置按原来值设置（否则无法打印）
4，建立一个归类总表，汇总各分表的信息，按型号排序，在型号上添加超级链接
5，添加一个按钮，点击实现将所有工作表中隐藏的单元格显示出来（自动筛选隐藏的）

哪位大虾能帮我编写VBA代码请联系本人  QQ190767923     邮箱 leiyuguohoou@126.com
先谢谢了

LangQueS

建议楼主参考下帖附件中的文字说明，修改工作表的设置。
    在设置数据表时，要考虑到充分发挥Excel自带的“高级筛选”、“数据透视表”等强大功能，再用函数和代码等方法作为补充，而不必自己编写软件。
       
★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html