EXCEL2000 - Inserting Lines 3

[pjmdesigns]

I have a spreadsheet of a couple of thousand consecutive rows of data, i.e:

1
2
3

I want to insert 3 blank lines between each of these, now that's got to be easy? You may have gathered I no Excel Expert.

Cheers All
PJ

 

[Zathras]

Here's a "quick and dirty" macro to do what you want:
[blue]

Sub Insert3BlankLines()
Dim nRow As Long
Dim nRows As Long
  nRows = ActiveSheet.UsedRange.Rows.Count
  For nRow = 2 To nRows * 4 Step 4
    Cells(nRow, 1).EntireRow.Insert
    Cells(nRow, 1).EntireRow.Insert
    Cells(nRow, 1).EntireRow.Insert
  Next nRow
End Sub

[/color]

 

[RamziSaab]

Here this should do the trick

Sub Insert()

Dim i As Integer
'
i = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count

For i = 1 To i
ActiveCell.Offset(1, 0).Rows("1:1&quot.EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveCell.Offset(3, 0).Range("A1&quot.Select
Next
End Sub

 

[pjmdesigns]

Superb! Both did exactly what I wanted, once I worked out how to run a Macro that is!

You've saved me hours.

Thanks
PJ