☰

查找细胞组计数的最大值

tag-icon • tag-icon microsoft-excel vba
查找细胞组计数的最大值

如何在 VBA 代码中获取这些组的最大值，而不是像下图这样使用函数？

看这里

这是我尝试过的：

With Application.WorksheetFunction
    c = 2
    r = 3
    lRow = Range("B1").End(xlDown).Row
For k = 1 To .Max(Range(Cells(2, 1), Cells(lRow, 1)))
    f = r
    g = 6
    Max = 0

答案1

您可以尝试这些简单的 VBA 代码来查找最高值。

Sub FindMax()

Dim XLastRow As Long
XLastRow = Range("E" & Rows.Count).End(xlUp).Row
Range("E" & lLastRow + 1).Formula = "=Max(E1:E" & lLastRow & ")"

End Sub

或者你也可以尝试一下这个。

Sheets("Sheet1").Range("I12").Value = Application.worksheetfunction.Max(Range("E:E"))

或者

Sheets("Sheet1").Range("I12").Value = Application.worksheetfunction.Max(Range("E1:E4"))

我确实希望这对你有帮助。

相关内容