霍建华的职业vba复制整个sheet内容_vba把多个⼯作薄的Sheet1表数据复
制粘贴到某个⼯作薄的。。。
看着标题估计会有点乱，下⾯我们以图⽂的⽅式来和⼤家说明，本例⼦要实现的最终结果！
⾸先看下图，注意，在相同的⽂件夹内，有⼀个⼯作薄的名称为“合并数据.xls”，其它的⼯作薄呢，有很多个，并且，有⼏个也不知道，我们姑且认为有X个其它的⼯作薄吧，并且，这些⼯作薄的名称也是没有任何规律的。
现在，我们要做的就是，要把这X个⼯作薄中的Sheet1这个⼯作表⾥⾯的数据复制了之后，粘贴到“合并数据.xls”这个⼯作薄的相应的表⾥⾯。
简单的说，就是要把⼯作薄1⾥⾯的Sheet1的内容粘贴到“合并数据.xls”中的⼀个⼯作表⾥⾯，同样，⼯作薄2⾥⾯的Sheet1的内容粘贴到“合并数据.xls”中的⼀个⼯作表⾥⾯，依此类推，⼯作薄3⾥⾯的Sheet
1的内容粘贴到“合并数据.xls”中的⼀个⼯作表⾥⾯……，介绍只能介绍到这⾥了，如果你连这种逻辑关系都⽆法理解，那么说明，理解能⼒真的只适合学⽂科背诵，不适合学习VBA。刘涛的个人资料
好了，实现⽅法如下，把“合并数据.xls”⼯作薄打开，然后添加⼀个如下图的按钮控件，按钮控件的标签⽂字可⾃⾏修改。
良辰好景知几何结局最后⼀步，就是添加VBA代码了，如下图，这是第⼀部分代码，是通⽤代码。
宋妍霏弟弟接着，就是功能代码了，如下图。
慕小蕾
酒桌上的祝酒词
上⾯的代码，添加到按钮控件上。相关的代码功能的解释，已在图上注明，在此就不再阐述了。
最后，给⼤家说明的是，每次合并数据的时候，你把“合并数据.xls”打开，然后，只保留Sheet1这个⼯作表，其余的全部删除。这样才能正确使⽤，否则会导致代码错误。因为功能还未全部完善，只因本⼈没时间完善了。