VBA單元格地址（）

Question

我有類似

sdMax = WorksheetFunction.Max(Range("D2", Cells(emptyRow, 4))) 

找到列d的最大數量

如何找到這個最大數量的位置？

Answer 1

定義爲VBA用戶定義的函數，返回地址作爲字符串

Function AddressOfMax(rng As Range) As String 
    AddressOfMax = WorksheetFunction.Index(rng, WorksheetFunction.Match(WorksheetFunction.Max(rng), rng, 0)).Address 

End Function 

或返回的範圍參考

Function AddressOfMax(rng As Range) As Range 
    Set AddressOfMax = rng.Cells(WorksheetFunction.Match(WorksheetFunction.Max(rng), rng, 0)) 

End Function 

這些功能假定RNG是一個列寬

這些功能可以用於紙張
例如

=AddressOfMax(C:C) 

或VBA
如

Dim r As Range 
Set r = AddressOfMax(Range("D2", Cells(emptyRow, 4)))