[已解决]查找最大值所在行号

nothingwmm

1. Sub ExitForDemo()
   
2.     Dim MaxVal As Double
   
3.     Dim Row As Long
   
4.     MaxVal = Application.WorksheetFunction.Max(Range("A:A")) '找到A列最大值
   
5.     For Row = 1 To 1048576 '对于Excel2010版而言，遍历所有行，Excel2007没这么多行
   
6.         If Cells(Row, 1).Value = MaxVal Then '找到值与最大值相等的单元格，同时几下该行号
   
7.             Exit For '找到后退出
   
8.         End If
   
9.     Next Row
   
10.     MsgBox "Max value is in Row " & Row '提示找到行号
    
11.     MsgBox "Error " & Err & ": " & Error(Err.Number) '如果有错，错误及错误编号显示，与本问题无关的代码
    
12.     Cells(Row, 1).Activate '激活该最大值单元格
    
13. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-1-20 22:20

用循环好像有点复杂了。
你找到了MAX的话，那就FIND就很快解决了啊。

1. 
   
2. Sub ExitForDemo()
   
3.     Dim MaxVal As Double
   
4.     Dim Row As Long
   
5.     MaxVal = Application.WorksheetFunction.Max(Range("A:A")) '找到A列最大值
   
6.    
   
7.     Cells.Find(What:=MaxVal, After:=ActiveCell).Activate
   
8. 
   
9.     MsgBox "Max value is in Row " & ActiveCell.Row  '提示找到行号
   
10. End Sub

复制代码

跳转到最佳答案楼层

ilyou2049

Excel2010版有1048576行

放浪形骸

用循环好像有点复杂了。
你找到了MAX的话，那就FIND就很快解决了啊。

1. 
   
2. Sub ExitForDemo()
   
3.     Dim MaxVal As Double
   
4.     Dim Row As Long
   
5.     MaxVal = Application.WorksheetFunction.Max(Range("A:A")) '找到A列最大值
   
6.    
   
7.     Cells.Find(What:=MaxVal, After:=ActiveCell).Activate
   
8. 
   
9.     MsgBox "Max value is in Row " & ActiveCell.Row  '提示找到行号
   
10. End Sub

复制代码

nothingwmm

放浪形骸 发表于 2011-1-20 22:20
用循环好像有点复杂了。
你找到了MAX的话，那就FIND就很快解决了啊。

Demo版的，纯属教学目的，不具有实际用途。

龙猫

录个筛选宏吧

放浪形骸

nothingwmm 发表于 2011-1-20 22:29
Demo版的，纯属教学目的，不具有实际用途。

呵呵~~~~~ ~

放浪形骸

已经放上了代码了。

nothingwmm

放浪形骸 发表于 2011-1-20 22:58
已经放上了代码了。

很好，也想你学习了

yuhe0008

Sub test()
MsgBox Application.Evaluate("MATCH(MAX(A:A),A:A,)")
End Sub

nothingwmm

1. Sub test1()
   
2. MsgBox "最大值为 " & Application.Evaluate("max(a:a)") & vbCrLf & _
   
3. Application.Evaluate("MATCH(MAX(A:A),A:A,)")
   
4. End Sub

复制代码

谢谢版主yuhe0008