兰州酷玩网络科技有限公司:http://www.kuwan.online

兰州酷玩网络科技有限公司

当前位置: 主页 > office >

快速将200张工作表合并到一起

时间:2018-07-04 21:30来源:酷玩干货网 作者:阔意 点击:
这段时间,有读者朋友在群里提问,如何将多张表格合并到一张表格中。这位朋友说,他每天都需要重复相同的工作,将几十张工作表合并到一起。Ctrl+C、Ctrl+V效率真的太慢。 那么今天

这段时间,有读者朋友在群里提问,如何将多张表格合并到一张表格中。这位朋友说,他每天都需要重复相同的工作,将几十张工作表合并到一起。Ctrl+C、Ctrl+V效率真的太慢。

那么今天就来看看,如何完美解决这项重复性工作。

步骤1:将多张表格与需要合并到一起的表格放在同一个文件夹中。如下图所示,需要将表1、表2、表3合并到汇总表中。

或许你不信,将200张工作表合并到一起,只要1分钟

步骤2:打开汇总表的代码编辑窗口。如下图所示,打开名为“汇总表.xlsx”的文件,在需要放置合并数据的表格名称上右击鼠标,选择【查看代码】选项。

或许你不信,将200张工作表合并到一起,只要1分钟

步骤3:复制代码到代码窗口中。将下面这段代码复制到代码窗口中。

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

或许你不信,将200张工作表合并到一起,只要1分钟

步骤4:运行代码。单击【运行】菜单中的【运行子过程/用户窗体】选项,运行代码。

或许你不信,将200张工作表合并到一起,只要1分钟

步骤5:确定表格合并。运行代码后,稍等片刻,可出现如下图所示的提示,显示完成多少张表格合并,单击【确定】即可。

或许你不信,将200张工作表合并到一起,只要1分钟

步骤6:微调表格。合并的表格中,可能重复出现表头。如下图所示,将多余的表头字段行删除即可。

或许你不信,将200张工作表合并到一起,只要1分钟 (责任编辑:阔意)
织梦二维码生成器
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
栏目列表
推荐内容