Как найти и получить значение первой видимой ячейки после применения фильтра в Excel?
Иногда возникает необходимость получить значение первой видимой ячейки в отфильтрованном списке. Как этого добиться? В этой статье представлены эффективные методы для решения данной задачи.
Найдите и получите значение первой видимой ячейки после фильтрации с помощью формул массива
Найдите и получите значение первой видимой ячейки после фильтрации с помощью VBA
Найдите и получите значение первой видимой ячейки после фильтрации с помощью формул массива
Вы можете использовать приведённую ниже формулу массива, чтобы получить значение первой видимой ячейки в отфильтрованном списке. Выполните следующие действия.
1. Выберите пустую ячейку для размещения значения первой видимой ячейки, введите в неё приведённую ниже формулу и нажмите клавиши Ctrl+Shift+Enter одновременно.
=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))
Примечание: В формуле C2:C19 — это отфильтрованный список, из которого нужно получить значение первой видимой ячейки, а C2 — первая ячейка этого списка. При необходимости вы можете изменить эти ссылки.
Теперь в выбранной ячейке появится значение первой видимой ячейки из отфильтрованного списка — как показано на скриншоте выше.
Найдите и получите значение первой видимой ячейки после фильтрации с помощью VBA
Помимо использования приведённой выше формулы массива для получения значения первой видимой ячейки в отфильтрованном списке, вы можете выполнить следующий сценарий VBA, чтобы быстро получить первую видимую ячейку отфильтрованного списка. Выполните следующие действия.
1. Выберите пустую ячейку, например E8, чтобы разместить в ней значение первой видимой ячейки отфильтрованного списка.
2. Нажмите клавиши Alt+F11 одновременно, чтобы открыть окно Microsoft Visual Basic для приложений.
3. В окне Microsoft Visual Basic для приложений выберите Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код VBA в окно модуля.
Код VBA: поиск и получение значения первой видимой ячейки после фильтрации в Excel
Sub FirstVisibleCell()
With Worksheets("Sheet1").AutoFilter.Range
ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
End With
End SubПримечание: В коде Sheet1 — это имя листа с отфильтрованным списком, а «C» — имя столбца, из которого нужно получить первое видимое значение. При необходимости вы можете изменить эти параметры.
4. Нажмите клавишу F5, чтобы выполнить код. После этого значение первой видимой ячейки отфильтрованного списка из столбца C будет немедленно помещено в ячейку E8.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек