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

Question

请问如何使用VBA向列中的最后一行（空）添加文本？​​

我有一个带有ActiveX控件按钮的spreedsheet。我希望在单击命令按钮时，Excel获取包含在单元格C3中的文本，并将其添加到A列的最后一个（空）行。

请注意，A列已包含各种单元格中的文本。我想要做的是找到最后一个空单元格，然后将文本从单元格C3传输到最后一个空行。谢谢。

Answer 1

尝试以下代码：

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

Answer 2

将此宏指定给您的按钮：

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 值。