powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить пустую ячейку в столбце, после последней "заполненной"
2 сообщений из 2, страница 1 из 1
Как определить пустую ячейку в столбце, после последней "заполненной"
    #39445408
QwDl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Собственно вопрос в теме.

Вот макрос:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub данные()

    Sheets("Вчера").Select
    Range("Данные2").Select
    Selection.Copy
    Sheets("Итого").Select
    Dim lLastRow As Long
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    

End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

То есть макрос, находит последнюю заполненную ячейку и вставляет данные поверх этой нее, что не есть хорошо.

Нужно сделать так что бы данные вставлялись в следующую ячейку и создавался список данных.

Спасибо за помощь
...
Рейтинг: 0 / 0
Как определить пустую ячейку в столбце, после последней "заполненной"
    #39445495
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
QwDlмакрос, находит последнюю заполненную ячейкуи НЕ ИСПОЛЬЗУЕТ это никак.
QwDlНужно сделать так что бы данные вставлялись в следующую ячейку
Код: vbnet
1.
2.
3.
4.
5.
Sub данные()
Sheets("Вчера").Range("Данные2").Copy
Sheets("Итого").Cells(Sheets("Итого").Cells.SpecialCells(xlCellTypeLastCell).Cells(2, 1).Row, 1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone
End Sub
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить пустую ячейку в столбце, после последней "заполненной"
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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