|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.08.2009, 06:05 | #1 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Упростить
Пусть есть таблица Excel. И пусть требуется определить последнюю заполненную строку в столбце "A". Но... в этом листе есть скрытые строки. Сразу нужно оговорить, что UsedRange не подойдет из-за того, что ячейки таблицы содержат прорисованные границы. Так что пустая ячейка входит в UsedRange.
Сейчас я просматриваю все используемые строки, запоминаю номера скрытых строк, затем делаю видимыми все строки листа, определяю Cells(Rows.Count, 1).End(xlUp).Row, затем снова скрываю те строки, которые должны быть скрыты. Все работает, но какой-то уж "огород" получается. Возможно ли как-то упростить эти действия?
Чем шире угол зрения, тем он тупее.
|
25.08.2009, 09:33 | #2 |
Форумчанин
Регистрация: 24.06.2008
Сообщений: 516
|
А если использовать функцию промежуточные итоги?
Она может считать как со скрытыми значениями так и без..
Можно сделать все! Было бы время, да деньги...
|
25.08.2009, 09:51 | #3 |
Форумчанин
Регистрация: 17.07.2009
Сообщений: 519
|
SAS888, а как вам вариант посчитать массивную формулу ?
Код:
|
25.08.2009, 10:21 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Не так уж и много кода в варианте с отображением и последующим скрытием строк...
Код:
Код:
|
25.08.2009, 12:07 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
mcip, Aent
Через формулы Application.WorksheetFunction, конечно, чуть быстрее (т.к. это реализуется на "C"), чем организовывать цикл в VB, но это все равно цикл, который использовать не хочется. EducatedFool Подобным образом я сейчас и решаю данную задачу. Но хотелось уточнить (узнать), нет ли метода, подобного End, который бы не зависел от "видимости" строк?
Чем шире угол зрения, тем он тупее.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Можно упростить этот макрос? | valerij | Microsoft Office Excel | 84 | 14.09.2014 16:17 |
Упростить вырожение | KinderX | Microsoft Office Excel | 5 | 30.06.2009 18:30 |
помогите упростить простой макрос | frantic150 | Microsoft Office Excel | 2 | 23.06.2009 04:55 |
Помогите упростить код | Ralf_ru | Помощь студентам | 7 | 01.04.2009 17:17 |
Упростить формулу | Stif-rva | Microsoft Office Excel | 7 | 09.03.2009 11:03 |