Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 8003|回复: 9

[已解决]VBA 求每列最大值并返回所在行号的程序

[复制链接]
发表于 2015-6-5 12:48 | 显示全部楼层 |阅读模式
一个多行多列的数据表,我想要取得每列的最大值,并找到每列最大值所对应的行号,使用了Max(数组),但提示有问题。
希望大家帮忙!


最佳答案
2015-6-5 13:47
用随机数做了个附件,试试。

如图所示 取每列最大值

如图所示 取每列最大值
发表于 2015-6-5 12:55 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2015-6-5 13:01 | 显示全部楼层
第一次发帖 截图上传 就是想取得每列最大值并返回所在行号
回复

使用道具 举报

发表于 2015-6-5 13:47 | 显示全部楼层    本楼为最佳答案   
用随机数做了个附件,试试。

工作簿1.rar

9.59 KB, 下载次数: 7

回复

使用道具 举报

 楼主| 发表于 2015-6-5 14:25 | 显示全部楼层
高手啊!给力 假如要是I 行 J 列的动态表格 代码有什么变化吗?
我想for循环 I 行 而这个值来自其他sheet 请问怎么获取这个值?
谢谢
回复

使用道具 举报

发表于 2015-6-5 14:36 | 显示全部楼层
cells(rows.count,1).end(xlup).row  获取A列最后一行
cells(1,columns.count).end(xltoleft).column  获取第一行的最后一列

获取其他sheet的值,sheets(“表名”).[A1]
你自己改下试试
回复

使用道具 举报

 楼主| 发表于 2015-6-5 14:50 | 显示全部楼层
Dj_soo 发表于 2015-6-5 14:36
cells(rows.count,1).end(xlup).row  获取A列最后一行
cells(1,columns.count).end(xltoleft).column  获取 ...

多谢啊!
回复

使用道具 举报

 楼主| 发表于 2015-6-5 22:15 | 显示全部楼层
grf1973 发表于 2015-6-5 13:47
用随机数做了个附件,试试。

这是我的实验数据 但run完之后第二列就有问题 最大值没有错 但行数返回的是错的
是什么原因呢?

工作簿1.rar

8.73 KB, 下载次数: 0

回复

使用道具 举报

 楼主| 发表于 2015-6-6 08:58 | 显示全部楼层
经过测试 我觉得find函数 参数设置不好容易造成返回值错误 用match比较准确
回复

使用道具 举报

发表于 2021-2-25 13:52 | 显示全部楼层
学习啦啊,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:45 , Processed in 0.658089 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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