首页 > Office之家>Office学院
如何将多个表格文件里面的多个 Sheet 合并到一个表格中？还不会的小伙伴们赶紧看过来。今天，小汪老师以 Excel2016 为例，给大家详细讲解一下。这里是三个 Excel 表格文件：每一个表格文件里面都有多个 Sheet 工作表：1、打开一个空白表格，然后进入「数据」-「获取和转换」-「新建查询」-「从文件」-「从文件夹」，在弹出的「文件夹」中输入多个表格文件的存放路径后「确定」-「转换数据」。2、选中有用的列，然后点击「主页」-「管理列」-「删除列」-「删除其他列」，可以删除没用的列。3、点击「添加列」-「常规」-「自定义列」，在「自定义列公式」中输入公式：Excel.Workbook([Content],true)4、点击「自定义」旁边的按钮，然后「确定」，再点击“Data”旁边的按钮，「确定」。5、点击「主页」-「关闭」-「关闭并上载」。6、现在我们合并的数据就已经转到表格中了，但是你可能会发现，好像少了些数据，没关系，我们可以点击「设计」-「刷新」就有了。OK，现在我们就已经将多工作簿中多工作表合并到一起了，大家把没用的列删除掉就可以了。本文来自微信公众号：Word 联盟 （ID：Wordlm123），作者：汪汪琪广告声明：文内含有的对外跳转链接（包括不限于超链接、二维码、口令等形式），用于传递更多信息，节省甄选时间，结果仅供参考，IT之家所有文章均包含本声明。}

我使用的代码如下：*合并当前工作簿下的所有工作表*Sub合并当前工作簿下的所有工作表()Application.ScreenUpdating=FalseForj=1ToS...
我使用的代码如下：*合并当前工作簿下的所有工作表*Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub请问应该怎么修改？ 谢谢！
展开
选择擅长的领域继续答题？
{@each tagList as item}
${item.tagName}
{@/each}
手机回答更方便，互动更有趣，下载APP
提交成功是否继续回答问题？
手机回答更方便，互动更有趣，下载APP
收起
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
为你推荐：
下载百度知道APP，抢鲜体验使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。扫描二维码下载
×个人、企业类侵权投诉
违法有害信息,请在下方选择后提交
类别色情低俗
涉嫌违法犯罪
时政信息不实
垃圾广告
低质灌水
我们会通过消息、邮箱等方式尽快将举报结果通知您。说明
}