是否有一个 excel/VBA 公式来查找长度不同的一系列单元格的最小/最大/平均值等？

Question

我想知道是否有一种方法可以找到电子表格中一系列单元格的最小/最大/平均值等，当我不知道范围的结尾在哪里时（我已经知道一种方法但是想知道是否还有另一个）？

在我的宏中，我目前使用以下内容：

Raw1.Range("H4").Value = Application.WorksheetFunction.Max(Range(Sheets("Raw").Range("A3"), Sheets("Raw").Range("A3").End(xlDown)))

我想使用不同的，因为这种方式每次运行代码时都会给出“一个值”......我希望每次 A3 的值发生变化时 H4 的值都会改变，而不必运行宏。 .所以更像是一个公式

我在想像下面这样的事情：

Raw1.Range("H3").Value = "= Min((A3:A & Range.End(xlDown).Row))"

我尝试了各种方法但无法使其正常工作？

有谁知道这是否可能？

Answer 1

由于您不想主动运行宏，因此以下建议在Worksheet_Change()事件过程中编码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
        If Target.Cells.Count > 1 Then Exit Sub
        Dim lastCell As Long, pos As Long, formulaCell As Range
        Set formulaCell = Range("H4")
        lastCell = Cells(Rows.Count, 1).End(xlUp).Row
        pos = InStr(1, formulaCell.Formula, "(") - 1
        formulaCell.Formula = Left(formulaCell.Formula, pos) & "(A2:A" & lastCell & ")"
    End If
End Sub

它以您的 OP 中的示例为前提，因为有问题的单元格包含一个简单的公式（即)引用的单元格的地址位于现有公式的第一个( ，除了)，每当检测到 A 列发生变化时，事件过程将更新的范围参考。