ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как найти номер следующей строки в отфильтрованной таблице Excel
9 сообщений из 9, страница 1 из 1
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609812
George Ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George Ru
Гость
Как найти номер следующей строки в отфильтрованной таблице Excel?

Row + 1 не подходит, т.к. таблица отфильтрована.

Есть функции такого плана:
Код: vbnet
1.
2.
3.
R = Range("A7").End(xlDown).Row
' или
R = Range("A7").SpecialCells(xlCellTypeLastCell).Row

Они тоже не подходят, т.к. выводят номер последней строки, а нужна следующая.
Пока что нашёл самый простой способ - нажать клавишу вниз:
Код: vbnet
1.
2.
3.
Range("A7").Select
SendKeys "{DOWN}", True
R = ActiveCell.Row

Но хочется обойтись без мультиков.
...
Рейтинг: 0 / 0
11.01.2012, 18:03
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609831
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: George Ru
> Как найти номер следующей строки в отфильтрованной таблице Excel?

Автофильтр возвращает Range, стостоящий из несвязанных областей(Areas). Перебор этой коллекции и даст доступ к
отфильтрованным данным

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
11.01.2012, 18:19
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609835
George Ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George Ru
Гость
Игорь Горбонос,

Ну вот есть у меня фиксированная ячейка Range("A7"), в которой заголовок таблицы.
Как от неё найти следующую строку?
...
Рейтинг: 0 / 0
11.01.2012, 18:23
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609842
Виктор Меркушов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Виктор Меркушов
Гость
George Ru, уточните, пожалуйста, задача узкая - "найти номер первой строки с данными в отфильтрованной таблице" или шире, вроде "есть произвольная ячейка на листе, надо найти номер следующей видимой строки под ней" ?
...
Рейтинг: 0 / 0
11.01.2012, 18:29
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609844
George Ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George Ru
Гость
Виктор Меркушов,

Да, узкая, нужен номер первой строки.
...
Рейтинг: 0 / 0
11.01.2012, 18:31
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609896
George Ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George Ru
Гость
Всё! Сам нашёл:
Код: vbnet
1.
R = Range("A8:A65536").SpecialCells(xlCellTypeVisible).Row
...
Рейтинг: 0 / 0
11.01.2012, 19:01
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609902
Виктор Меркушов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Виктор Меркушов
Гость
George Ru, на всякий случай, в версиях Excel от 2007 и выше может быть больше 65535 строк на рабочем листе
...
Рейтинг: 0 / 0
11.01.2012, 19:05
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609915
George Ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George Ru
Гость
Но конечно было бы интересно найти и расширенный способ, когда Виктор Меркушовзадаётся произвольная ячейка на листе и надо найти номер следующей видимой строки под ней.
Хотя вот же он ответ:
на основе частного случая, когда известно что первая строка заголовка Range("A7"), следующая видимая строка будет:
Код: vbnet
1.
R = Range("A8:A65536").SpecialCells(xlCellTypeVisible).Row

Если же исходить от текущей ячейки, то:
Код: vbnet
1.
R = Range("A" & ActiveCell.Row + 1 & ":A65536").SpecialCells(xlCellTypeVisible).Row


Или же вот так будет покрасивее:
Код: vbnet
1.
2.
R = Rows("8:65536").SpecialCells(xlCellTypeVisible).Row
R = Rows(ActiveCell.Row + 1 & ":65536").SpecialCells(xlCellTypeVisible).Row
...
Рейтинг: 0 / 0
11.01.2012, 19:12
| Ответить | Цитировать | Написать  
Как найти номер следующей строки в отфильтрованной таблице Excel
    #37609920
George Ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George Ru
Гость
Виктор МеркушовGeorge Ru, на всякий случай, в версиях Excel от 2007 и выше может быть больше 65535 строк на рабочем листеТогда можно сделать так:
Код: vbnet
1.
R = Rows(ActiveCell.Row + 1 & ":" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible).Row
...
Рейтинг: 0 / 0
11.01.2012, 19:15
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как найти номер следующей строки в отфильтрованной таблице Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37609842&tid=2176129]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 144ms
get topic data:
 7ms
get forum data:
 1ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 217ms
total:  420ms
созд. / загр.: 420ms
x
x
Закрыть


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