VBA Max() 的单元格地址

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)))