使用VBA选择最后一行并复制

Question

我需要在电子表格中选择值的最后一行，然后将其向下拖动（包括公式）。我能够找到带有值的最后一行，但是在选择最后一行时遇到了问题。

With Sheets("Data")
    Dim LR1 As Long
    LR1 = .Range("A" & .Rows.Count).End(xlUp).Row
   .Range(LR1).Select
End With

我只想选择最后一行并向下拖动1行。我还没有尝试添加代码来拖下来，因为我似乎无法选择最后一行数据。

Answer 1

我可以使用下面的代码完成此操作。在此过程中感谢大家的帮助。

5