前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >yhd-Excel函数多工作表汇总并求和

yhd-Excel函数多工作表汇总并求和

作者头像
哆哆Excel
发布2022-10-25 14:11:31
1.5K0
发布2022-10-25 14:11:31
举报
文章被收录于专栏:哆哆Excel

yhd-Excel函数多工作表汇总并求和

【问题】想把同一个文件中多个工作表中数据汇总并求和,不同的工作表的数据在不同的行

不同的工作表的数据在不同的行

怎么办呢!

思考一下,

思考一下,

思考一下,

思考一下,

【函数】如下

'=SUM(SUMIF(INDIRECT($B$4:$B$18&"!$B$4:$B$18"),B4,INDIRECT($B$4:$B$18&"!$C$4:$C$18")))

=SUM(SUMIF(INDIRECT($B$4:$B$18&"!$B$4:$B$18"),B4,INDIRECT($B$4:$B$18&"!$D$4:$D$18")))三键哦

【解析】

1.SUMIF(条件区域,条件,求和区域)

2.INDIRECT引用函数

INDIRECT(B4:B18&"!B4:B18")引用“***工作中的B1:B18”区域,条件是B4鹿鼎记,

3. ,INDIRECT(B4:B18&"!C4:C18")引用“***工作中的C1:C18”区域进行求和

4.就是把各工作中B1:B18区域中的满足条件为“鹿鼎记”的数据求和,再把所有的和再sum求和。

============================

另附上在创造条件时用到的批量复制工作表的代码

Sub copysht()

Dim temp AsWorksheet

arr =Range("B4:B18")

For i = 1 ToUBound(arr, 1)

' ActiveWorkbook.ActiveSheet.Copy after:=Worksheets(Worksheets.Count)'可以执行

ActiveWorkbook.Sheets("汇总").Copy after:=Worksheets(Worksheets.Count) '可以执行

' ActiveSheet.Copy after:=ActiveSheet '可以执行

ActiveSheet.Name= arr(i, 1)

ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value

Next

End Sub

功能是复件当前的工作表,到后面再把其中的含有公式的数据全部转化为数值

====今天学习到此====

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-10-21,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 哆哆Excel 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档