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

Question

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

hide-group

如图所示，A列中的条目X在第2行结束，而Y在C列的第5行结束。我希望将最后一个条目复制到A列中

我有：

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

但不断收到错误

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

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