将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 

如果帮助，请用一个绿色的勾奖励我;）