Question

大神vba怎样合并工作簿中指定的工作表

Answer 1

问：大神vba怎样合并工作簿中指定的工作表

答：1、 如果以上表格不在同一个文件夹内，先复制到同一个文件夹内2、 在文件夹的空白处，新建一个表格并打开，右击sheet1表格——查看代码，会出现VBA编辑界面：

答：3、 复制代码到窗口里，代码如下：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath,MyName, AWbNameDim Wb AsWorkbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating= FalseMyPath =ActiveWorkbook.PathMyName =Dir(MyPath & "\" & "*.xls")AWbName =ActiveWorkbook.NameNum = 0Do While MyName> ""If MyName> AWbName ThenSet Wb =Workbooks.Open(MyPath & "\" & MyName)Num = N

答：4、 单击宏计算菜单——运行——运行子过程，操作界面如下：5、 等候大约十秒，就能把所有表格数据合并到一个表格中。6、 打开新的表格，筛选，将多余的标题行删掉。

答：右键点击汇总sheet表名，查看代码，把下面代码复制进去，点击运行，很快就可以看到合并后的结果了。代码如下：Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name > ActiveSheet.Name Then X = Cells(Rows.Count,1).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End IfNextApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub注意：此代码是把每个sheet里面的内容(包括标

问：是的，是在同一个工作簿中有多个工作表，但是只是合并指定的两个表，这个代码同样适用吗？

答：是的亲，按上边的操作就可以呢

问：【问一问自定义消息】

答：亲，是不是操作的时候哪里失误了

答：这个不会失误呢

问：请问一下这样可以吗？我是复制你的代码来执行的，

问：【问一问自定义消息】

答：可以的，亲，你可以操作一下