powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перейти на последнюю строку листа... как?
8 сообщений из 8, страница 1 из 1
Перейти на последнюю строку листа... как?
    #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
Перейти на последнюю строку листа... как?
    #37805330
Фотография Serge 007
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Недочайник...Как найти последнюю заполненную строку?
См. здесь
...
Рейтинг: 0 / 0
Перейти на последнюю строку листа... как?
    #37806754
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
НедочайникПОчему то
ActiveCell.SpecialCells(xlLastCell).Select уплясывает на Лист2 на 71 строку хотя там всё пусто.
Суслика (в данном случае - пробел, например) видишь?
...
Рейтинг: 0 / 0
Перейти на последнюю строку листа... как?
    #37806993
AkinaНедочайникПОчему то
ActiveCell.SpecialCells(xlLastCell).Select уплясывает на Лист2 на 71 строку хотя там всё пусто.
Суслика (в данном случае - пробел, например) видишь?


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

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

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

может все-таки образец дашь?
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Перейти на последнюю строку листа... как?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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