怎样将同一个文件夹里面各个excel表的数字求和汇总? 5

怎样将同一个文件夹里面各个excel表的数字求和汇总?比如我想求和30张excel表里面的各项数字,每张excel表里面的格式和内容都相同,就是excel表名和里面具体的... 怎样将同一个文件夹里面各个excel表的数字求和汇总?比如我想求和30张excel表里面的各项数字,每张excel表里面的格式和内容都相同,就是excel表名和里面具体的数字不同。 展开
 我来答
电子数码小百科NW
2020-02-15 · TA获得超过6491个赞
知道答主
回答量:15
采纳率:0%
帮助的人:3904
展开全部

1、首先先打开电脑上面的excel表格,在Sheet1中输入一个数字。

2、然后切换到表2,在Sheet2中输入一个数字。

3、之后点击选中Sheet2数字后面的单元格。

4、然后输入“=”,并点击数字单元格。

5、接着在输入“+”。

6、之后点击Sheet1,点击其单元格内的数字。

7、选中后,键盘上直接按回车键

8、结果如图所示,这样便就实现了多表求和。

姓王的wy451

推荐于2017-05-24 · TA获得超过48.3万个赞
知道大有可为答主
回答量:8万
采纳率:78%
帮助的人:8785万
展开全部

你没有把问题说明白,你所说的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


追问
我说的是工作簿,每个工作簿中也有很多个工作表,我是想分别汇总各个表,按照对应的单元格进行汇总,请问怎么做?
追答
写代码并不难,但因为表较多,运行较慢,所以最好定制,也就是你发一个样表来,标明哪些单元格要汇总,这样就更方便,’不然代码就复杂多了,因为需要判断哪些单元格是文本不用汇总,同时也容易出错,运行就慢。样表发到我的邮箱吧
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友3e9260d
2014-02-22 · TA获得超过311个赞
知道小有建树答主
回答量:214
采纳率:0%
帮助的人:144万
展开全部

数据  合并计算 

选每张表里的要求和的数据区域就行了

追问
每张表都要打开才行吧?还有每个一张表里有很多个数据都要分别这样子一个个添加吗?
追答
对啊  有多少表啊
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
mougaohang
2014-02-22 · TA获得超过705个赞
知道小有建树答主
回答量:1231
采纳率:0%
帮助的人:412万
展开全部
我是不是安静的走开
我是不是安静的走开
我是不是安静的走
我是不是安静的走开
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式