請教一下VBA用EXCEL的max函數後，找得該欄最大值，能否順道找出該值的所在列？

MaverickRay wrote:
因為有時我會在同欄位...(恕刪)

Sub Main()
MsgBox FindMAX_Row(2, 1000) '查找範圍C2:C1000
MsgBox FindMAX_Row(2, 200) '查找範圍C2:C200
End Sub

Function FindMAX_Row(ByVal Row_Start As Integer, ByVal Row_End As Integer)
Dim dataArea As Range
Set dataArea = Range("C" & Row_Start & ":C" & Row_End)
Set cell = dataArea.Find(WorksheetFunction.Max(dataArea))
FindMAX_Row = cell.Address
End Function

小小尉 wrote:
max函數應該是沒有(恕刪)

您好，我想請教一下，我複製您的程序碼，先直接執行了下，結果出現如附圖的中斷..

恩...沒有設定物件...是....???我先提問一下，有時間時我也會查查看..先謝謝您的幫忙..

OK我找到問題所在了，原來是我自個把cell這變數宣告成as range

使得物件有誤。

不過我還在想這樣的做法我要怎麼來改造以便我的需求，在此再次感謝您提供的編碼^^

祝您順心如意。