將coulmn中的最後一個非空白單元格複製到另一列中的最後一個非空白單元格

Question

我想將列C中最後一個非空單元格複製到列A中最後一個條目之後的單元格中。例如：

Row Column A ... Column C 
1  X     Y 
2  X     Y 
3  Y     Y 
4       Y 
5       Y 

如圖所示，條目，X，在塔上的第二行A端，而Y於在C列第5行結束我想要這個最後一個條目被複制到A欄

我有：

Sub RangeSel() 
Dim ColA As Range 
Dim ColC As Range 


Set ColC = Cells("C" & Cells.Rows.Count).End(xlUp) 
Set ColA = Cells("A" & Cells.Rows.Count).End(xlUp) 

ColC.Copy (ColA) 
End Sub 

但保持ge擬合誤差

Answer 1

一行代碼：

Cells(Columns("A").End(xldown).row+1,"A")=Columns("C").End(xlDown) 

有點漂亮，更具可讀性：

Dim contentOfLastCellOfColC As String 
contentOfLastCellOfColC = Columns("C").End(xlDown).Value 

Dim lastCellOfColA As Range 
Set lastCellOfColA = Columns("A").End(xlDown) 

Cells(lastCellOfColA.Row + 1, "A") = contentOfLastCellOfColC 

如果幫助，請用一個綠色的勾獎勵我;）