返回列表下一主題上一主題發帖

[發問] 找出最大值對應的row, column

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2023-12-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-2-21 10:21 | 顯示全部帖子

[發問] 找出最大值對應的row, column

我想找一個範圍內最大值,並找到所對應橫列/縱列的值
如範例中最大值為18.66423, 對應衡列值為400, 縱列值為25, 我的程式如下
Col = Range("B15").End(xlToRight).Column
Rw = Range("B15").End(xlDown).Row
Range("H11") = Application.Max(Range(Cells(16, 2), Cells(Rw, Col)))
For j = 16 To Rw
      For k = 2 To Col
      MAXV = Range("H11").Value
         If Cells(j, k) = MAXV Then
            Range("I11") = Cells(j, 1).Value
            Range("J11") = Cells(15, k).Value
            GoTo 5
         End If
      Next k
Next j
Msgbox (MAXV,  Range("I11"), Range("J11"))
我利用loop去找對應最大值的橫/縱列值, 但是當這個範圍非常大時,可能是1500*1500的陣列, 執行時間則會變長, 是否有其他更有效率方法可以做?