如何將文本添加到列的最後一行

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