Как найти последнюю пустую ячейку MS Excel VBA встроенным методом?

Question

[Александр]

Хочу скрыть ячейки где формула вывела пустую строку.
Пробовал так(и парой других методов Excel)

Dim Row
Row = Sheet1.Range(Cells(8, 2), Cells(500, 2)).Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Sheet1.Range(Cells(Row, 2), Cells(500, 2)).EntireRow.Hidden = True

Возвращают 500 так как там есть формулы которые и вывели мне пустую строку

Знаю что можно через For+If перебрать(как и сделаю если не будет альтернатив):

Dim Row
For i=500 To 8 Step -1
    If Sheet1.Cells(i,2)<>"" Then
        Row = i
        Exit For
    End If
Next i
Sheet1.Range(Cells(Row, 2), Cells(500, 2)).EntireRow.Hidden = True

Ищу какой нибудь встроенный метод который работает с рассчитанными значениями при поиске пустых ячеек.

Answer 1

[idShura]

Например вот так можно:
Range("A1:A10000").AutoFilter 1, "<>", , , False

Метод Range.AutoFilter

Comments

[Пычев Анатолий]

Дополню.
после автофильтра можно найти последнюю ячейку как
cells(rows.count,1).end(xlUp)

[Александр]

Решение отличное, работает похоже только для строк(фильтр же)
Хотел еще скрыть пустые колнки, но не получилось, а строки скрыло

[h8nor]

Пычев Анатолий, метод .end работает с объектом cells, но не применим к методу .UsedRange (на англоязычных форумах одни и те же вопросы).

Answer 2

[akelsey]

Я когда еще писал макросы на VBA более или менее профессионально, пользовался записью макросов,
нажимал комбинацию клавишь, как сейчас по-моему нажал Alt+End получил такой код:
ActiveCell.SpecialCells(xlLastCell).Select
Надеюсь поможет.
PS
Можно погуглить по xlLastCell VBA Excel и наверное найти кучу более подходящих примеров.

Comments

[Александр]

Выбирает неверно - там где ячейки пустые(конец диапазона), а надо там где значение по формуле = ""

К сожалению xlLastCell не совсем то - оно ищет пустые ячейки, но в моих ячейках есть формула, которая вывела пустое значение, которое нужно скрыть.

[akelsey]

Александр, тогда думаю только перебором - внутри этого диапазона.

[h8nor]

1. Собрать номера строк, которые необходимо скрыть
   
2. Преобразовать в диапазон через самописную функцию
   
3. Скрыть Range("2:2,4:4").EntireRow.Hidden = True