Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
copy text A1*7
Hi
I want to copy the text in cell A1 3 times, and the text in cell A2 3 times, below each other. This should be as shown below, need to be used when you have over 100 names. It is time consuming to do this manually. name1 name2 name3 name4 name5 name6 name1 name1 name1 name2 name2 name2 and so on. Greteful for anykind of help Tomas Fredblad |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
copy text A1*7
Sub Test()
Dim iLastRow As Long Dim i As Long iLastRow = Cells(Rows.Count, "A").End(xlUp).Row For i = iLastRow To 1 Step -1 Rows(i + 1).Resize(2).Insert Cells(i, "A").Copy Cells(i + 1, "A").Resize(2) Next i End Sub -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) "gustav" wrote in message oups.com... Hi I want to copy the text in cell A1 3 times, and the text in cell A2 3 times, below each other. This should be as shown below, need to be used when you have over 100 names. It is time consuming to do this manually. name1 name2 name3 name4 name5 name6 name1 name1 name1 name2 name2 name2 and so on. Greteful for anykind of help Tomas Fredblad |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
copy text A1*7
In an empty column, enter this formula and copy it down
=OFFSET($A$1,INT((ROW(A1)-1)/3),0) then select all the formula results, copy them, and use EditPaste SpecialValues "gustav" wrote: Hi I want to copy the text in cell A1 3 times, and the text in cell A2 3 times, below each other. This should be as shown below, need to be used when you have over 100 names. It is time consuming to do this manually. name1 name2 name3 name4 name5 name6 name1 name1 name1 name2 name2 name2 and so on. Greteful for anykind of help Tomas Fredblad |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Search and copy certain text | Excel Discussion (Misc queries) | |||
Copy text from text box to cell in another worksheet | Excel Worksheet Functions | |||
How to I copy text from a range of cells to another single cell? | Excel Discussion (Misc queries) | |||
To copy values in a column relevant to text in an adjacent column? | Excel Worksheet Functions | |||
How do I copy text from a cell into a comment? | Excel Discussion (Misc queries) |