Please help - Inserting copied cells question

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

sales@spclothing.com - 30 Jun 2007 20:40 GMT

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
sales@spclothing.com

Reply to this Message

JMay - 30 Jun 2007 21:46 GMT

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

> 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
[quoted text clipped - 4 lines]
> Ed
> sales@spclothing.com

Reply to this Message

Gord Dibben - 30 Jun 2007 22:07 GMT

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

>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
[quoted text clipped - 4 lines]
>Ed
>sales@spclothing.com

Reply to this Message

sales@spclothing.com - 30 Jun 2007 22:15 GMT

> Where do you want the insert to take place?
>
[quoted text clipped - 14 lines]
>
> - Show quoted text -

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

Reply to this Message