VBA怎么读取最大值和第二大值所在行的行号

tanglf188

WE2021 发表于 2023-2-5 21:40
老师我现在学习的，不用去重复！

你这就有一个问题，假如数据里有5个一样最大数，你找2个大，则会找到5个行号，再重复一边

1. Sub maxaddress()
   
2.     Sheet1.Range("D3:D4").ClearContents
   
3.     j = 1
   
4.     For i = 1 To 2
   
5.         mx = Application.Large(Sheet1.Range("C1:C21"), i)
   
6.         mysh = "C1:C21"
   
7.         Do
   
8.             Set findcell = Sheet1.Range(mysh).Find(mx, lookat:=xlWhole)
   
9.             If Not findcell Is Nothing Then
   
10.                 [D2].Offset(j, 0) = findcell.Row
    
11.                 mysh = "C" & findcell.Row + 1 & ":C21"
    
12.                 j = j + 1
    
13.             Else
    
14.                 Exit Do
    
15.             End If
    
16.         Loop
    
17.     Next
    
18. End Sub

复制代码

WE2021

dcanoe 发表于 2023-2-5 21:07
让学习成为习惯，很多经典代码可以复制下来平时使用，收集多了你也是专家。

正努力！每天向每一位老师学一点，希望以后也能很溜的写代码！

准提部林

相同值並列,
第?大可用參數隨時改變,
重點在...第N大不存在時, 必須能防錯~~