1.怎么把两个EXCEL文档合成一个

1、首先打开EXCEL表格，里面有两个EXCEL文档。

2、然后我们点击EXCEL文档后面如图图标，插入一个新的EXCEL表格。

3、将插入的这个表格命名为合并。

4、然后将光标放到这个EXCEL文档的位置，右键单击，选择查看代码。

5、接着就会出现VBA编辑窗口，在里面输入下面的代码。

Sub 合并当前工作簿下的所有工作表（）

Application.ScreenUpdating = False

For j = 1 To Sheets.Count

If Sheets(j).Name <> ActiveSheet.Name Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j).UsedRange.Copy Cells(X, 1)

End If

Next

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "当前工作簿下的全部工作表已经合并完毕！"， vbInformation， "提示"

End Sub

6、输入之后，在上面的工具栏里面点击运行里面的运行子过程/用户窗体。

7、这样就可以将两个EXCEL文档合成一个。

2.如何将两个不同的excel文件合并成一个

合并方法如下：

1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

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

3.怎样把多个excel文件合并到一个文件中

如果表不算太多的话可以试试这种方法，打开总表（要粘贴的表），打开一个要复制的表，右击要复制的工作表标签，选择移动或复制工作表，建立副本，选择要移动到表（要粘贴的那总表）。

这种方法对合并到同一个文件中还是可行的。但你说的汇总到一张表里就不行了，可以试试用“=”建立链接（要用相对地址），但这种方法对表结构相同或类似的才可以，而且文件名和表名称要有规律。

这样会很快汇总到一张表中，下面的活儿就是整理一下的工作了，要是要数据的话就把链接改成数据才可以，这种方法好在可以动态更新你的数据。写代码也可以，但若是工作量很大的话可考虑！ 新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11，双击工程资源管理器里面的sheet1(sheet1)，在右侧的代码区粘贴如下代码。

运行。等候一会就OK了。

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("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示" End Sub。

4.两个excel文件合并成一个excel文件里的多个sheet

新建一个工作表，命名后保存到和与合并的N个文件同一个文件文件夹，按 alt + f11，双击工程资源管理器里面的sheet1(sheet1)，在右侧的代码区粘贴如下代码。

运行。等候一会就OK了。

宏：多个文件表合到一个文件表的多个SHEET中Sub CombineWorkbooks() Dim FilesToOpen, ft Dim x As Integer Application.ScreenUpdating = False On Error GoTo errhandler FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Micrsofe Excel文件（*.xls）, *.xls", _ MultiSelect:=True, Title：="要合并的文件"） If TypeName(FilesToOpen) = "boolean" Then MsgBox "没有选定文件" 'GoTo errhandler End If x = 1 While x <= UBound(FilesToOpen) Set wk = Workbooks.Open(Filename:=FilesToOpen(x)) wk.Sheets().Move after:=ThisWorkbook.Sheets _ (ThisWorkbook.Sheets.Count) x = x + 1 Wend MsgBox "合并成功完成！"errhandler: 'MsgBox Err.Description 'Resume errhandlerEnd Sub。

5.怎样将多个excel文件合成到另一个excel里

需要写了一段VBA代码，实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。代码如下：

'功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称

Sub Books2Sheets()

'定义对话框变量

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)

'新建一个工作簿

Dim newwb As Workbook

Set newwb = Workbooks.Add

With fd

If .Show = -1 Then

'定义单个文件变量

Dim vrtSelectedItem As Variant

'定义循环变量

Dim i As Integer

i = 1

'开始文件检索

For Each vrtSelectedItem In .SelectedItems

'打开被合并工作簿

Dim tempwb As Workbook

Set tempwb = Workbooks.Open(vrtSelectedItem)

'复制工作表

tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)

'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx

newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

'关闭被合并工作簿

tempwb.Close SaveChanges:=False

i = i + 1

Next vrtSelectedItem

End If

End With

Set fd = Nothing

End Sub

6.怎样把多个excel文件合并成一个

1、打开电脑，然后打开文件夹将这些excel文件都复制到一个文件夹下。注意，文件夹下不要有其他的excel文件；

2、切换到【数据】菜单，点击【新建查询】，选择【从文件】下的【从文件夹】；

3、接下来输入刚刚的文件夹路径，找到并点击【确定】选项；

4、然后会出现一个新的页面，接着找到并点击【合并】下的【合并和加载】选项；

5、选择要合并的工作表名称，最后点击【确定】选项；

6、这时就完成了多个excel文件的合并。从筛选菜单中可以看到本例中的4个文件都这一份表格中。