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

WE2021

   各位老师劳烦帮忙看看， VBA怎么读取最大值和第二大值所在行的行号，然后将行号分别填写在D3 D4单元格内，如遇有两个或多个第二大向下填写。
谢谢！
最大值和第二大值所在行的行号.zip (10.17 KB, 下载次数: 14)

2023-2-5 19:25 上传

点击文件名下载附件

WE2021

函数是：
最大值    =max(C1:C21)
第二大值 =LARGE(C1:C21,2)
不知VBA跟函数有什么区别，劳烦各位老师帮忙注释一下！
  谢谢！

明天会更好zj

数组的large大小

gwjkkkkk

请楼主参考。。。

WE2021

gwjkkkkk 发表于 2023-2-5 20:34
请楼主参考。。。

老师如果不需要排名与数值，只要行号。 怎么修改！
谢谢

准提部林

Sub Test_A1()
Dim Arr, xD, i&, N&, V&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("C1", Cells(Rows.Count, "C").End(3))
For i = 1 To UBound(Arr): xD(Arr(i, 1)) = xD(Arr(i, 1)) & " " & i: Next
ReDim Arr(1 To UBound(Arr), 1 To 3)
For i = 1 To xD.Count
    If i > 2 Then Exit For
    V = Application.Large(xD.keys, i)
    For Each a In Split(Trim(xD(V)), " ")
        N = N + 1
        Arr(N, 1) = "NO:" & i
        Arr(N, 2) = V
        Arr(N, 3) = a
    Next
Next i
Columns("F:H").Clear
[F1].Resize(N, 3) = Arr
End Sub

dcanoe

让学习成为习惯，很多经典代码可以复制下来平时使用，收集多了你也是专家。

gwjkkkkk

WE2021 发表于 2023-2-5 20:47
老师如果不需要排名与数值，只要行号。 怎么修改！
谢谢

请参考。。。

tanglf188

这个第一大第二大因该是去重后的吧，要不如果有2个7，第一大第二大都是7

WE2021

tanglf188 发表于 2023-2-5 21:15
这个第一大第二大因该是去重后的吧，要不如果有2个7，第一大第二大都是7

老师我现在学习的，不用去重复！