Запись в конец столбца

[tae1980]

Сообщение от EducatedFool

Sub test()
    Cells(Rows.Count, "A").End(xlUp).Offset(1) = "Новое значение в столбце A"
    ' Cells(Rows.Count, "A") - последняя ячейка в столбце A
    ' .End(xlUp) - поднимаемся вверх на последнюю заполненную ячейку
    ' .Offset(1) - спускаемся на одну ячейку вниз (пустая ячейка после последней заполненной)
     Cells(Rows.Count, 15).End(xlUp).Offset(1) = "Новое значение в столбце 15"
End Sub

Подразумевается, что хоть одна ячейка в этих столбцах заполнена.

Позволю себе снова открыть тему. Такой вопрос, можно ли ограничить зону просмотра и добавления? Например в колонке "A" со строки 10 размещается список значений. Так же в колонке "A" со строки 20 начинается второй список значение. И т.п. Можно ли этим способом дописать значения в первый список?

А

10 Список 1.1
11 Список 1.2
12 Список 1.3
13 Список 1.4
14 Список 1.5
15 сюда дописать
.....
20 Список 2.1
21 Список 2.2
.......
40 Список 3.1
41 Список 3.2
......

[piv_]

Сообщение от EducatedFool

Sub test()
    Cells(Rows.Count, "A").End(xlUp).Offset(1) = "Новое значение в столбце A"
    ' Cells(Rows.Count, "A") - последняя ячейка в столбце A
    ' .End(xlUp) - поднимаемся вверх на последнюю заполненную ячейку
    ' .Offset(1) - спускаемся на одну ячейку вниз (пустая ячейка после последней заполненной)
    
    Cells(Rows.Count, 15).End(xlUp).Offset(1) = "Новое значение в столбце 15"
End Sub

Подразумевается, что хоть одна ячейка в этих столбцах заполнена.

А. наоборот, как узнать номер строки где заканчивается столбец?

[VictorM]

номер строки где заканчивается столбец

Смотря что Вы понимаете под словом заканчивается.

Sub tt()
    sRow = Cells(Rows.Count, "A").End(xlUp).Row 'посл. заполненная
    MsgBox sRow
    lRow = Cells(Rows.Count, "A").End(xlUp).Offset(1).Row ' сл. пустая
    MsgBox lRow
End Sub

[IgorGO]

tae1980, можно если списки разделены пустыми строками...
метод End призведет различные действия в зависимости от параметра с которым он был вызван (xlUp xlDown...) и в зависимости от ячейки из (для) которой он был вызван. "смоделировать" действие метода можно в ручном режиме: жмете Ctrl+UpRow или Ctrl+DownRow (контрол + стрелка вниз/вверх) и анализируете куда Вас унесет. То же самое будет с методом End.