三九宝宝网宝宝百科宝宝知识

如何快速把多个excel表合并成一个excel表

02月16日 编辑 39baobao.com

[Excel2007中选择一个或多个工作表]通过单击Excel窗口底部的工作表(工作表:在 Excel 中用于存储和处理数据的主要文档。也称为电子表格。工作表由排列成行或列的单元格组成。工作表总是存储在工作簿中。)标签,可以...+阅读

方法/步骤

我们需要把多个excel表都放在同一个文件夹里面,并在这个文件夹里面新建一个excel。

用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。

然后我们把下面这些宏计算的代码复制进去,然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”,代码如下,

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

4

运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。查看合并后的数据,有5000多行,就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

以下为关联文档:

Excel如何同时选中多个单元格1、演示使用的软件为Excel电子表格,软件版本为office家庭和学生版2016。 2、首先打开Excel电子表格,如果想选中多个单元格,有两种方法,我们首先演示选择不连续单元格的操作,我们...

怎么在excel中快速选择多个区域excel中快速选择多个区域的步骤: 选择某个区域可以用鼠标左键点按该区域左上角 然后拖动鼠标到该区域的右下角 然后松开鼠标 选择某两个不连续的区域时 可以在选择完第一个区...

excel表中如何用简单的公式把多个工作表不同单元格的数据相加1.首先想要实现该功能,必须是建立在同一个工作薄中,也就说的同一个excel文件中,打开该文件表; 2.数据表一中数据有数据sheet1蓝色字体显示;数据sheet2红色字体代表;分别位于两个...

您好请问运行多个excel文件合并成一个文件宏命令其中一条代码1、把两个excel表格放在同一个文件夹内。 2、用microsoft excel打开新建的excel表,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示。 3、...

怎么把两个Excel合并成一个以WPS 2019版本为例: 如需把两个Excel合并成一个,可使用WPS2019中已自带的「文档拆分合并」功能: 操作步骤: 1)打开其中一份「表格(Excel)」文档; 2)点击「特色应用-拆分合并-合并」;...

如何把两个excel表格合并成一个表格两个excel表格合并成一个表格的方法: 1、首先找到并点击你的WPS表格,即打开Excel。 2、打开Excel后,导入或输入自己想要的表格。 3、在Excel中复制其中一个表格。 4、然后选择...

2003excel怎样把每个sheet表生成单独的excel表有,用宏 1。打开你的Excel 文件。 2。按ALT+F11 会打开VBA编辑窗口 3。在VBA编辑窗口 单击 插入--模块。 4。把下面的代码复制,粘贴到模块的空白处 Sub aa() Dim r As Workshe...

如何把EXCEL表放置在开始项里方法1. 开始 所有程序 启动 右键点击 打开 将EXCEL文件或其快捷键拖动到此文件夹 这样每次电脑开机后,都会打开此EXCEL文件。 方法2. 工具 选项 常规 在 启动时打开此目录中...

如何把SQLServer表数据导出为Excel文件1、打开软件,在数据库中有一张student表,现在要把这张表中的数据导出成excel文件。 2、右击选择“Export”,再选择“Export Table Data as CSV,SQL,Excel etc ... ”。 3、在...

推荐阅读
图文推荐