How inserer a certain number of blank rows

[Gord Dibben]

PST

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 10
For r = r To 1 Step -1
ActiveSheet.Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

 

[PST]

hello

NBligne=10

How inserer a certain number of blank rows, under all the nonempty lines
of column A

Row 1
add 10 lines
Row 2
add 10 lines

etc...

thank you

 

[PST]

thank you very much

it is right what I wanted

Gord Dibben a écrit :