每隔n行插入19行macros？

我想每58行插入19行。 这个macros插入一行，我似乎无法得到它插入19。

Sub Insert58() Dim rng As Range Set rng = Range("A3") While rng.Value <> "" rng.Offset(58).EntireRow.Insert Set rng = rng.Offset(59) Wend End Sub 

Answer 1

使用rng.Offset(58).resize(19).EntireRow.Insert

Answer 2

瘸子的答案当然是可以编辑的：

Set rng = Range("A3")是开始单元格

rng.Offset(58)是'每行之后'

Resize(19)是要插入多less行

Set rng = rng.Offset(77)应该是两行+插入的总和

Answer 3

杰夫，

试试这个：

 Sub Insert58_v2() Dim rng As Range Set rng = Range("A3") While rng.Value <> "" rng.Offset(58).Resize(19).EntireRow.Insert Set rng = rng.Offset(77) Wend End Sub