Конференция VBStreets

**kminas** » 25.04.2006 (Вт) 21:31

К сожалению, пока самостоятельно не получается. Имеется таблица Columns A-E. Заполняю её макросами. После выполнения очередного макроса, необходимо находить последнюю непустую ячейку в этом диапазоне и ставить курсор в столбец "А" ниже нее на 2 строки.

**smaharbA** » 25.04.2006 (Вт) 22:47

thisworkbook.worksheets(1).usedrange

**kminas** » 25.04.2006 (Вт) 23:19

Спасибо, буду пробовать.

**Alter** » 26.04.2006 (Ср) 11:01

Cells(Cells.SpecialCells(xlCellTypeLastCell).Row + 1 + 2, 1).Select

**kminas** » 26.04.2006 (Ср) 20:16

Спасибо

**Annushka** » 27.04.2006 (Чт) 12:58

Alter писал(а):Cells(Cells.SpecialCells(xlCellTypeLastCell).Row

К сожалению, возвращает не последнюю заполненную строчку, а последнюю строчку, с которой что-то делали (форматирование, границы и т.д.).
Заодно и вопрос. Не могу найти функцию, которая возвращала бы последнюю заполненную строчку, невзирая на форматирование, границы и т.д.) Такая имеется?

**GSerg** » 27.04.2006 (Чт) 13:03

Имеется.
Вопрос в том, что разуметь под заполненной областью и откуда её исчислять.

**uhm** » 27.04.2006 (Чт) 13:04

Если в таблице нет пустых ячеек, то может помочь что-то вроде

Код: Выделить всё: Range("A1").End(xlDown).End(xlToRight).Select

А так - наверное, макросом только.

**GSerg** » 27.04.2006 (Чт) 13:09

Нет, это плохо...
cells(1,1).currentregion

**$€rg** » 27.04.2006 (Чт) 13:34

cells(1,1).CurrentRegion.End(xlDown).EntireRow
типа итого чтоли

**uhm** » 27.04.2006 (Чт) 13:44

О, не знал такую штуку

**GSerg** » 27.04.2006 (Чт) 13:53

Нет, и это плохо...
cells(1,1).CurrentRegion.rows(cells(1,1).CurrentRegion.rows.count).entirerow

**inq** » 27.04.2006 (Чт) 13:59

А если просто
ActiveCell.SpecialCells(xlCellTypeConstants).Select

**GSerg** » 27.04.2006 (Чт) 14:04

А это сюда, простите, каким боком?

**$€rg** » 27.04.2006 (Чт) 14:06

GSerg
гм, стесняюсь спросить, типа почему.., чтоб понимать..

**inq** » 27.04.2006 (Чт) 14:09

GSerg
выбираем все заполненные констатами ячейки

не то?

**GSerg** » 27.04.2006 (Чт) 14:12

inq
Прочитать топик от начала до конца может стоит тебе?..

**inq** » 27.04.2006 (Чт) 14:22

GSerg

Annushka писал(а):[Заодно и вопрос. Не могу найти функцию, которая возвращала бы последнюю заполненную строчку, невзирая на форматирование, границы и т.д.) Такая имеется?

Из полученного range и узнаем.

**GSerg** » 27.04.2006 (Чт) 14:25

То есть, иметь в последней строке формулы непозволительно?..

**Annushka** » 27.04.2006 (Чт) 14:26

inq, ключевое слово "ЗАПОЛНЕННУЮ"

**inq** » 27.04.2006 (Чт) 14:29

Ну да, минус

Ну так у твоего варианта

Код: Выделить всё: cells(1,1).CurrentRegion.rows(cells(1,1).CurrentRegion.rows.count).entirerow

не все безупречно, если в таблице есть "пробелы"

Annushka
понятно )
тогда да...

**GSerg** » 27.04.2006 (Чт) 14:30

О чём и было сказано гораздо выше...

GSerg писал(а):Вопрос в том, что разуметь под заполненной областью и откуда её исчислять.

**Annushka** » 27.04.2006 (Чт) 14:37

GSerg, произвольно заполненная область. Интересует последняя непустая строка.
Объясню, откуда задача. Делала шаблон для заполнения (шапка, таблица), до 1000 строки отформатировала и убрала границы. Теперь нужно обработать достаточно много таких файлов, хожу по заполненным таблицам и чего-то там делаю. Но ходит теперь в каждом файле по всем 1000 строкам, а хотелось бы до последней непустой.

**GSerg** » 27.04.2006 (Чт) 14:41

И не известна ни одна ячейка, которая всегда принадлежит заполненной области (первая, например)?

**Annushka** » 27.04.2006 (Чт) 15:00

Известно, конечно, но есть пробельные строки внутри нужной области

**alibek** » 27.04.2006 (Чт) 15:16

Опиши словами, как ты определяешь, что данная область - нужная?

**Annushka** » 27.04.2006 (Чт) 15:22

С 15 строки и до последней заполненной

**alibek** » 27.04.2006 (Чт) 15:24

А последняя заполненная -- это какая?
Та, что перед первой пустой строкой? Или та, после которой нет никаких данных?

**Annushka** » 27.04.2006 (Чт) 15:31

Та, после которой нет никаких данных

**Nicky** » 27.04.2006 (Чт) 15:37

Я в свое время делал Cells(65536, lCol).End(xlUp).Select
Минус, что lCol приходилось перебирать

Конференция VBStreets

Поиск последней ячейки в Excel

Поиск последней ячейки в Excel

Кто сейчас на конференции