怎样在excel表格合并

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1

2、选择查看代码（PS：excel有着一项，WPS没有）

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

4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

如何合并excel表格

如何合并excel表的方法：

合并表步骤1：一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总分析，数据少、工作表数目不多的时候，CTRL+C后CTRL+V逐个复制粘贴是可以的，但数据量大、工作表数据多的时候，则可以用宏进行快速处理;

合并表步骤2：从上图中，后面的5个工作表，里面是源数据。“合并报表”这个表，则是要将后面5个表格的数据汇总的表格，其内容为空。

合并表步骤3：方法：使用宏快速汇总：

(1)录制宏：首先，点击文件菜单的“工具”菜单，选择“宏”—“宏”

合并表步骤4：出现以下的宏界面，在“宏名”中按照自己喜好录入一个名称，这里录入“合并工作表”的名称，“位置”是指该宏可以在那个EXCEL工作簿中使用，这里选择“当前工作簿”。然后点击“创建”。

合并表步骤5：出现以下的宏录入界面

Sub 合并工作表()”下面，将以下的字符复制粘贴过去

Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6

n = Sheets(m).[a65536].End(xlUp).Row o = Sheets(1).[a65536].End(xlUp).Row Sheets(m).Select

Range("a1", "z" n).Select Range("a" n).Activate Selection.Copy Sheets(1).Select

Range("a" o + 1).Select ActiveSheet.Paste Next

合并表步骤6：特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。

合并表步骤7：然后，点击“文件”菜单，选择“关闭并返回到Micrlsoft Excel”。宏至此录入完毕。

(2)使用已录制好的宏“合并工作表”，进行工作表的数据汇总。首先，在“合并报表”中，点击点击文件菜单的“工具”菜单，选择“宏”—“宏”

合并表步骤8：出现宏界面，点击选择“合并工作表”，然后点击“执行”。就能达到汇总的效果。要注意，为避免出错，***检查以下汇总后的报表中有数据的行数，是否等于后面各个报表有数据的行数总和。

合并表步骤9：另外要注意，已经使用宏的报表，在保存时，会出现以下提示，点击确定即可。

怎么把表格合并

1、首先需要把所有需要合并的excel文件放到一个文件夹中，并且新建一个空白的excel文件。

请点击输入图片描述

word文档合并_飞书,可多人实时编辑的在线文档_免费使用查看详情广告

2、然后打开这个新建的excel文件，右键点击sheet1选择查看代码。

请点击输入图片描述

3、然后会出现如下的界面。

请点击输入图片描述

如何将word表格转换成excel表格_一键转换_简单便捷查看详情广告

4、然后把如下代码复制粘贴到代码栏。

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

请点击输入图片描述

5、接下来就是运行代码，点击运行→运行子过程/用户窗体。

请点击输入图片描述

Excel做合并报表系统_合并财务报表查看详情广告

6、合并成功！

请点击输入图片描述

怎么把两份excel表格合并一个表格？

步骤如下：

1、打开excel表格，点击菜单栏的【数据】选项。

2、在下方，找到【合并表格】选项并点击。

3、选择合并方式为【多个工作表合并成一个工作表】。

4、之后，点击【添加文件】选项。

5、选择其他的excel表格，点击【打开】。

6、添加完成后，点击【开始合并】选项。

7、合并完成后，在【报告】页可看到合并的数据情况。

8、点击【总表】，即可看到合并后的表格内容。

word表格怎么合并

布局里面的合并单元格。

打开Word文档，在文档里面插入需要表格。表格插入进来之后需要需要合并的表格。在功能区点击一下“布局”。在布局里面有一个“合并单元格”将其点击一下，这时候就会发现需要合并的表格合并在一起了。

MicrosoftWord是微软公司的一个文字处理器应用程序。它最初是由RichardBrodie为了运行DOS的IBM计算机而在1983年编写的。

.pjbox{padding-top:8px;text-align:center}.pjbox a{cursor:pointer;color:#000} 收藏 / 推荐(59) / 要加油(34)