将最后一个非空白单元格复制到另一列的最后一个非空白单元格中

我想将列C中的最后一个非空单元格复制到列A中最后一个条目之后的单元格中。例如：

Row Column A ... Column C 1 XY 2 XY 3 YY 4 Y 5 Y 

如图所示，列A中的条目X在第二行结束，而Y在列C中的第五行结束。我希望将最后一个条目复制到列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 

但不断收到错误

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 

如果这有帮助，请用绿色的勾号奖励我;）