ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пройтись по не пустым cell'ам в Excel
5 сообщений из 5, страница 1 из 1
Пройтись по не пустым cell'ам в Excel
    #35064963
Guest9874343
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest9874343
Гость
Hi,
У меня есть три колонки на странице. Мне нужно пройтись по всем непустым записям.
В первой колонке может быть 10 записей, во второй 20, в третьей 15. Проблема в том, что между записями могут быть пропуски (пустые строчки). Сейчас я прохожу в цикле абсолютно по всем клеткам - ActiveWorkbook.Names("myName").RefersToRange - очень долго.
Видел функцию range.Columns.End(xlDown).address, но она возвращает последнюю запись без учета пустых строк.
...
Рейтинг: 0 / 0
16.01.2008, 12:06
| Ответить | Цитировать | Написать  
Пройтись по не пустым cell'ам в Excel
    #35065090
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
"Guest9874343" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5159139@sql.ru...
> Автор: Guest9874343
> Hi,
> У меня есть три колонки на странице. Мне нужно пройтись по всем
> непустым записям.
> В первой колонке может быть 10 записей, во второй 20, в третьей 15.
> Проблема в том, что между записями могут быть пропуски (пустые строчки).
> Сейчас я прохожу в цикле абсолютно по всем клеткам -
> ActiveWorkbook.Names("myName").RefersToRange - очень долго.
> Видел функцию range.Columns.End(xlDown).address, но она возвращает
> последнюю запись без учета пустых строк.
> Тема Ответить Сообщение
>
поставь автофильтр по непустым занчениям и он вернет тебе Range, по которому
и ходи

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.01.2008, 12:44
| Ответить | Цитировать | Написать  
Пройтись по не пустым cell'ам в Excel
    #35065328
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Вот последняя строка на листе. Найдите ее и сузите поиск.
...
Рейтинг: 0 / 0
16.01.2008, 13:37
| Ответить | Цитировать | Написать  
Пройтись по не пустым cell'ам в Excel
    #35066108
Guest9874343
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Guest9874343
Гость
big-duke спасибо =)
...
Рейтинг: 0 / 0
16.01.2008, 16:54
| Ответить | Цитировать | Написать  
Пройтись по не пустым cell'ам в Excel
    #35066713
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
Dim iCel As Range, msg As String
For Each iCel In Columns("A:C").SpecialCells( 8 ,  23 )
 msg = msg & iCel.Address & Chr( 10 )
Next iCel
MsgBox msg
...
Рейтинг: 0 / 0
16.01.2008, 19:57
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Пройтись по не пустым cell'ам в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=204&tid=2162809]:
 0ms
get settings:
 11ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 2ms
others: 232ms
total:  400ms
созд. / загр.: 400ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]