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表数据合并后的结果。效果如图所示。

（本文内容由百度知道网友茗童贡献）

最近一朋友咨询如何快速把几个表合并到一个表格里，太多表太杂，容易弄混，通常可能我们直接CTRL+C然后 CTRL+V来实现，但是这个有个情况，就是可能我们原有的格式会有变化，而且如果一个表格中有多个sheet我们还需要一个一个区复制粘贴，时间长还有可能会遗漏

excel的移动复制粘贴功能全面解决此问题

以下是详细介绍：

①同时把我们要复制粘贴的几个表打开

②选中我们所要移动到另一个表格的所有sheet（1到N都可以），点击鼠标右键，选择移动或复制

③选择你要移动到的目标excel表格以及sheet的位置，点击确定就完成了

合并方法如下：

把需要合并的excel表格文档放到同一个文件夹里

新建一个“数据合并.xlsx“文档

打开“数据合并.xlsx“文档，在”Sheet1“工作表的地方右键→查看代码（快捷键：“Alt+F11”，尽量选用快捷方式）进入到Microsoft Visual Basic for Applications窗口

双击工程资源管理器里面的sheet1，在右侧的代码区粘贴如下代码：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行→运行子过程/用户窗体（或者直接点击运行按钮，快捷键：F5），即可合并所有Excel表格到”数据合并.xlsx“文档的Sheet1工作表里面

完成Excel表格的合并。

（本文内容由百度知道网友lvrqing贡献）

　如何将多个Excel文件合并成一个且保留原有数据？事实上，我们可以借用Excel宏命令来处理该操作，并且保留原有数据，建立多个Sheet页，具体操作请看下文多个Excel文件合并成一个的方法。

　　如何将多个Excel文件合并成一个且保留原有数据？

　　1、将需合并的Excel文件放在同一个文件夹中，并这个文件中新建一个Excel文件。

　　2、打开新建的Excel文件，按 Alt + F11 键，打开宏，选择视图→代码窗口。

　　3、将下面的代码拷贝进去：

Sub sheets2one() '定义对话框变量 Dim cc As FileDialog Set cc = Application.FileDialog(msoFileDialogFilePicker) Dim newwork As Workbook Set newwork = Workbooks.Add With cc 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:=newwork.Worksheets(i) newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "") tempwb.Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set cc = Nothing End Sub

　　4、点击运行选项运行宏命令。

　　5、之后弹出选择对话框，选择要批量合并的Excel名，确定即可。

　　6、程序运行完毕后，会自动生成一个工作簿，工作簿内包含所有需合并的Excel文件，将工作簿另存为即可。

　　以上步骤便是，合并后的Excel文档会献出多个Sheet页，我们可以很方便的切换了解。

将一个excel表中的数据匹配到另一个表中，需要用到VLOOKUP函数。简单介绍一下VLOOKUP函数，VLOOKUP函数是Excel中的一个纵向查找函数，VLOOKUP是按列查找，最终返回该列所需查询列序所对应的值。

工具：Excel 2013、VLOOKUP函数。

1、一个excel表，需要在另一个表中找出相应同学的班级信息。

2、把光标放在要展示数据的单元格中，如下图。

3、在单元格中输入“=vl”会自动提示出VLOOKUP函数，双击蓝色的函数部分。

4、单元格中出来VLOOKUP函数。

5、选择第一列中需要匹配数据的单元格，选中一个就可以，然后输入英文状态下的逗号“,”。

6、返回到第二张表【百度经验-表2】，选中全部数据。

7、因为要返回的是【表2】中第四列的班级信息，所以在公式中再输入“4,”（逗号是英文的）。（ps:提示信息让选择“TRUE”或“FALSE”，不用选，直接按回车键就可以）

8、按回车键之后，展示数据，效果如下图。

9、要把一列中的数据都匹配出来，只需要按下图操作。

10、完成操作，最终效果如下。

注意：

1、输入的符号需要是英文状态下的，如：逗号。

2、所匹配的数据需要和当前数据不在同一个excel表，不然会匹配错误。

（本文内容由百度知道网友艺天逊逻贡献）

从事互联网行业的小编们，经常会遇到一个问题，就是导出多个Excel表格数据，经常是多个数据合并到一个excel表格里来做数据分析，那么如何快速的合并excel表格呢？

1、把所有excel文件放在同一个文件夹里。如下图：

2、打开汇总excel，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3、然后我们把下面代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "\" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "\" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

运行几十秒钟就OK啦！如果表格数据过多的话，时间会久一点。

1.如下是一个Excel工作薄中的两张表，分别为Sheet1和Sheet2，下面分别以表1和表2来代替。我们要把表2中的语文成绩导入到表1中，但是从图中可以看出表1和表2名字并不一一对应

2.选中表1，选中C2单元格，即语文项目中第一个要录入的成绩。选择“插入—函数”命令

3.在“或选择类别”中选择“查找与引用”

4.在对应的“选择函数”中选择“VLOOKUP”，点击确定

5.在出现的“函数参数”面板点击第一个选项箭头处的按钮

6.点击“张三”名字，即“A2”单元格，表示我们要查找“张三”的成绩，点击上面的按钮回到面板上

7.点击第二个选项箭头处的按钮

8.选中表2，同时选择A列和B列，然后点击上面的按钮

9.因为在表2中语文成绩在第二列，所以第三项我们填入数字“2”

10.第四项我们直接填入“0”即可，点击确定

11.看到表1中张三的语文成绩出现了数值，该数值与表2相同

12.选中C2单元格，用填充柄下拉，所有的语文成绩就从表2填入表1中去了

（本文内容由百度知道网友茗童贡献）

把几个excel表格的内容，合并到同一张表格里面，如何操作？看小编给你演示。

第一步：把需要合并的表格放在同一个文件夹里面，然后再新建一个excel，如图：

第二步：打开“新建Excel2007”，鼠标右键单击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

第四步：点击菜单栏的“运行”、“运行子子过程/用户窗体”，等待几秒后提示合并完成，点击确定。如图：

完成，这样就把3个表格的内容合并到同一张表格里面。

好了，如果觉得小编文章不错，欢迎关注、点赞、收藏。

1.如图，将单元格区域复制，并粘贴到另外的区域，很明显，粘贴后并没有所有的格式复制过来。特别是行高列宽。要重新调整很麻烦。

2.其在粘贴选项里选择保持“保留源列宽”就可以了。

3.第二种方法是选择性粘贴的方法，

点鼠标右键→“选择性粘贴”命令，在对话框中选择“列宽”。

4.复制单元格保留单元格行高和列宽

整行复制可以保留行高，整列复制可以保留列宽，都要保留就只有整表复制。

要同时选择区域所在的行和列

（本文内容由百度知道网友贡献）

Excel文档（工作簿）是由一个或者多个工作表（Sheet）组成的。在编辑表格时，如果想把整个Excel工作表复制到其他Excel文档中，虽然可以采用全选后复制粘贴的方法，但是这样容易弄乱原来的格式，如果数据较多，粘贴时可能还要花费点时间。这里介绍如何快速把整个工作表复制到其他Excel文档中，以供参考。

●如下图的Excel文档中有多个工作表，想把其中的一个或者多个工作表复制到其他的Excel文档中。

●先打开要复制的目标文档，建议最好在Excel中打开。因为有的电脑可能会设置成每打开一个Excel文档就开启一个Excel进程，这样不同的Excel进程之间就不能用本文的方法快速复制整个工作表，而且也不能复制粘贴公式等，只能粘贴数值。

●点击Excel左上角的菜单按钮（不同版本Excel的菜单按钮样式可能不同，但位置都差不多）。

●在弹出的菜单中点击“打开”，会打开一个浏览窗口（也可以按键盘的Ctrl+O键打开浏览窗口）。

●在浏览窗口中找到目标Excel文档，双击该文档名称即可打开。

●打开目标文档后，点击Windows任务栏的原Excel文档，回到该文档。

●在要复制的工作表的标签上点击鼠标右键。

●弹出右键菜单后，鼠标左键点击其中的“移动或复制工作表”。

●弹出“移动或复制工作表”对话框后，点击工作簿处的下拉按钮。

●在下拉菜单中点击刚才打开的目标文档。（注：如果电脑被设置成每打开一个Excel文档就开启一个Excel进程，而且目标文档是直接在Windows中双击打开的，不是按上述方法在Excel中打开的，那么下拉菜单中就不会显示该文档。）

●点击勾选下方的“建立副本”选项，如果不勾选就变成移动工作表了，这样原文档中就没有这个工作表了。

●点击下方的选项可以设置工作表复制后在工作表标签中的位置，如果想把工作表复制到目标文档工作表标签的最后面，应点选“移至最后”。

●设置好后点击“确定”按钮。

●这样，就将整个工作表复制到目标文档中了。

●如果要复制多个工作表，可先用鼠标左键点击其中的一个工作表标签，然后按住键盘的Ctrl键不放，鼠标点击其他要复制的工作表标签，再在选中的工作表标签上点击鼠标右键，然后按上述方法操作即可。

再提醒一下要注意的地方：

●如果电脑被设置成每打开一个Excel文档就开启一个Excel进程，而且目标文档是直接在Windows中双击打开的，不是按上述方法在Excel中打开的，那么“移动或复制工作表”对话框的下拉菜单中就不会显示目标文档名称。

●如果只是想复制工作表，一定要点击勾选“移动或复制工作表”对话框的“建立副本”选项，否则点击确定按钮后原文档中就没有这个工作表了。