【www.guakaob.com--统计师考试】
excel如何快速把多个工作表合并到一个excel表
有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。
工具/原料
Excel
操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示，插入一个模块。
5、将下述代码粘贴到模块空白处：
诚心请教excel高手，怎样合并两张电子表格excel中的数据？
悬赏分：20 - 解决时间：2006-6-15 20:20
请教excel高手们，怎么才可以将两张电子表格中的数据合并.我的意思是说，比如，第一张表中含有姓名、身份证号、社会保险编号、工作单位的数据。第二张表中有姓名、身份证号、社会保险编号信息。每张表均有7000多条记录。
因为两张表的记录的顺序不一样，（姓名有重名，身份证号有升位的）只有社会保险编号是唯一的。现在希望按照第二张表的记录顺序，加进工作单位的信息，怎样才能加进去呢？
谢谢！
问题补充：
yangzhikk2001，我用了这方法，还是不会......
还有一点就是，第一张表比第二张表多10条记录，是哪10条我查不出来（太多了）。 我的邮箱是hljef@tom.com
谢谢！
提问者： hljef - 一级
最佳答案
使用嵌套公式＝INDEX(第一张表工作单位总单元格,MATCH(第二张表保险号,第一张表保险号总单元格,0))。如果还不会，给我邮箱地址，我发个示范表给你。
Excel中不同表格间的数据合并问题，请高手指教
悬赏分：20 - 解决时间：2009-2-18 15:02
举例：sheet1内容
物品 单位 数量
马匹 匹
美女 个
锦缎 匹
马车 辆
sheet2内容：
物品 单位 数量
美女 个 10
锦缎 匹 9
问：怎样将sheet2的物品数量自动合并到sheet1中对应物品的数量栏内？ 现在我只能一个一个的添加，但是数量很大，有没有快捷方法？
问题补充：
谢谢能不能说的详细点，如=vlookup(A2,'sheet2!A:C,2,0)里面的每个符号是什么意思？
提问者： 不成佛 - 二级
最佳答案
使用Vlookup函数
=vlookup(A2,'sheet2!A:C,2,0)
A2要查询的数据（马匹）
'sheet2!要被查询的表（表2）
A:C要被查询的数据范围（表2的A-C列）
2引用第几列（表2的第二列，你这里应该是3）
0是否需要精确匹配（默认0，不要改）
就是查询表2的A-C列中有与表1的A2单元格匹配的数据时，引用表2的A-C列中第2列数据
是否是将两个格式相同的表每项数据汇总？若是，请按下面步骤操作：
1、在同一工作簿新建一张表，格式与前两表相同。
2、选新表左上角第一个存放数据的单元格。
3、点“数据/合并计算”。在对话框的函数栏选“求和”；点引用位置栏右边箭头，（如果被选表不在同工作簿，可通过“浏览”按钮）将第一表全部数据单元格选中，点“添加”将所选内容列在所有引用位置栏中；同样，将第二表全部数据添加到此栏中。
4、点“确定”，两表的数据即汇总到新表当中了。
如何快速把多个excel表合并成一个excel表
| 浏览：3507 | 更新：2014-01-25 15:30 | 标签： excel
分步阅读
有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，其实利用excel表的宏计算就可以实现。下面我们就来一起解决这个问题。 多个excel表数据 microsoft office 1. 1 我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
2. 2
用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
3. 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【如何将两个excel表格合并】
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) =
Len(MyName) - 4)【如何将两个excel表格合并】
For G = 1 To Sheets.Count Left(MyName,
我们需要把多个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& "个工作薄下的全部工作表。如何将2个excel表格合并成一个excel表?。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
这样名称和年代都会出现在X轴，面积为Y轴
1、选中要做图表的数据区域；
2、点击菜单栏“插入”、“图表”，并选择一种图表类型。例如“折线图”
3、点击“图表向导”下面的“下一步”直到完成。
4、如果图表不理想，鼠标右键点击图表中相应的位置，选中快捷菜单中的项目进行调整。excel表格怎么做折线图。
反复多实验几次，很快就会发现规律，不久你就可以随心所欲地做自己的图表了。
上一篇：怎么将两个工作表合并
下一篇：奶牛为什会产奶？