视频1 视频21 视频41 视频61 视频文章1 视频文章21 视频文章41 视频文章61 推荐1 推荐3 推荐5 推荐7 推荐9 推荐11 推荐13 推荐15 推荐17 推荐19 推荐21 推荐23 推荐25 推荐27 推荐29 推荐31 推荐33 推荐35 推荐37 推荐39 推荐41 推荐43 推荐45 推荐47 推荐49 关键词1 关键词101 关键词201 关键词301 关键词401 关键词501 关键词601 关键词701 关键词801 关键词901 关键词1001 关键词1101 关键词1201 关键词1301 关键词1401 关键词1501 关键词1601 关键词1701 关键词1801 关键词1901 视频扩展1 视频扩展6 视频扩展11 视频扩展16 文章1 文章201 文章401 文章601 文章801 文章1001 资讯1 资讯501 资讯1001 资讯1501 标签1 标签501 标签1001 关键词1 关键词501 关键词1001 关键词1501 专题2001
excel合并多个文件的方法
2025-09-25 17:52:43 责编:小OO
文档
excel 合并多个文件的方法

Excel 中经常需要合并多个文件,Excel 文件具体该如何进行合并呢?下面是小编带来的关于excel 合并多个文件的方法,希望阅读过后对你有所启发!

excel 合并多个文件方法:

合并多个文件步骤1:新建一个文件夹

合并多个文件步骤2:将要合并的表格放到里面

合并多个文件步骤3:新建一个表格

合并多个文件步骤4:用excel 打开

合并多个文件步骤5:右击Sheet1

合并多个文件步骤6:选择查看代码

PS:excel 有着一项,WPS 没有

合并多个文件步骤7:将下列代码复制到文本框中:

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & & *.xls)

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName 小于If MyName 小于AWbName Then

Set Wb = Workbooks.Open(MyPath & & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range(B65536).End(xlUp).Row + 2, 1) = Left(MyName,

Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range(B65536).End(xlUp).Row + 1,

1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range(B1).Select

Application.ScreenUpdating = True

MsgBox 共合并了& Num & 个工作薄下的全部工作

表。如下:& Chr(13) & WbN, vbInformation, 提示

End Sub

合并多个文件步骤8:点击运行

合并多个文件步骤9:一段时间(取决于表格的大小和多少)后,合并完成了tips:感谢大家的阅读,本文由我司收集整编。仅供参阅!下载本文

显示全文
专题