Question

我有一个简单的宏，它复制Excel工作表中的最后一行并在文档中进一步插入。目前宏只能一次复制一行，但我希望能够选择复制多少行。

我的数据在中间分为空行，因此使用A500 End(xlUp)和A2 End(xlDown)

Dim i As Integer

i = Range("F1").Value

Range("A500").End(xlUp).Offset(1).Select
ActiveCell.Rows("1:3").EntireRow.Copy
Range("A2").Select
Selection.End(xlDown).Offset(1).EntireRow.Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

我添加了Rows("1:3")来选择三行，但是如何使用F1中存储的数字来选择要复制的行数？

我试过了Rows("1:i")，但我知道它并不像那样。

任何指导都会有所帮助，谢谢。

Answer 1

我添加了行（“1：3”）来选择三行，但是如何使用F1中存储的数字来选择要复制的行数？

您可以使用以下

Dim NumofRows As Integer

NumofRows = ActiveSheet.Range("F1").Value2
ActiveSheet.Rows("1:" &NumofRows ).EntireRow.Copy

Answer 2

保持变量不会出现双引号

Rows("1:" & i)

VBA在行选择中使用单元格值

2 个答案: