条件筛选VBA

nnsea

Sub 条件筛选()
For Each rng In Range([b2], Cells(Application.CountA([a:a]), 2))
    If rng > 90 Then
        k = k + 1
        If k = 1 Then
            Set rn = rng
        Else
            Set rn = Union(rn, rng)
            aa = rn.Address
        End If
    End If
Next
For Each rngs In rn
    n = n + 1
    Cells(n + 1, "d") = Cells(rngs.Row, "a")
    Cells(n + 1, "e") = rngs
Next
End Sub