Question

我写了一个VBA，它给我输出1个单元格。

我希望能够检查它下面3个单元格的最小值 - 并在更多代码中查看最小单元格的地址。

例如： Rng 2是Range("AA9")。

我希望代码检查AA10（200），AA11（150），AA12（300） - 比较这些值并告诉我三者中的最小值。

在这种情况下，答案应为Range("AA11")

Answer 1

Function minCellBelow(ByRef rng2 As Range, ByVal count As Long) As Range
    Dim rng As Range: Set rng = rng2.Offset(1).Resize(count)
    With Application.WorksheetFunction
        Set minCellBelow = rng2.Offset(.Match(.Min(rng), rng, 0))
    End With
End Function

Answer 2

您可以使用下面的功能（将其放入vba模块）。然后输入excel = Maxadress（您的范围）

Function Maxadress(rng As Range) As String
    Maxadress = WorksheetFunction.Index(rng, WorksheetFunction.Match(WorksheetFunction.max(rng), rng, 0)).Address

End Function

如何选择所选单元格下方的范围？

2 个答案: