Excel是我们日常办公经常要用到的工具，有时候我们会制作非常多的Excel表格，为了方便管理，我们需要将这些表格合并到一起，那么如何将多个excel表格合并成一个呢？相信很多朋友都不太清楚，那么今天小编就针对此问题，为大家带来excel多表合并到一种表格的方法，一起看看吧。
excel多表合并到一种表格的方法：
1、以下图所示的电脑桌面上两张Excel表为例，我们看到分别是工资表和设备列表，接着打开Excel创建一张空白的工作簿；
2、在空白工作簿的左下角sheet 1工作表当中，我们随意选择一个空白单元格，接着点击“数据”-“现有连接”；
3、然后即可弹出现有连接对话框，我们点击对话框左下角的“浏览更多”，然后找到刚才的两份Excel存放的位置，也就是电脑桌面上；
4、点击其中一种Excel表以后，会弹出导入数据对话框，我们只需勾选“表”和数据的放置位置即可，这样第一份Excel导入成功；
5、然后在此工作簿左下角新建sheet 2工作表，按照统一的方法导入剩余的那份Excel表，不过我们可能会遇到下面的一种情况，那就是这份Excel表里面本身就包含多个sheet表格；
6、系统默认的只能一个个的导入，不过我们可以将这几个sheet工作表放到新建的同一个工作表中；
7、最后对比一下导入前后的效果图，我们会发现文字类内容导入非常完美，但是图标类内容导入就会有遗漏，所以以后按照以上方法导入的时候要慎重选择哦。
好了，以上就是关于如何将多个excel表格合并成一个的全部内容了，希望本篇excel多表合并到一种表格的方法对你有帮助。

Excel VB代码 2003快速合并多个Excel工作表代码 解释
我一般是EXCEL 和ACCESS使用,一般用通过链接表,把EXCEL的导入到ACCESS在数里查询,在EXCEL进行数据收集. 不过如数才几千,单用EXCEL就可以了, 你想要的功能"很难查到在那一期",可以用查找--查找全部-选整个工作簿,那信息在那个sheet都可以查找到了.
如何快速合并多个excel 表格
原始数据所作簿包含多个格式作表，只不过每个工作表内容，比如说不同人名的工作表数据或者不同部门填写的数据。
2
在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
3
按Alt F11进入VBA代码编辑和调试界面。
4
根据下图提示，插入一个模块。
5
将下述代码粘贴到模块空白处：
Sub CombineSheetsCells()
Dim wsNewWorksheet As Worksheet
Dim cel As Range
Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant
Dim TitleRow, TitleColumn As Range
Dim Num As Integer
Dim DataRows As Long
DataRows = 1
Dim TitleArr()
Dim Choice
Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$
Dim n, i
n = 1
i = 1
Application.DisplayAlerts = False
Worksheets("合并汇总表").Delete
Set wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))
wsNewWorksheet.Name = "合并汇总表"
MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")
If MyFileName = "False" Then
MsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"
Else
Workbooks.Open Filename:=MyFileName
Num = ActiveWorkbook.Sheets.Count
MyName = ActiveWorkbook.Name
Set DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)
AddressAll = DataSource.Address
ActiveWorkbook.ActiveSheet.Range(AddressAll).Select
SourceDataRows = Selection.Rows.Count
SourceDataColumns = Selection.Columns.Count
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 1 To Num
ActiveWorkbook.Sheets(i).Activate
ActiveWorkbook.Sheets(i).Range(AddressAll).Select
Selection.Copy
ActiveSheetName = ActiveWorkbook.ActiveSheet.Name
Workbooks(ThisWorkbook.Name).Activate
ActiveWorkbook.Sheets("合并汇总表").Select
ActiveWorkbook.Sheets("合并汇总表").Range("A"

Excel是我们日常办公经常要用到的工具，有时候我们会制作非常多的Excel表格，为了方便管理，我们需要将这些表格合并到一起，那么如何将多个excel表格合并成一个呢？相信很多朋友都不太清楚，那么今天小编就针对此问题，为大家带来excel多表合并到一种表格的方法，一起看看吧。
excel多表合并到一种表格的方法：
win8.1 - 14 、以下图所示的电脑桌面上两张Excel表为例，我们看到分别是工资表和设备列表，接着打开Excel创建一张空白的工作簿；
windows7系统之家 - 15 、在空白工作簿的左下角sheet 1工作表当中，我们随意选择一个空白单元格，接着点击“数据”-“现有连接”；
windows7 - 1、然后即可弹出现有连接对话框，我们点击对话框左下角的“浏览更多”，然后找到刚才的两份Excel存放的位置，也就是电脑桌面上；
windows8 - 2、点击其中一种Excel表以后，会弹出导入数据对话框，我们只需勾选“表”和数据的放置位置即可，这样第一份Excel导入成功；
windows10 - 3、然后在此工作簿左下角新建sheet 2工作表，按照统一的方法导入剩余的那份Excel表，不过我们可能会遇到下面的一种情况，那就是这份Excel表里面本身就包含多个sheet表格；
xp系统 - 4、系统默认的只能一个个的导入，不过我们可以将这几个sheet工作表放到新建的同一个工作表中；
纯净版 - 5、最后对比一下导入前后的效果图，我们会发现文字类内容导入非常完美，但是图标类内容导入就会有遗漏，所以以后按照以上方法导入的时候要慎重选择哦。
好了，以上就是关于如何将多个excel表格合并成一个的全部内容了，希望本篇excel多表合并到一种表格的方法对你有帮助。

本帖最后由 ·#天蝎#· 于 2018-10-20 16:25 编辑
我在网上找了些，加上我自己的修改，试着做了个合并多张表头、格式相同的表格文件的VBA，请各位大侠批评指正。Sub 多工作簿合并()
Dim HeadRows As Byte, ActiveWB As Workbook, cell As Range
Dim bks As Workbook
Dim fdg As FileDialog
Dim FileName$
Dim p As String
UserForm1.ListBox9.Clear
Set fdg = Application.FileDialog(msoFileDialogFilePicker)
With fdg
.Title = "请选择文件(可以多选)"
.AllowMultiSelect = True 'False表示不能选择多个文件,True表示可以选择多个文件
.Filters.Clear
.Filters.Add "表格文件", "*.xls;*.et;*.xlsx"
FileName = .Show
For i = 1 To .SelectedItems.Count
UserForm1.ListBox9.AddItem (.SelectedItems(i))
Next i
End With
If fdg.SelectedItems.Count = 0 Then Exit Sub
Set fdg = Nothing
On Error Resume Next
Set ActiveWB = ActiveWorkbook  '将活动工作簿赋予变量
Set bks = Workbooks.Add
HeadRows = Application.InputBox("请确认待合并工作簿的标题行数，该行将产生在合并工作簿中做为新的标题行：", "标题行", 1, , , , , 1) '让用户指定标题行数，标题不参与合并
If HeadRows < 1 Then Exit Sub  '如果标题行小于1则退出程序
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual '计算模式调用手动，从而提速
For j = 0 To UserForm1.ListBox9.ListCount - 1
UserForm1.ListBox9.ListIndex = j
UserForm1.ListBox9.Selected(j) = True
nm = UserForm1.ListBox9.List(UserForm1.ListBox9.ListIndex, 0)
Workbooks.Open FileName:=nm
bm = ActiveWorkbook.Name
ActiveWB.Activate  '返回存放合并数据的工作表
bks.Worksheets(1).Activate
If j = 1 Then Intersect(Workbooks(nm).Sheets(1).UsedRange, Workbooks(nm).Sheets(1).Rows("1:" & HeadRows)).Copy bks.Worksheets(1).Cells(1, 1) '如果j=1,那么将标题复制到活动工作表a1
For i = 1 To Workbooks(nm).Sheets.Count '遍历所有工作表，开始合并标题以外的数据
With Workbooks(nm).Sheets(i).UsedRange '引用待合并工作簿中每个工作表的已用区域
If Not IsEmpty(Workbooks(nm).Sheets(i).UsedRange) Then '如果非空表
If .Rows.Count <= HeadRows Then GoTo lines  '如果数据行小于等于标题行数则执行下轮循环
Set cell = Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1) '将活动工作表已用区域的下一行第3个单元格赋予变量
Intersect(.Offset(HeadRows, 0), .Cells).Copy cell '将目标数据除标题外全部复制到cell单元格(此次复制，仅仅需要其格式)
End If
Cells.EntireColumn.AutoFit '自动调整行高列宽
End With
lines:
Next i  '合并下一个工作表
Workbooks(nm).Close False '并闭工作簿，且不保存
With UserForm0
.Show 0
.Label2.Width = Int(j / (UserForm1.ListBox9.ListCount - 1) * 282)
.Label3.Caption = bm
.Caption = "正在合并：" & bm
.Label4.Caption = CStr(Int(j / (UserForm1.ListBox9.ListCount - 1) * 100)) + "%"
DoEvents
End With
Next j
MkDir PathStr & "\" & "合并表\"
bks.SaveAs FileName:=PathStr & "\" & "合并表\" & Left(bm, Len(bm) - 4) & "等表合并" & ".et"
bks.Close True
Set bks = Nothing
Unload UserForm0
On Error Resume Next
Application.WindowState = xlMinimized
MsgBox ("请查看合并好的表格！")
Shell "Explorer.exe " & PathStr & "\" & "合并表\", vbMaximizedFocus
UserForm1.Hide
Application.ScreenUpdating = True  '恢复屏幕更新
Application.Calculation = xlCalculationAutomatic  '恢复自动计算
End Sub