如何快速合并多个 Excel 工作簿成为一个

 时间:2024-10-22 00:48:44

1、某个单元格中有20个Excel工作簿,如下图所示,将他们全部合并到一个工作簿中:

如何快速合并多个 Excel 工作簿成为一个

2、新建一个工作簿,按下Alt+F11,打开VBA编辑界面,如下图所示:

如何快速合并多个 Excel 工作簿成为一个

3、复制如下代码到Excel的VBA编辑区,如下图所示:Sub 鱼木混猪()Dim FileOpenDim X 帆歌达缒As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub

如何快速合并多个 Excel 工作簿成为一个

4、然后点击“运行子程序”按钮,如下图所示:

如何快速合并多个 Excel 工作簿成为一个

5、在弹出的打开对话框中找到20个工作簿所在文件夹,并选择这20个工作簿,如下图所示:

如何快速合并多个 Excel 工作簿成为一个

6、等一小会,这20个工作簿就合并到一个工作簿中了,如下图所示:

如何快速合并多个 Excel 工作簿成为一个
  • 如何让EXCEl多个表格合并成一个表格
  • Excel如何跨文件合并多个工作表文件?
  • excel多工作表汇总
  • excel中,怎样快速批量合并多个工作表?
  • Excel2010怎么快速完成“合并文本”
  • 热门搜索
    脚肿是什么原因 什么提示你怀了男宝宝 5月23日是什么星座 挪车打什么电话可以联系到车主 金融专业主要学什么 吹气球是什么意思 为什么最迷人的最危险是什么歌 dkny是什么牌子 瘰疬是什么病 十八洞村隶属于湖南省什么地方