找出最大值對應的row, column - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 找出最大值對應的row, column

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

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

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 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

複製代碼

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

靜思自在 : 屋寬不如心寬。

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