如何在VBA中用Application.WorksheetFunction.Max/Maxifs实现指定Excel公式

一、数组MAX公式的VBA实现 #

对应Excel数组公式：=MAX((B2:B12)*(D2:D12<>"SYSTEM")*(D2:D12<>"VOID"))

实现方式1：直接用Evaluate执行原公式 #

这种方式最简洁，直接将Excel公式转为VBA可执行字符串（注意双引号需转义为两个双引号）：

Dim maxVal As Variant
maxVal = Evaluate("MAX((B2:B12)*(D2:D12<>""SYSTEM"")*(D2:D12<>""VOID""))")

实现方式2：手动构建筛选数组后取最大值 #

如果需要更灵活的逻辑控制，可以手动遍历数据，筛选符合条件的值后再取最大值：

Dim maxVal As Variant
Dim rngB As Range, rngD As Range
Dim arrB As Variant, arrD As Variant
Dim tempArr() As Double
Dim i As Long

' 定义目标区域
Set rngB = ThisWorkbook.ActiveSheet.Range("B2:B12")
Set rngD = ThisWorkbook.ActiveSheet.Range("D2:D12")
' 读取区域为数组，提升运行效率
arrB = rngB.Value
arrD = rngD.Value

' 初始化临时数组
ReDim tempArr(1 To UBound(arrB, 1))

' 遍历数组，筛选符合条件的值
For i = 1 To UBound(arrB, 1)
    If arrD(i, 1) <> "SYSTEM" And arrD(i, 1) <> "VOID" Then
        tempArr(i) = arrB(i, 1)
    Else
        tempArr(i) = -999999 ' 用极小值填充不符合条件的项，不影响MAX计算结果
    End If
Next i

' 计算最大值
maxVal = Application.WorksheetFunction.Max(tempArr)

二、MAXIFS函数的VBA实现 #

对应Excel公式：=MAXIFS(B2:B12,D2:D12,"<>SYSTEM",D2:D12,"<>VOID")

VBA中调用Application.WorksheetFunction.MaxIfs时，参数顺序为：最大值区域 → 条件区域1 → 条件1 → 条件区域2 → 条件2，以此类推。代码示例：

Dim maxifsVal As Variant
Dim rngMax As Range, rngCriteria As Range

Set rngMax = ThisWorkbook.ActiveSheet.Range("B2:B12")
Set rngCriteria = ThisWorkbook.ActiveSheet.Range("D2:D12")

' 同一列的两个条件，重复传入条件区域即可
maxifsVal = Application.WorksheetFunction.MaxIfs(rngMax, rngCriteria, "<>SYSTEM", rngCriteria, "<>VOID")

注意：MaxIfs仅支持Excel 2019及以上版本或Office 365，若需兼容旧版Excel，建议使用数组MAX的实现方式。

内容的提问来源于stack exchange，提问作者lhuiying