Excel精英培训网

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

[已解决]请教查找某区域的最大值,并返回到对应的某行的值

[复制链接]
发表于 2013-11-13 15:54 | 显示全部楼层 |阅读模式
本帖最后由 yslvictor 于 2013-11-13 16:08 编辑

请教论坛老师:查找某区域的最大值,并返回到对应的某行的值(最好写段vba代码)
例如:在AI50:BZ50有数据(包括纯数字、文本数字、空白单元格),在此区域查找最大的纯数字,并把同列行1的值,在Z1中显示出来。
注:如果最大值出现两个及两个以上,只查找由左到右第一列的数据。AU50和AY50同为最大值,在Z1只显示AU的第一行的值:王13。
如图:
111.jpg
Book1.rar (1.87 KB, 下载次数: 45)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-11-13 16:02 | 显示全部楼层
Z1单元格输入
  1. =INDEX(AI1:BZ1,MATCH(MAX(AI50:BZ50),AI50:BZ50,))
复制代码
Book1.zip (2.13 KB, 下载次数: 22)
回复

使用道具 举报

发表于 2013-11-13 16:03 | 显示全部楼层
  1. =INDEX(1:1,MATCH(MAX(50:50),50:50,))
复制代码
回复

使用道具 举报

发表于 2013-11-13 17:25 | 显示全部楼层
代码也简单:
  1. Sub t()
  2.     Dim ar1, ar2
  3.     Dim i As Integer, temp As Double, col As Integer
  4.     ar1 = Sheets(1).Range("AH1").CurrentRegion
  5.     ar2 = shttes(1).Range("Ah50").CurrentRegion
  6.     For i = 2 To UBound(ar2, 2)
  7.         If ar2(i, 2) < temp Then temp = ar2(i, 2): col = i
  8.     Next i
  9.     Sheets(1).[z1] = ar1(1,col)
  10. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2013-11-13 18:29 | 显示全部楼层
CheryBTL 发表于 2013-11-13 17:25
代码也简单:

你好,老师,你的代码运行时好像有错误,行5列10改了,还是不行,看看是怎么回事。
回复

使用道具 举报

发表于 2013-11-13 18:33 | 显示全部楼层
yslvictor 发表于 2013-11-13 18:29
你好,老师,你的代码运行时好像有错误,行5列10改了,还是不行,看看是怎么回事。

有问题发附件来看看?
回复

使用道具 举报

 楼主| 发表于 2013-11-13 19:09 | 显示全部楼层
附件已上传

Book1.rar

6.92 KB, 下载次数: 7

回复

使用道具 举报

发表于 2013-11-13 19:17 | 显示全部楼层    本楼为最佳答案   
  1. Private Sub CommandButton1_Click()
  2. Dim arr, i&, m&
  3. arr = Range([ai50], [bz50])
  4. m = Application.Max(arr)
  5. For i = 1 To UBound(arr, 2)
  6.   If m = arr(1, i) Then [z1] = Cells(1, i + 34): Exit For
  7. Next i
  8. End Sub
复制代码

Book1.zip

8.5 KB, 下载次数: 37

回复

使用道具 举报

 楼主| 发表于 2013-11-19 04:26 | 显示全部楼层
CheryBTL 发表于 2013-11-13 17:25
代码也简单:

谢谢各位论坛老师
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:55 , Processed in 1.221782 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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