Как найти и получить значение первой видимой ячейки после фильтрации в 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. Нажмите другой + 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.