在excel中每X行插入一行

Question

我有一长串代码,如008.45等,需要多行文字来解释它们.我有代码列表,我想知道如何自动插入每行,比如第五行.以下示例

1          
2
3
4
5
6
7
8
9
10...
100

每五行我想插入一定数量的行选择.我怎样才能做到这一点？谢谢

Answer 1

使用第1行到第100行的范围进行测试.

Sub InsertRows()
For i = Sheet1.UsedRange.Rows.Count To 1 Step -5
    For j = 0 To 4
        Sheet1.Rows(i).Insert
    Next
Next
End Sub