Проверьте весь столбец на наличие значений больше x и верните ячейки

Question

У меня есть такая таблица:

Values
1000
1000
3000
2000
4000

Мне нужно проверить весь столбец для значений больше, чем данный (например, 3000) и вернуть все ячейки, где условие истинно.

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 и их значение:

и если вам нужны только значения, вы можете использовать автофильтр: