excel报表数据汇总
发布网友
共5个回答
热心网友
首先要把这12个文件复制到一个EXCEL文件簿中的12个表中,然后在此文件簿中建立第13个表,在第13个表中复制一个和前12个表样格式的表,项目全相同,有对应数据的栏空着,然后在这些对应数据的空栏中设置公式进行链接,如想在B3中设置,选中B3栏后,在编辑栏中输入"=",然后用鼠标点表1后选中表1中的B3,接着再回到表13继续在编辑栏中输入"+",然后用鼠标点表2后选中表2中的B3,接着再回到表13继续在编辑栏中输入"+",依此方法一直加到表12后,按下回车键就完成了第一步,设定好一栏后,相临的栏中的公式只要用鼠标点住右下角一拖就OK了
热心网友
给你写了一段VBA代码，可以达到你的要求，只是不知道你的表具体结构，你自己根据实际情况修改一下就好了。
有什么问题可以Q我，40194204
'代码开始===========================================================
Sub Fun_Bai()
Dim i, j, k, l As Integer
Dim My_Array
Dim strPath, strSave As String
My_Array = Array("1月数据.xls", "2月数据.xls", "3月数据.xls", "4月数据.xls", _
"5月数据.xls", "6月数据.xls", "7月数据.xls", "8月数据.xls", "9月数据.xls", _
"10月数据.xls", "11月数据.xls", "12月数据.xls") '定义原始数据表的文件列表
strPath = "d:\test" '定义原始数据表的路径
Workbooks.Add
ActiveWorkbook.SaveAs ("d:\数据汇总.xls") '汇总后的文件存放路径及文件名
For i = 0 To 11 '此处的11是指要汇总的文件有12个
Workbooks.Open strPath & "\" & My_Array(i)
j = Workbooks("数据汇总.xls").Sheets("Sheet1").Range("A65536").End(xlUp).Row
k = Sheets("sheet1").Range("A65536").End(xlUp).Row
l = Sheets("sheet1").Range("IV1").End(xlToLeft).Column
Sheets("Sheet1").Range("A2:" & Chr(l + ) & k).Copy Workbooks("数据汇总.xls").Sheets("Sheet1").Range("A" & j + 1)
ActiveWorkbook.Close
Next i
Workbooks("数据汇总.xls").Save
Workbooks("数据汇总.xls").Close
End Sub
'代码结束===========================================================
热心网友
你是把这十二个表的数据汇总到一个表里吧，你再创建一个新表在A1单元中输入=1月数据.xlsA1+2月数据.xlsA1+……+……然后复制公式就可以了，不明白的再问我
热心网友
你可以把表格发到我电子邮箱，你帮你看看，再告诉你答案。3623385@qq.com
热心网友
A1=SUM(1月数据:12月数据!A1)
