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