[發問] 找出最大值對應的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的陣列, 執行時間則會變長, 是否有其他更有效率方法可以做?

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 263
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-26

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2019-2-22 16:48 | 只看該作者

回復 5# acdx

Sub ex()
Dim A As Range, Rng As Range, C As Range
Set A = Range([B16], [B16].End(xlDown))
Set Rng = Range(A, A.End(xlToRight))
Set C = Rng.Find(Application.Max(Rng))
r = Rng(1).Row
k = Rng(1).Column
MsgBox C.Offset(r - C.Row - 1, 0)
MsgBox C.Offset(, k - C.Column - 1)
End Sub

複製代碼

學海無涯_不恥下問

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

6^#

發表於 2019-2-22 16:39 | 只看該作者

回復 5# acdx

先試試~~
Sub TEST()
Dim R&, C&, Mx, xF As Range
R = Cells(Rows.Count, 1).End(xlUp).Row
C = Cells(15, Columns.Count).End(xlToLeft).Column
With Range([B16], Cells(R, C))
   Mx = Application.Max(.Cells)
   Set xF = .Find(Mx, Lookat:=xlWhole)
   Range("I11") = Cells(xF.Row, 1).Value
   Range("J11") = Cells(15, xF.Column).Value
End With
End Sub

TOP

acdx