[已解决]取值及位置

tiger7082

各位先進請幫個忙 想不出來  我想找數組中最大值的位置 , 如果有兩個以上最大值 , 取最靠後那個的位置


我需在以下數組中找到最大值98 ,並取得98是第三個值

77

55

98

36

12

55

但 當動態數組變為以下時 , 找到最大值為88 , 但有兩個88 最大值 , 我要取 88是第五個值  也就是靠後的

45

74

88

52

88

33

這取到的值是要給變量賦值的    例如將取到88的 5 賦值給 x

最佳答案

月排行榜 / 总排行榜

爱疯

2016-12-15 18:43

Sub test()
    Dim A()
    A = Array(45, 74, 88, 52, 88, 33)
    MsgBox f(A, 88)
End Sub

Function f(A, x)
    Dim i
    f = -1    '假设-1代表没找到
    For i = UBound(A) To LBound(A) Step -1
        If x = A(i) Then f = i: Exit For
    Next i
End Function

跳转到最佳答案楼层

望帝春心

=LOOKUP(,0/(MAX(A1:F1)=A1:F1),ROW(1:6))

love_liwu

参考： 取值和位置.zip (6.96 KB, 下载次数: 2)

2016-12-15 18:14 上传

点击文件名下载附件

位置=IF(MOD(COUNTA(A1:INDIRECT(CHAR(64+COUNTA((1:1)))&"1")),2)=0,MATCH(MAX(A1:INDIRECT(CHAR(64+COUNTA((1:1)))&"1")),1:1,0),MATCH(MAX(A1:INDIRECT(CHAR(64+COUNTA((1:1)))&"1")),1:1))
取值=OFFSET(A1,0,B3-1,1,1)

爱疯

Sub test()
    Dim A()
    A = Array(45, 74, 88, 52, 88, 33)
    MsgBox f(A, 88)
End Sub

Function f(A, x)
    Dim i
    f = -1    '假设-1代表没找到
    For i = UBound(A) To LBound(A) Step -1
        If x = A(i) Then f = i: Exit For
    Next i
End Function