Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Marco to insert rows
Dear all,
Can someone help for a Marco describe as following. a data table, sheet 1, data range from A1 to M100. A1 to M1 is the heading of the table. A2 to M100 is data. I need a marco to insert single rows between row 2 to row 100, they are single row between each row, i.e. insert a row between row 2 and row 3, then insert a row between row 3 and row 4. then copy A1 to M1 to every new rows. And number of rows is variable, it means 100 rows this time and may be 110 rows next time. thanks for your help. -- Dennis Cheung |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Marco to insert rows
Hi
Try this: Sub aaa() Dim LastRow As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For r = LastRow To 3 Step -1 Range("A" & r).EntireRow.Insert Next Range("A1:M1").Copy For r = 3 To (LastRow - 1) * 2 Step 2 Range("A" & r).PasteSpecial xlPasteAll Next Application.CutCopyMode = False End Sub Regards, Per On 4 Sep., 04:23, Dennis Cheung wrote: Dear all, Can someone help for a Marco describe as following. a data table, sheet 1, data range from A1 to M100. A1 to M1 is the heading of the table. A2 to M100 is data. I need a marco to insert single rows between row 2 to row 100, they are single row between each row, i.e. insert a row between row 2 and row 3, then insert a row between row 3 and row 4. * then copy A1 to M1 to every new rows. And number of rows is variable, it means 100 rows this time and may be 110 rows next time. thanks for your help. -- Dennis Cheung |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Marco to insert rows
it works and very helpful. thanks!
-- Dennis Cheung "Per Jessen" wrote: Hi Try this: Sub aaa() Dim LastRow As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For r = LastRow To 3 Step -1 Range("A" & r).EntireRow.Insert Next Range("A1:M1").Copy For r = 3 To (LastRow - 1) * 2 Step 2 Range("A" & r).PasteSpecial xlPasteAll Next Application.CutCopyMode = False End Sub Regards, Per On 4 Sep., 04:23, Dennis Cheung wrote: Dear all, Can someone help for a Marco describe as following. a data table, sheet 1, data range from A1 to M100. A1 to M1 is the heading of the table. A2 to M100 is data. I need a marco to insert single rows between row 2 to row 100, they are single row between each row, i.e. insert a row between row 2 and row 3, then insert a row between row 3 and row 4. then copy A1 to M1 to every new rows. And number of rows is variable, it means 100 rows this time and may be 110 rows next time. thanks for your help. -- Dennis Cheung |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert rows: Formats & formulas extended to additonal rows | Excel Worksheet Functions | |||
Marco to delete all rows except those containing 'MZ' in string | Excel Programming | |||
marco to delete rows | Excel Discussion (Misc queries) | |||
marco that inserts rows? | Excel Worksheet Functions | |||
marco that inserts rows? | Excel Worksheet Functions |