Please help - Inserting copied cells question

S

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
[email protected]
 
J

JMay

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
 
G

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
 
S

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 -
Click to expand...

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