中国投资网 百科 word如何合并多个文档(怎么将多个word合并成一个文档)

word如何合并多个文档(怎么将多个word合并成一个文档)

在日常工作中,会有很多Excel文档,无论何时需要整理,都很难进行分类和查询。这时候你需要把Nogan合并成一个Excel文档。一个Excel文档对应一个Sheet工作表,方便查询、分类、排序。下面介绍如何在Excel2013中将多个文件合并成一个Excel文档。和喜欢的朋友一起来看看吧!

表格合并

1.把要合并的excel表格文档放到同一个文件夹中。

2.创建新的“数据合并. xlsx”文档。

3.打开“Data Merge.xlsx”文档,右键单击“Sheet1”工作表查看代码(快捷键:“Alt F11”,尝试xlsx快捷键),进入Microsoft Visual Basic for Applications窗口。

4.在项目浏览器中双击sheet1,并将以下代码粘贴到右侧的代码区域中:

子合并当前目录中所有工作簿的所有工作表()

暗淡我的路径,我的名字,我的名字

将Wb标注为工作簿,WbN标注为字符串

Dim G As Long

Dim Num As Long

将框调成字符串

申请。ScreenUpdating=False

MyPath=ActiveWorkbook。小路

MyName=Dir(MyPath '\' '*。xls’)

AWbName=ActiveWorkbook。名字

Num=0

当我的名字''时执行

如果我的名字是AWbName,那么

设置Wb=Workbooks。打开(我的路径' \ '我的名字)

数字=数字1

带练习册(1)。活性薄片。单元格(。范围(' A65536 ')。结束(xlUp)。Row 2,1)=Left(我的名字,Len(我的名字)- 4)

对于G=1到张。数数

Wb。Sheets(G).UsedRange.Copy。单元格(。范围(' A65536 ')。结束(xlUp)。第1行,第1行)

然后

WbN=WbN Chr(13) Wb名字

Wb。关闭假

以…结尾

如果…就会结束

我的名字=目录

范围(' A1 ')。挑选

申请。ScreenUpdating=True

“MsgBox”合并了“Num”个工作簿下的所有工作表。如下:' Chr(13) WbN,vbInformation,' prompt '

结束Su

5.运行运行子进程/用户表单(或直接单击运行按钮,快捷键:F5)将xlsx Excel表合并到“Data Merge.xlsx”文档的Sheet1工作表中。

6.完成Excel表格的合并。

需要注意的事项

该方法仅在Microsoft Excel 2013软件下通过测试。

对于2013年之前的版本,因为数据量大,很容易卡死。建议使用最新版本。

其他offce软件尚未测试。

以上是Excel2013将多个文件合并成一个Excel文档的方法介绍。你学会了吗?希望这篇文章能对大家有所帮助!

本文来自网络,不代表本站立场,转载请注明出处:https:

word如何合并多个文档(怎么将多个word合并成一个文档)

中国投资网后续将为您提供丰富、全面的关于word如何合并多个文档(怎么将多个word合并成一个文档)内容,让您第一时间了解到关于word如何合并多个文档(怎么将多个word合并成一个文档)的热门信息。小编将持续从百度新闻、搜狗百科、微博热搜、知乎热门问答以及部分合作站点渠道收集和补充完善信息。