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

[systemmind]

Здравствуйте.
У меня есть столбец значений. Задача для VBA. Каким образом можно сделать так, чтобы при выполнении какого-либо события (например нажатия клавиши или проверки условия) происходила запись в пустую ячейку следующую сразу после последней заполненной ячейки этого столбца?
Зараннее спасибо.

[С.М.С]

самый простой способ - открыть цикл адресов ячеек, затем проверить есть ли в проверяемой ячейки значение, если нет записать в неё информацию(по уму закрыть цикл при записи в пустую ячейку).

[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

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

[systemmind]

О, спасибо огромное! Как все просото оказывается)

[systemmind]

Еще похожий вопрос. Как присвоить какой либо ячейке количество заполненных ячеек какого либо столбца?

[EducatedFool]

Введите в ячейку формулу =СЧЁТЗ(E1:E30)

В ячейке увидите количество заполненных ячеек в диапазоне E1:E30

Для подсчёта ячеек во всём столбце формула примет вид =СЧЁТЗ(E:E)

[systemmind]

А как это сделать в VBA.

[EducatedFool]

Примерно так:

MsgBox WorksheetFunction.CountA(Range("e1:e46"))

[d4] = WorksheetFunction.CountA([e1:e46])

[systemmind]

Спасибо. Но вот сново трудность: каким образом в VBA можно очистить содержимое столбца начиная, например с 10 ячеки?

[EducatedFool]

Sub test()
    Range("b10:b" & Rows.Count).ClearContents ' очистка только значений
    Range("b10:b" & Rows.Count).Clear ' полная очистка (вместе с форматированием)
End Sub