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

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

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

Я просто хочу узнать, есть ли способ отобразить строки со значениями 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

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

решение1

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

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

введите описание изображения здесь

решение2

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

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

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

решение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).

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

решение4

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

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

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

введите описание изображения здесь

Связанный контент