怎样将同一个文件夹里面各个excel表的数字求和汇总? 5
怎样将同一个文件夹里面各个excel表的数字求和汇总?比如我想求和30张excel表里面的各项数字,每张excel表里面的格式和内容都相同,就是excel表名和里面具体的...
怎样将同一个文件夹里面各个excel表的数字求和汇总?比如我想求和30张excel表里面的各项数字,每张excel表里面的格式和内容都相同,就是excel表名和里面具体的数字不同。
展开
4个回答
展开全部
你没有把问题说明白,你所说的excel表应该是工作簿,但每个簿里面又会有多个工作表,你要汇总的是某个表还是全部?是按对应的单元格汇总还是不论什么单元格的数据都全部汇总?下面代码是将某文件夹下所有excel文件中所有工作表中的数字汇总,你可修改代码达到你的目的。用法:将附件文件放在要统计的文件夹内,打开这个文件就可在B2显示汇总结果。
Private Sub Workbook_Open()
Dim Na$, Ph$, Wo As Workbook
Ph = ThisWorkbook.Path & "\"
Na = Dir(Ph & "*.xls")
While Na <> ""
If Na <> ThisWorkbook.Name Then
Set Wo = Workbooks.Open(Ph & Na)
For i = 1 To Wo.Sheets.Count
A = A + WorksheetFunction.Sum(Wo.Sheets(i).Cells)
Next
Wo.Close False
End If
Na = Dir()
Wend
[A1] = "文件夹“" & Ph & "”所有表格数值总和等于"
[B1] = A
End Sub
追问
我说的是工作簿,每个工作簿中也有很多个工作表,我是想分别汇总各个表,按照对应的单元格进行汇总,请问怎么做?
追答
写代码并不难,但因为表较多,运行较慢,所以最好定制,也就是你发一个样表来,标明哪些单元格要汇总,这样就更方便,’不然代码就复杂多了,因为需要判断哪些单元格是文本不用汇总,同时也容易出错,运行就慢。样表发到我的邮箱吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我是不是安静的走开
我是不是安静的走开
我是不是安静的走
我是不是安静的走开
开
我是不是安静的走开
我是不是安静的走
我是不是安静的走开
开
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |