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