将库仑中最后一个非空白单元格复制到另一列中的最后一个非空白单元格。
将库仑中最后一个非空白单元格复制到另一列中的最后一个非空白单元格。
提问于 2017-03-04 11:58:48
我希望将C列中最后一个非空单元格复制到A列最后一个条目之后的单元格中，例如：
Row Column A ... Column C
1 X Y
2 X Y
3 Y Y
4 Y
5 Y如图所示，A栏中的条目X在第2行结束，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但是不断地犯错误
回答 1
Stack Overflow用户
回答已采纳
发布于 2017-03-04 12:19:04
单线：
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如果这有帮助的话，请奖励我一只绿虱;)
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/42595747
复制相关文章
相似问题
腾讯云开发者
