请问如何使用VBA将文本添加到列中的最后一个（空）行？
我有一个带有ActiveX控件按钮的spreedsheet . 我希望在单击命令按钮时，Excel获取包含在单元格C3中的文本，并将其添加到列A的最后一个（空）行 .
请注意，A列已包含各种单元格中的文本 . 我想要做的是找到最后一个空单元格，然后将文本从单元格C3传输到最后一个空行 . 谢谢 .
将此宏指定给您的按钮：
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 值放入其中 .
尝试以下代码：
Sub MoveFromCToA() Cells(rows.count,1).end(xlup).offset(1).value = cells(3,3) End Sub
2 回答
将此宏指定给您的按钮：
它将在 A 列中的所有数据下方找到第一个空单元格，并将 C3 值放入其中 .
尝试以下代码：