【www.guakaob.com--统计师考试】
excel如何快速把多个工作表合并到一个excel表
有这么一种情况，就是我们有很多张excel，而且excel表里面的公式基本一样，我们就想快速的把这些excel合并在一起，意思在合并在一个excel页面，这样可以方便我们分析和统计，那么excel如何快速把多个工作表合并到一个excel表？下面为大家介绍这种方法，希望能帮助到大家。
工具/原料
Excel
操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
3、按Alt+F11进入VBA代码编辑和调试界面。
4、根据下图提示，插入一个模块。
5、将下述代码粘贴到模块空白处：
如何快速合并单个excel表中的多个sheet的工作页
| 浏览：10670 | 更新：2014-01-25 14:54 | 标签： excel
1
2
3
4
5
6
分步阅读 7
很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页，多的可能有几百页，
然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。
工具/原料
excel数据 microsoft office
方法/步骤
1. 1
首先我们要有自己的excel数据，并且我们需要的是microsoft excel，WPS没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。
2. 2
看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。如图：
3. 3
在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面。如图所示：
4. 4
看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下：
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
5. 5
做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示：
如何将同一工作薄中多个工作表合并
打开你要合并的工作簿，按下alt+F11，插入-模块，复制下面的的内容，然后运行。
Sub 合并各工作表内容()
sp = InputBox("各表内容之间，间隔几行？不输则默认为0")
If sp = "" Then
sp = 0
End If
st = InputBox("各表从第几行开始合并？不输则默认为2")
If st = "" Then
st = 2
End If
Sheets(1).Select
Sheets.Add
If st > 1 Then
Sheets(2).Select
Rows("1:" & CStr(st - 1)).Select
Selection.Copy
Sheets(1).Select
Range("A1").Select【怎么将两个工作表合并】
ActiveSheet.Paste
y = st - 1
End If
For i = 2 To Sheets.Count
Sheets(i).Select
For v = 1 To 256
zd = Cells(65535, v).End(xlUp).Row
If zd > x Then
x = zd
End If
Next v
If y + x - st + 1 + sp > 65536 Then【怎么将两个工作表合并】【怎么将两个工作表合并】
MsgBox "内容太多，仅合并前" & i - 2 & "个表的内容，请把其它表复制到新工
作薄里再用此程序合并！"
Else:
Rows(st & ":" & x).Select
Selection.Copy
Sheets(1).Select
Range("A" & CStr(y + 1)).Select
ActiveSheet.Paste
Sheets(i).Select
Range("A1").Select
Application.CutCopyMode = False
End If
y = y + x - st + 1 + sp
x = 0
Next i
Sheets(1).Select
Range("A1").Select
MsgBox "这就是合并后的表，请命名！"
End Sub
我们需要把多个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表格怎么做折线图。
反复多实验几次，很快就会发现规律，不久你就可以随心所欲地做自己的图表了。
上一篇：医药公司日常管理制度
下一篇：如何将两个excel表格合并