Отображение только тех категорий, где значения выше определенного уровня

Question

У меня есть вывод, где сумма отфильтрована по убыванию от наибольшего значения.

Я просто хочу узнать, есть ли способ отобразить строки со значениями 100 КБ и выше, исключив данные, которые меньше 100 КБ.

Мой пример данных:

Name     |  Amount
Person 1 | 500,000
Person 2 | 400,000
Person 3 | 350,000
Person 4 | 200,000
Person 5 | 150,000
Person 6 | 90,000
Person 7 | 80,000
...

Желаемый результат:

Name     |  Amount
Person 1 | 500,000
Person 2 | 400,000
Person 3 | 350,000
Person 4 | 200,000
Person 5 | 150,000

Я не знаю, как это закодировать или добавить условие.

Answer 1

А как насчет использования Power Query для получения результата?

Перейдите в ДАННЫЕ- Из таблицы/Данные- Фильтр- Закрыть и загрузить:

Answer 2

То, что вы описываете, можно сделать, включив Автофильтр или превратив данные в объект Таблицы Excel, и выбрав соответствующую настройку фильтра, а затем отсортировав данные. Если в список добавлены дополнительные данные, то фильтр и сортировку необходимо повторить.

Если вы хотите, чтобы фильтр и сортировка применялись автоматически, вы можете использовать Power Query для загрузки данных, выполнить фильтрацию и сортировку в Power Query и загрузить результат на другой лист. Если в исходный список добавлены дополнительные данные, вы можете просто обновить Power Query. Для этого не требуется VBA, и рабочая книга не должна быть включена с макросами.

Power Query доступен как бесплатная надстройка для Excel 2010 и 2013 и встроен в ленту «Данные» более поздних версий как «Получить и преобразовать».

Answer 3

Sub FilterAndCopy()

    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next

    xAddress = ActiveWindow.RangeSelection.Address

    Set xRg = Application.InputBox("Select Range To Filter:", "Filter Range", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub

    Set xCRg = Application.InputBox("Select Criteria range:", "Filter Range", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub

    Set xSRg = Application.InputBox("Select Output Range:", "Filter Range", "", , , , , 8)

    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit

End Sub

Как это работает:

• Копировать&Вставитьэтот код как стандартный модуль.
• Запишите критерии (для фильтрации данных) в ячейку (как показано на снимке экрана).

Примечание:

При выбореКритериивыберите Оба, Заголовок столбца (на снимке экрана этоДанные) и ячейка ниже (>100000).

• БЕГАТЬМакрос.
• ОтвечатьПоле вводаи закончить сХорошо.

Answer 4

Другой простой подход, в дополнение к уже упомянутым, заключается в использовании быстрой формулы в вспомогательном столбце. Это не требует никакого кода или установки дополнительных плагинов. Поместите следующую формулу в ячейку C2, чтобы изолировать значения свыше 100 тыс., затем дважды щелкните по маркеру в правом нижнем углу ячейки, чтобы автоматически заполнить остальную часть столбца.

=IF(B2>100000,"Yes","No")

Затем вы можете воспользоваться фильтром Excel и снять флажок «Нет» в столбце C, оставив только те данные, которые вам нужны!