|
Excel情报局 生产 搬运 分享 Excel基础技能 用1%的Excel基础搞定99%的日常工作 做一个有文艺范的Excel公众号 Excel是门手艺 玩转需要勇气   Excel情报局推荐音乐，阅读文章更轻松 没有高的情商 没有圆滑的处世 ——摘自微博语录 今天与小伙伴共同学习分享一下怎么将多个Excel工作簿数据合并到一个工作簿中。 如下图，工作簿表1、表2、表3内工作表数据，合并到新工作簿“合并工作簿”中。 我的列举中工作簿数量只有3个，但是实际工作中可能会是100个或者更多，同理。 因为在同一个工作簿下数据容易汇总，所以很多小伙伴常常会遇到这种问题。有必要学会并掌握。 工作簿表1、工作簿表2、工作簿表3内分别有工作表数据。 合并到新的工作簿合并方法。 将要合并的Excel工作簿放到一个文件夹中，新工作簿“合并工作簿”也要在这个文件夹内。
打开“合并工作簿”。 按Alt+F11。 插入一个模块。 将下面的代码复制进去。 =========== Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 Wend ExitHandler: Application.ScreenUpdating = True Exit Sub errhadler: MsgBox Err.Description End Sub ============ 点击运行。
弹出需要合并的文件夹选择框提示，选择该文件夹。点击打开。
多选需要合并的工作簿名称。点击打开。
即可合并完成。
完成合并后我们发现，只是合并到一个工作簿下形成若干个工作表，如果我们需要将同一个工作簿下多个工作表合并到一个工作表（Sheet），则按如下操作： 有很多文职的小伙伴，在整理Excel表格的时候，需要将工作簿中所有的工作表复制到一个工作表中进行汇总，假设一个工作簿中有10个以下工作表时，我们复制粘贴过去就可以了，但是如果有100个，1000个呢？难道我们还是用最笨的方式粘贴复制或者剪切复制吗？ 今天教大家一个简单的方法，一分钟搞定这个繁琐的操作。希望知道这个方法的小伙伴可以巩固知识，不知道的可以学会，转发让更多的同事朋友同学知道哦！ 举个例子，比如说有三个工作表：sheet1，sheet2，sheet3。
再新建一个空白的“合并工作表”，如下图：
接下来右击“合并”工作表 点击查看代码
复制VBA代码 点击上方工具栏的运行按钮
我们会惊喜发现合并完成了！
合并完成后的表格会存在N个相同的标题行，我们可以利用查找的方法批量删除行，来规范数据源。 再让我们用一个动态图片进行说明：
所以说我们只要记住这一串代码，以后留着用： ------复制下方代码------ 方法介绍完了，希望对大家有所帮助！这个方法确实对提高工作效率有很大的帮助，希望小伙伴们共勉！ 今天有没有学到呢,赶快动手试一试吧! 隔三差五学个Excel小知识，忘记一天工作的烦恼，只要坚持，最后可能不会得到最好的结果，但一定不会收获最坏的结果。赖床舒服，但可能迟到；熬夜很爽，但伤身体。自律或许并不容易，但你越懒惰越放纵自己，就越可能错过美好的人和事。如果生活注定充满艰辛，那就学着做拯救自己的那个英雄。趁年轻不妥协，向前奔跑！从今天开始改变，对平庸生活奋力回击。
|
|
|
