篇一：如何将EXCEL 多份表格 叠加在一张表中
如何将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 & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub
说明：1、多张表格格式（行数，列数，字段等）可以不统一；
2、运行 “运行子过程”只能点击一次，否则会重复叠加；可以在“运行子过程”后删除“查看代码”的内容。
3、运行 “运行子过程”，需要将其他Excel表格全部关掉。
篇二：EXCEL求递增累加之和的方法
求递增累加之和的方法
设A1单元格为任意整数值n
B1求1+2+3+……+n的和
在B1单元格中输入=SUM(ROW(INDIRECT("A1:A" & A1))) 按 Ctrl+Shift+Enter结束公式的输入
篇三：电子表格自动累加步骤
电子表格自动累加步骤
1、在分表前设置一张总表，栏目与分表一致。
2、打开总表光标放入要计算总和的单元格内。
3、点击工具栏上的fx，选择函数中SUM，点击“确定”。
4、选中numberl栏目右边的白色长方形框，然后在分表1中选中要进行累加的栏目，再按住shift键，在按住shift键同时选中最后一张分表中要加的栏目。
5、点击确定，回到总表，拖动十字星光标，自动求出其相应栏目得出各单元格的总和。
《excel表格如何累加百分比》出自：百味书屋
链接地址：http://www.850500.com/news/39902.html
转载请保留,谢谢!