如何一键合并Excel工作表
发布时间：2022-02-09 21:05:30
文章介绍合并工作表的方法，用VBA代码实现合并工作表。
下图所示：一个文件夹下面有多个excel工作薄，每个工作薄文件下面有不固定张数的工作表。比如有的文件只有一张工作，有的文件是多张工作表。
现在的问题，如何将这些多个文件实现合并工作表。将这些所有工作表全部合并到同一张工作表。
一般的做法，通过“移动或复制”实现合并工作表。要高效，可以使用VBA代码来实现合并工作表。
合并工作表操作步骤：
新建一个excel文件，按ALT+F11，打开VBE编辑器，复制下面的代码，然后运行，选择文件夹下面的所有excel文件，执行合并工作表。
Sub 合并工作簿()
Dim FilesToOpen, wb As Workbook, sht As Worksheet
Dim x As Integer
On Error GoTo ErrHandler
Application.ScreenUpdating = False
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx", _
MultiSelect:=True, Title:="Files to Merge")
If TypeName(FilesToOpen) = "Boolean" Then
MsgBox "No Files were selected"
GoTo ExitHandler
End If
x = 1
While x <= UBound(FilesToOpen)
If FilesToOpen(x) <> ThisWorkbook.FullName Then
Set wb = Workbooks.Open(Filename:=FilesToOpen(x))
For Each sht In wb.Sheets
sht.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
wb.Close
End If
x = x + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume ExitHandler
End Sub
说明：上面代码是合并xlsx文件，如果是合并excel2003的文件，需要将：FileFilter:="Microsoft Excel Files (*.xlsx), *.xlsx"，xlsx改为.xls。
0
投稿猜你喜欢
- PowerPoint2013版就可以对图片应用快速样式，而且能将其迅速裁剪为我们需要的形状，要不就一起来试试看吧。操作步骤下图，PowerP
- 我们在对文档进行编辑时，常常需要对图形进行统一格式编辑，应该怎么实现呢?其实方法很简单，接下来小编举例简单的例子告诉大家word设置多个图形
相信不少的朋友在Win10升级的时候会遇到提示要你卸载virtualbox，因为这个软件和Windows 10不兼容，如果不卸载的话，系统就- 剪映里怎么让文字跟着特效动？在剪映中可以制作很多种好看的效果，那么剪映如何添加文字跟随特效呢？下面就来看小编给大家分享的详细操作设置方法教程
- 根据姓名查询快递单号现在我们买东西都是在网上购买，经常都会收到各种快递，通过快递单号查询物件什么时候到。现在有一份快递清单，因为姓名的顺序乱
- 小编在这教大家使用WPS表格学生成绩的快速录入，希望对你有所帮助!WPS表格学生成绩的快速录入的教程：第一种方法：就是在收集试卷时，按照学号
- 广大用户们都知道的一件事情，那就是迅雷下载东西的时候很慢，但是开通会员以后，我们就能够全面的提升下载速度，但是很多的用户们不想要开启这个会员
- “云计算”是时下最为热门的IT业概念。Gartner资深分析师Ben Pring认为：“云计算就像法国大餐一样正被人们津津乐道。但几乎每个人
- 众所周知，在苹果去年发布的 iPhone XS 系列新机上，都采用了 OLED 全面屏，而售价更低的 iPhone XR 采用的则是 LCD
- 这篇文章主要介绍了Win7系统玩游戏不能全屏显示的解决方法,本文使用修改注册表的方式解决这个问题,需要的朋友可以参考下不少用户都会选择在wi
- 有时候因为word的内容比较重要，我们除了给word文档加密之外，也可以给文档添加水印。那么如何在word中添加水印呢？今天word教程小编
- 应用工具栏是我们经常会使用到的，该如何设置出具有个性的应用工具栏呢？下面有个不错的方法，大家可以看看应用工具栏是我们经常会使用到的，这里也是
- 很多玩csgo的玩家都反映说游戏画质色调都是灰暗色，比较不容易看清楚人物而带来不好体验，今天就给这些玩家带来了设置短色调的方法，一起来看看吧
- 微信如何跟拍表情?微信是一个移动通讯平台，用户可以用其和好友进行沟通互动。我们在使用微信聊天的时候，总是会使用到微信表情，非常有意思。那么，
- 最近，相信有不少用户都升级安装了Windows11系统，但是有不少用户在使用的时候每次开机都出现Couldn‘t find Edge ins
- 最新iOS 15内建「天气App」迎来重大更新和调整，加入了不少实用的功能和天气资讯。在iOS 15 「天气App」针对用户介面和天气动态背
- win10系统中有个硬件加速的功能，可以在电脑遇到卡顿、不够流畅的情况，使用硬件加速来解决问题。那么win10硬件加速在哪里呢？有部分用户对
- 相信老师们的电脑中都有安装WPS吧，那么就请大家关注一下工具栏上的“特色应用”-“在线协作”，这个就是今天我们破解备课协作的关键哦！ &nb
- xmind是什么软件？怎么打开？xmind采用Java语言开发，应用全球最先进的Eclipse RCP软件架构。是一款实用的思维导图软件，支
- win10 1025已经有网友上手试玩了，根据曝光的新功能总结。该版本在图标、开始菜单/开始屏幕、任务栏等方面的改进非常明显，增加了许多设置
