Как найти номер последного непустого строка?

[Simbad]

Здравствуйте уважаемые эксперты. Подскажите, пожалуйста, как определить номер последнего непустого строка с помощью VBAExcel. Имеете ввиду что перед последний непустой строк может быть имеется пустой строк. Я использовал этот метод:

Set rng=worksheets(1).range(cells(1,1), cells(1,1).SpecialCells(xlLastCell))
lastRow=rng.Rows.Count

но этот метод не всегда правильно работает. Может быть, я совсем неправильно работаю. Помогите пожалуйста!

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Вы не знали? Почитайте правила раздела...
Модератор

[doober]

   
 Set ra =worksheets(1). Range(("a:a"), Range("a" & Rows.Count).End(xlUp))
    
Address = ra.SpecialCells(xlCellTypeLastCell).AddressLocal


lastRow = ra.SpecialCells(xlCellTypeLastCell).row
-----------------------------------------------------------------

lastRow = worksheets(1).UsedRange.Rows.Count + worksheets(1).UsedRange.Rows.Row - 1

[EducatedFool]

http://www.sql.ru/forum/actualthread...=22&tid=286860
http://www.sql.ru/forum/actualthread...385309#3662789
http://www.sql.ru/forum/actualthread...463148#4535898