Упростить

[SAS888]

Пусть есть таблица Excel. И пусть требуется определить последнюю заполненную строку в столбце "A". Но... в этом листе есть скрытые строки. Сразу нужно оговорить, что UsedRange не подойдет из-за того, что ячейки таблицы содержат прорисованные границы. Так что пустая ячейка входит в UsedRange.
Сейчас я просматриваю все используемые строки, запоминаю номера скрытых строк, затем делаю видимыми все строки листа, определяю Cells(Rows.Count, 1).End(xlUp).Row, затем снова скрываю те строки, которые должны быть скрыты.
Все работает, но какой-то уж "огород" получается. Возможно ли как-то упростить эти действия?

[mchip]

А если использовать функцию промежуточные итоги?
Она может считать как со скрытыми значениями так и без..

[Aent]

SAS888, а как вам вариант посчитать массивную формулу ?

={МАКС(ЕСЛИ(ЕПУСТО(A1:A65536);0;СТРОКА(A1:A65536)))}

[EducatedFool]

Не так уж и много кода в варианте с отображением и последующим скрытием строк...

Sub test()
    Dim ra As Range, ra2 As Range: Set ra = [a:a]
    Set ra2 = ra.SpecialCells(xlCellTypeVisible): ra.EntireRow.Hidden = False
    Debug.Print "Последняя ячейка: " & ra(ra.Cells.Count).End(xlUp).Address
    ra.EntireRow.Hidden = True: ra2.EntireRow.Hidden = False
End Sub

Можно и так попробовать:

Sub test2()
    Dim ra As Range: Set ra = [a:a]
    Debug.Print "Последняя ячейка: " & ra.SpecialCells(2)(ra.SpecialCells(2).Cells.Count).Address
    ' SpecialCells(2) = SpecialCells (xlCellTypeConstants)
End Sub

[SAS888]

mcip, Aent
Через формулы Application.WorksheetFunction, конечно, чуть быстрее (т.к. это реализуется на "C"), чем организовывать цикл в VB, но это все равно цикл, который использовать не хочется.
EducatedFool
Подобным образом я сейчас и решаю данную задачу. Но хотелось уточнить (узнать), нет ли метода, подобного End, который бы не зависел от "видимости" строк?