ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 916|回复: 21

[求助] 多工作表求整个工作簿中某类数的最大值

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-12-9 17:19 | 显示全部楼层 |阅读模式
各位大神,假如有个文件有很多个工作表,每个工作表都是一个编号对应一个数值,想在统计表中输出任一编号对应的整个工作簿的最大值要怎么弄?如果要在另一个工作簿中引入这个值要怎么弄?万分感谢!

简化.rar

13.78 KB, 下载次数: 17

TA的精华主题

TA的得分主题

发表于 2019-12-9 19:33 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-9 20:46 | 显示全部楼层

非常感谢,请问这个就是解决此类问题最简单的办法了吗?另外由于之前没有接触过VBA,这个动态图片看起来不太方便,能不能麻烦您把代码贴给我下,谢谢了!

TA的精华主题

TA的得分主题

发表于 2019-12-9 21:50 | 显示全部楼层
本帖最后由 iwangyi 于 2019-12-9 21:52 编辑

Sub c()
Set d=createobjeCt("ScriPting.dictionary")
FOr each Sh in sheets
if Sh.name<>"汇总表" Then
arr=Sh.[A1].currentRegion
FOr i=2 to ubound(arr)
X=ceLLS(i,1):y=CeLLs(i,2)
if nOt  d.exists(x) Then
d(X)=y
eISe
if y>d(X) Then d(X)=y
End if
next
End ifneXt
n=[A65536].End(XLuP).Row
For i=2 to n
CeLLS(i,2)=d(CeLLs(i,1))
neXt
End Sub

TA的精华主题

TA的得分主题

发表于 2019-12-9 21:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-12-9 22:04 | 显示全部楼层
本帖最后由 varytina 于 2019-12-9 22:29 编辑

Power query 方法供楼主参考
PQ方法.gif
PQ.png

Power query方法简化.zip

57.34 KB, 下载次数: 2

TA的精华主题

TA的得分主题

发表于 2019-12-9 23:32 | 显示全部楼层
提供一个VBA字典方法供楼主参考
VBA方法.gif

VBA方法简化.rar

60.5 KB, 下载次数: 6

TA的精华主题

TA的得分主题

发表于 2019-12-10 00:36 | 显示全部楼层
最简单的办法是用indirect函数,将工作表名作为变量引用,B2输入=MAX(INDIRECT("'"&A2&"'!B:B"))。
360截图20191210003504103.jpg
答:简化.zip (13.87 KB, 下载次数: 3)

评分

参与人数 1鲜花 +2 收起 理由
varytina + 2 优秀作品

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-10 09:07 | 显示全部楼层
iwangyi 发表于 2019-12-9 21:50
Sub c()
Set d=createobjeCt("ScriPting.dictionary")
FOr each Sh in sheets

非常感谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-10 09:07 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-9-25 04:48 , Processed in 0.096799 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表