返回计算的值满足VBA中的条件的范围内的最大值

Function GetMaxValueInRange(rangeToCheck As Range, condition As String) As Variant
    Dim maxValue As Variant
    maxValue = rangeToCheck.Cells(1).Value ' 初始化最大值为范围内的第一个值
    
    For Each cell In rangeToCheck
        If Evaluate(cell.Value & condition) Then ' 判断当前值是否满足条件
            If cell.Value > maxValue Then ' 如果当前值大于最大值，则更新最大值
                maxValue = cell.Value
            End If
        End If
    Next cell
    
    GetMaxValueInRange = maxValue ' 返回最大值
End Function

Sub Test()
    Dim rangeToCheck As Range
    Dim condition As String
    Dim maxValue As Variant
    
    Set rangeToCheck = Range("A1:A10") ' 范围为A1到A10
    condition = ">5" ' 条件为大于5
    
    maxValue = GetMaxValueInRange(rangeToCheck, condition) ' 调用函数获取最大值
    MsgBox "满足条件的范围内的最大值为: " & maxValue
End Sub