筛选已有筛选结果中的最大值

李红艳

可以这样操作不，筛选已有筛选结果中的最大值 已筛选结果中的最大值.rar (28.25 KB, 下载次数: 8)

2022-12-30 08:58 上传

点击文件名下载附件

，请看附件

ykcbf1100

这个表怎么那么熟悉呢，前二天刚见过吧。

你直接筛选出最大值不就完了，还分二步。

3190496160

Sub demo()
    Dim x, lastrow
    Dim d As Object
    Set d = CreateObject("scripting.dictionary")
    ActiveSheet.AutoFilterMode = fasle
    rr = Array([ar3], [ar4], [ar5])
    For i = 0 To UBound(rr)
        d(Trim(rr(i))) = ""
    Next i
    lastrow = Cells(Rows.Count, "CL").End(xlUp).Row
    ReDim brr(1 To lastrow - 12, 1 To 1)
    For x = 13 To lastrow
        If Not d.exists(Trim(Cells(x, "cl"))) Then
            n = n + 1
            brr(n, 1) = Cells(x, "cl")
        End If
    Next x
    zd = Application.Max(Application.Index(brr, 0, 1))
    ActiveSheet.Range("$A$13:$CM$" & lastrow).AutoFilter Field:=90, Criteria1:=zd, Operator:=xlAnd
End Sub

3190496160

已筛选结果中的最大值.rar (30.25 KB, 下载次数: 4)

2022-12-30 10:48 上传

点击文件名下载附件

3190496160

ykcbf1100 发表于 2022-12-30 09:18
这个表怎么那么熟悉呢，前二天刚见过吧。

你直接筛选出最大值不就完了，还分二步。

不知道是在折腾啥

ykcbf1100

3190496160 发表于 2022-12-30 10:49
不知道是在折腾啥

还是你有耐心。