Excel, последнея не пустая ячейка в столбце

alexx · 01 ноя 2005, 22:28

У меня Range "А1:A1000"
Как узнать сабж?

pashulka · 02 ноя 2005, 03:31

iLastCell = Workbooks("Test.xls").Worksheets("Qwerty").Range("A65536").End(xlUp).Address

Примечание :
Вместо имени рабочей книги, листа можно использовать индекс/номер или кодовое имя. Если подобную ячейку требуется определить в активном рабочем листе или этот код расположен в модуле листа для которого определяется эта ячейка, то в таких случаях, ссылки на рабочую книгу и лист излишни.

Игорь Акопян · 02 ноя 2005, 10:15

Ещё было свойство UsedRange...

alexx · 02 ноя 2005, 10:33

спасибо!

pashulka · 02 ноя 2005, 10:40

Свойство .UsedRange и сейчас есть, но в данном конкретном случае, его использование может привести к получению некорректных результатов. Например, заполните диапазон "A1:A100" в новом рабочем листе, затем выделите ячейку "A700" и измените шрифт, кегль и т.п. после чего посмотрите на возвращаемые результаты ...

Игорь Акопян · 02 ноя 2005, 13:14

Виноват, проглядел в заголовке ключевой момент "непустая"....
pashulka, а приведённый вами пример отработает иначе? Т.е. метод End(xlUp) проходит только по данным?

pashulka · 02 ноя 2005, 13:38

Игорь Акопян, Истинно так, только данные

anval · 23 ноя 2005, 13:50

Немного видоизменю вопрос. Есть Range("A1:Z1000"). Как определить номер последней строки с непустой ячейкой для этой области?
Спасибо.

Avsha · 23 ноя 2005, 14:39

Попробуйте такой вариант...

Код: Выделить всё

Dim r1 As Range
Set r1 = Range("A1:Z100")

LastRow = 0
For i = r1.Rows.Count To 1 Step -1
    For j = 1 To r1.Columns.Count
        If r1.Cells(i, j).Value <> "" Then LastRow = i: GoTo 1
    Next j
Next i
1:
MsgBox LastRow

Игорь Акопян · 23 ноя 2005, 14:46

дык аналогично, только не Address в конце а Row
хм... только эта тема аналогична нажатию Ctrl-Up на клаве и отрабатывает по столбцу... Как вариант можно проделать эту процедуру по всем колонкам и выбрать максимальное значение.