VBA宏:获取与一组条件匹配的最大单元格值

Sub GetMaxValue()
    Dim rng As Range
    Dim cell As Range
    Dim maxValue As Double
    
    ' 定义要检查的范围
    Set rng = Range("A1:A10")
    
    ' 初始化最大值为范围中的第一个单元格值
    maxValue = rng.Cells(1).Value
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 判断单元格值是否满足条件
        If IsNumeric(cell.Value) And cell.Value > 10 Then
            ' 更新最大值
            If cell.Value > maxValue Then
                maxValue = cell.Value
            End If
        End If
    Next cell
    
    ' 输出最大值
    MsgBox "最大值为：" & maxValue
End Sub