excel 表格如何累加百分比 篇一:如何将 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 MyName = Dir(MyPath amp; \ amp; *
xls) Num = 0 Do While MyName lt; If MyName lt; AWbName Then Set Wb = Workbooks
Open(MyPath amp; \ amp; MyName) Num = Num + 1 With Workbooks(1)
ActiveSheet
Cells(
Range(B65536)
End(xlUp)
Row + 2, 1) = Left(MyName, Len(MyName) - 4) Wb
Sheets(G)
UsedRange
Cells(
Range(B65536)
End(xlUp)
Row + 1, 1) Next WbN = WbN amp; Chr(13 Wb
Close False En