如何获取行数并在范围内使用

Question

我正在尝试获取电子表格中的行数，然后使用该数字来选择一个范围：

Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("C1").Select
ActiveCell.Copy
Range("C2:C & lastrow").Select
ActiveSheet.Paste
Range("A2:A & lastrow").Select
ActiveSheet.Paste

所以基本上我试图将 C1 的内容复制到 A 和 C 列中的每个单元格中。但是，在我的 Range 语句中使用 C:C 和 A:A 会导致在我粘贴时添加额外的行。所以我真的需要能够获得行数，然后在范围内使用它。有人可以帮我解决这个问题吗？

谢谢，

• 杰西

Answer 1

如果我没记错的话，这段代码不应该编译。你的代码是这样的：

Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("C1").Select
ActiveCell.Copy
Range("C2:C & lastrow").Select ' <----
ActiveSheet.Paste
Range("A2:A & lastrow").Select ' <----
ActiveSheet.Paste

它应该是：

Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("C1").Select
ActiveCell.Copy
Range("C2:C" & lastrow).Select
ActiveSheet.Paste
Range("A2:A" & lastrow).Select
ActiveSheet.Paste

这忽略了选择、激活、粘贴等的低效率，但它解决了您的问题（或者至少应该解决，除非我真的错过了什么）。