检查整个列中是否存在大于 x 的值并返回单元格

Question

我有一张这样的桌子：

Values
1000
1000
3000
2000
4000

我需要检查整列中大于给定值的值（例如 3000）并返回条件为 True 的所有单元格。

Answer 1

包含列中的数据A，运行这个简短的宏：

Sub dural()
    Dim N As Long, K As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    K = 1
    For i = 2 To N
        If Cells(i, "A").Value > 3000 Then
            Cells(K, 2).Value = Cells(i, "A").Address(0, 0)
            Cells(K, 3).Value = Cells(i, "A").Value
            K = K + 1
        End If
    Next i
End Sub

生成超出的单元格列表3000及其价值：

如果您只需要值，则可以使用自动筛选：