Inserting Rows Problem

A

andyp161

Hi there,

I have a list of about 2000 rows. However, in between each of thes
rows I want to insert a blank row that can be used for people to writ
in once the list is printed off. Is there a quick way to do this?

Kind regards

Andre
 
C

CarlosAntenna

If you insert rows it will affect sorting, etc. and be a real pain.
Many posts here want to delete blank rows for exactly that reason.
If you only need space to write on the printed copy just make the rows
higher.
Select the entire worksheet by clicking the square at the upper right corner
between 1 and A.
Click and drag one of the row boundaries to make the row any size you want.
You can use format > cells > alignment to move the contents to the top or
bottom of the row.

Carlos
 
G

Guest

MY problem is similar.
I want to have an excel worksheet use only odd (or) even rows when I paste
data into it.
I want to be able to control whether this pasted data goes into the odd or
even rows.
Is that possible to do? Even if I have to create two worksheets and somehow
merge them into odd or even rows??
 
D

Don Guillett

Why not just copy and then insert the rows?

Sub insertrows()
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = x To 2 Step -1
Rows(i).Insert
Next
End Sub
 
D

Don Guillett

On a re-read, maybe this is more in line with what you want
where b8:b10 is the contigous range to copy and a15,a17,a19 etc are the rows
to paste to

Sub copytooddrows()
For Each c In Range("b8:b10")
For i = 15 To 20 Step 2
c.Copy Cells(i, 1)
Next i
Next c
End Sub
 
D

Don Guillett

I finally got it.
This will copy each item in b8:b10 to the odd row in col a. For even chg i
to 14.

Sub copytooddrows1()
i = 15
For Each c In Range("b8:b10")
c.Copy Cells(i, 1)
i = i + 2
Next c
End Sub
 
Top