Как добавить текст в последнюю строку столбца

Question

Пожалуйста, мне нужна помощь в том, как добавить текст в последнюю (пустую) строку в столбце, используя VBA?

У меня есть spreedsheet с кнопкой управления ActiveX на нем. Я хочу, чтобы при нажатии командной кнопки Excel взял текст, содержащийся в слове say, ячейку C3, и добавьте его в последнюю (пустую) строку столбца A.

Обратите внимание: колонка A уже содержит текст в различных ячейках. Я хочу найти последнюю пустую ячейку, а затем передать текст из ячейки C3 в эту последнюю пустую строку. Спасибо.

Answer 1

Назначить макрос для вашей кнопки:

Sub ButtonCode() 
    Dim N As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row + 1 
    Cells(N, "A").Value = Range("C3").Value 
End Sub 

Это будет найти первую пустую ячейку ниже всех данных в колонке A и место C3 Значение в нем.

Answer 2

код Try, такие как следующие:

Sub MoveFromCToA() 
    Cells(rows.count,1).end(xlup).offset(1).value = cells(3,3) 
End Sub