VBA在行select中使用单元格值

我有一个简单的macros,复制excel工作表中的最后一行,并进一步插入文档。 目前macros只复制一行,但我想能够select复制多less行。

我的数据被中间拆分为空行,因此使用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")来select三行,但是如何使用存储在F1中的数字来select要复制的行数呢?

我尝试了Rows("1:i")但我知道它不是那样的工作。

任何指导将有助于谢谢你。

我添加了行(“1:3”)来select三行,但是如何使用存储在F1中的数字来select要复制的行数呢?

您可以使用以下

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

只要保留variables的双引号

 Rows("1:" & i)