作者：乔山办公网日期：
返回目录：excel表格制作
假设百现在电子表格有a1.a2.a3.a4.a5五张工作表，a1为汇总表，其它四张表为字表，也就是需度要汇总的表，假设b3为需要汇总的单元，也就问是说把a2-a5这几个工作表的b3单元格数据汇总到a1工作表中的b3单元答格中。在a1工作表中的b3单元格设置公式：内=SUM('a2:a5!B3)，然后回车你就容看到汇总数据了，这是一个单元格，如果设置整个工作表汇总，用鼠标点单元格右下角复制公式就OK了！
1、电脑打开要移动的工作簿。
2、鼠标右键点击要移动的工作表，然后点击移zhidao动或复制。
3、进入移动或复制页面，工作簿就选择要导入的工作簿，如果只是复制就勾选建立副本专，如果是移动就不勾选建立副本。
4、点击确定后属，就可以把工作表都移动到一个工作簿了。
1、一个工作簿里面有多个工作表，各工作表之间的字段是一致的，但数据不一致。由于工作需要，需要将各个工作表的数据汇总到一个表格里面做汇总分析，数据少、工作表数目不多的时候，CTRL+C后CTRL+V逐个复制粘贴是可以的，但数据量大、工作表数据多的时候，则可以用宏进行快速处理；
2、从上图中，后面的5个工作表，里面是源数据。“合并报表”这个表，则是要将后面5个表格的数据汇总的表格，其内容为空。
3、方法：使用宏快速汇总：
（1）录制宏：首先，点击文件菜单的“工具”菜单，选择“宏”—“宏”
出现以下的宏界面，在“宏名”中按照自己喜好录入一个名称，这里录入“合并工作表”的名称，“位置”是指该宏可以在那个EXCEL工作簿中使用，这里选择“当前工作簿”。然后点击“创建”。
出现以下的宏录入界面
Sub 合并工作表()”下面，将以下的字符复制粘贴过去
Dim m As Integer Dim n As Integer Dim o As Integer For m = 2 To 6
n = Sheets(m).[a65536].End(xlUp).Row o = Sheets(1).[a65536].End(xlUp).Row Sheets(m).Select
Range("a1", "z" & n).Select Range("a" & n).Activate Selection.Copy Sheets(1).Select
Range("a" & o + 1).Select ActiveSheet.Paste Next
特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。
然后，点击“文件”菜单，选择“关闭并返回到Micrlsoft Excel”。宏至此录入完毕。
（2）使用已录制好的宏“合并工作表”，进行工作表的数据汇总。首先，在“合并报表”中，点击点击文件菜单的“工具”菜单，选择“宏”—“宏”
出现宏界面，点击选择“合并工作表”，然后点击“执行”。就能达到汇总的效果。要注意，为避免出错，最好检查以下汇总后的报表中有数据的行数，是否等于636f7079e79fa5e98193362后面各个报表有数据的行数总和。
另外要注意，已经使用宏的报表，在保存时，会出现以下提示，点击确定即可。
1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1
2、选择查看代码（PS：excel有着一项，WPS没有）
3、将下列代码复制到文本框中：
Sub 合并当前目录下所e5a48de588b6e799bee5baa6e997aee7ad94335有工作簿的全部工作表()
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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。