Please help - Inserting copied cells question

[sales]

I want to insert copied cells between every row in my sheet, without
having to do it one by one. Is this possible. I have about 1000 rows I
do not want to do this one by one. I know the shortcut "cntl,shift,+ "
will insert the copied cell, but it only does it once, you still have
to copy the original cells everytime. Please help.
thanks
Ed
(e-mail address removed)

 

[Guest]

Here's a small demo...

I put in A1 "Header"
A2:A11 - I entered 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
In cell F1 I entered "me" (without the quote marks)

In a standars module I entered:

Sub foo()
lrow = Cells(Rows.Count, "a").End(xlUp).Row 'finds the last filled cell in
Col 1
RngCt = Range("a2:a" & lrow).Count
For i = lrow To 3 Step -1
Cells(i, "a").EntireRow.Insert
Cells(i, "a").Value = Range("f1").Value 'copies Cell F1's value into
Column A
Next i
End Sub

 

[Gord Dibben]

Where do you want the insert to take place?

What is the range of cells you have copied?

Just one column or multiple columns?


Gord Dibben MS Excel MVP

 

[sales]

Where do you want the insert to take place?

What is the range of cells you have copied?

Just one column or multiple columns?

Gord Dibben MS Excel MVP





- Show quoted text -

i want the insert to go between each row, starting from row1, column1.
copied cells are 4 rows and 52 columns