Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перейти на последнюю строку листа... как? / 8 сообщений из 8, страница 1 из 1
22.05.2012, 10:40
    #37805257
Недочайник
Недочайник
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
Задача: С текущего листа с текущей ячейки вырезать всю строку и вставить её на Лист2 в конец строки (после последней сколько-нибудь заполненной строки, строки с данными)

Код: vbnet
1.
2.
3.
4.
5.
6.
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Cut
    Sheets("Лист2").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    ActiveSheet.Paste




ПОчему то
ActiveCell.SpecialCells(xlLastCell).Select уплясывает на Лист2 на 71 строку хотя там всё пусто.

Как найти последнюю заполненную строку? Может есть способ попроще?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2012, 11:12
    #37805330
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
Недочайник...Как найти последнюю заполненную строку?
См. здесь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2012, 21:34
    #37806754
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
НедочайникПОчему то
ActiveCell.SpecialCells(xlLastCell).Select уплясывает на Лист2 на 71 строку хотя там всё пусто.
Суслика (в данном случае - пробел, например) видишь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2012, 04:34
    #37806993
Недочайник
Недочайник
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
AkinaНедочайникПОчему то
ActiveCell.SpecialCells(xlLastCell).Select уплясывает на Лист2 на 71 строку хотя там всё пусто.
Суслика (в данном случае - пробел, например) видишь?


Ну да, вижу... Но мне как то надо чтобы последнюю заполненную строку находил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2012, 08:49
    #37807077
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
Недочайникмне как то надо чтобы последнюю заполненную строку находил.Проверяй, что тебе код сыскал. На глаз - пусто? проверяй предыдущую...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2012, 12:24
    #37807543
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
AkinaНедочайникмне как то надо чтобы последнюю заполненную строку находил.Проверяй, что тебе код сыскал. На глаз - пусто? проверяй предыдущую...на этом форуме есть масса тем, в которых обсуждаются различные методики поиска последней строки в excel. поищите чуть-чуть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2012, 12:51
    #37807633
uux
uux
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
Недочайникмне как то надо чтобы последнюю заполненную строку находил.

xlLastCell будет упрыгивать на некую ячейку даже тогда, когда туда, к примеру, сначала ввели значение, а потом его удалили (а книгу при этом не сохранили). Или когда ячейке придали форматирование (сменили цвет фона, шрифт, да что угодно), не вводя туда ничего, причем даже если после этого вернули все настройки в первоначальное состояние (в данном случае и пересохранение не отменит её "последнесть"). Точный рецепт, как найти последнюю заполненную строку, зависит от конкретной задачи. В самом общем случае: прыгаете на xlLastCell - этим задается первоначальный (максимальный) сектор поиска. Затем обратным перебором от адреса этой ячейки до единицы по столбцам и по строкам (именно в таком порядке) ищете ячейку, значение которой не будет пустым.

Возможно, макрос можно упростить, но для этого нужно знать конкретный формат расположения данных на листе в Вашем случае.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.05.2012, 13:14
    #37807691
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Перейти на последнюю строку листа... как?
Недочайник,

может все-таки образец дашь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перейти на последнюю строку листа... как? / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 461ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175694]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 146ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 229ms
total:  461ms
x
x
Закрыть


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