Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как найти номер следующей строки в отфильтрованной таблице Excel / 9 сообщений из 9, страница 1 из 1
11.01.2012, 18:03
    #37609812
George Ru
George Ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как найти номер следующей строки в отфильтрованной таблице Excel
Как найти номер следующей строки в отфильтрованной таблице 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:19
    #37609831
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как найти номер следующей строки в отфильтрованной таблице Excel
> Автор: George Ru
> Как найти номер следующей строки в отфильтрованной таблице Excel?

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

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

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

Да, узкая, нужен номер первой строки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2012, 19:01
    #37609896
George Ru
George Ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как найти номер следующей строки в отфильтрованной таблице Excel
Всё! Сам нашёл:
Код: vbnet
1.
R = Range("A8:A65536").SpecialCells(xlCellTypeVisible).Row
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2012, 19:05
    #37609902
Виктор Меркушов
Виктор Меркушов
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как найти номер следующей строки в отфильтрованной таблице Excel
George Ru, на всякий случай, в версиях Excel от 2007 и выше может быть больше 65535 строк на рабочем листе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.01.2012, 19:12
    #37609915
George Ru
George Ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как найти номер следующей строки в отфильтрованной таблице Excel
Но конечно было бы интересно найти и расширенный способ, когда Виктор Меркушовзадаётся произвольная ячейка на листе и надо найти номер следующей видимой строки под ней.
Хотя вот же он ответ:
на основе частного случая, когда известно что первая строка заголовка 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:15
    #37609920
George Ru
George Ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как найти номер следующей строки в отфильтрованной таблице Excel
Виктор МеркушовGeorge Ru, на всякий случай, в версиях Excel от 2007 и выше может быть больше 65535 строк на рабочем листеТогда можно сделать так:
Код: vbnet
1.
R = Rows(ActiveCell.Row + 1 & ":" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeVisible).Row
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как найти номер следующей строки в отфильтрованной таблице Excel / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 552ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2176129]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 183ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 258ms
total:  552ms
x
x
Закрыть


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