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

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的陣列, 執行時間則會變長, 是否有其他更有效率方法可以做?

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2019-2-21 17:29 | 只看該作者

本帖最後由 stillfish00 於 2019-2-21 17:42 編輯

回復 1# acdx
不要在大範圍的loop內頻繁地存取儲存格

Sub Solution()
Dim maxv As Double, ar, headers(0 to 1)
maxv = 0
ar = [B16].CurrentRegion.Value
For i = 2 To UBound(ar)
For j = 2 To UBound(ar, 2)
If ar(i, j) > maxv Then
maxv = ar(i, j)
headers(0) = ar(i, 1)
headers(1) = ar(1, j)
End If
Next
Next
'Range("H11") = maxv
'Range("I11") = headers(0)
'Range("J11") = headers(1)
Debug.Print maxv, headers(0), headers(1)
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

acdx

中學生 Rank: 2

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

3^#

發表於 2019-2-21 18:28 | 只看該作者

回復 2# stillfish00

這樣跟我原本方式差不多, 當範圍大時loop須跑的項數就多了,不知道有沒有更快的方式?
ar = [B16].CurrentRegion.Value這寫法我倒是沒想過, 多學一招謝謝

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2019-2-22 11:05 | 只看該作者

最大數值最多有幾個???
若只要找出一個, 用RANGE.FIND即可, 不須迴圈,
上傳大略樣本資料的檔案, 才好處理~~

TOP

acdx

中學生 Rank: 2

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

5^#

發表於 2019-2-22 14:44 | 只看該作者

回復 4# 准提部林

findMax.zip (95.63 KB)
範圍是變動的, 每次遇到的範圍可能會不一樣

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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