如何用VBA编写代码，求满足条件的最大值、最小值

ycxzr

求教大侠，有一个EXCEL表，请教用VBA编写代码，求满足条件的最大值、最小值。问题要求写在表格里，打开表格可见。万分感谢。
有附件。
身在武汉，想学点知识度过难捱的日子。祝各位健康平安！

liulang0808

Sub test()
    arr = [a1].CurrentRegion
    mx = WorksheetFunction.Min(Columns(1))
    mn = WorksheetFunction.Max(Columns(1))
    For j = 1 To UBound(arr)
        If arr(j, 3) = arr(1, 4) And arr(j, 2) > 0 Then
            If mx < arr(j, 1) Then mx = arr(j, 1)
            If mn > arr(j, 1) Then mn = arr(j, 1)
        End If
    Next j
    MsgBox "符合条件的最大值为：" & mx & Chr(10) & "符合条件的最小值为：" & mn
End Sub


其他雷同，供参考