如何将文本添加到列的最后一行

Question

请问如何使用VBA将文本添加到列中最后一个（空）行？

我有一个带有ActiveX控件按钮的spreedsheet。我希望在单击命令按钮时，Excel将包含在单元格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