Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to copy previous row and insert two blank rows
Hi,
I'm working on a excel sheet that contains about 5000 rows of data. What I need to do is to look at column A and go through the rows and whenever the row has the text "Total Spend" I need to copy it to the following row with "Total N Spend" and insert two blank rows after that. So for example: Column A Row 1 Apple Row 2 IBM Row 3 Dell Row 4 Total Spend - Computer Row 5 (Would copy row 4) Total N Spend - Computer Row 6 Insert Blank Row Row 7 Insert Blank Row Row8 CarA Row9 CarB Row10 Total Spend - Cars Row11 Total N Spend - Cars Row12 Insert Blank Row etc. Previously someone helped me with this code below but nothing happens after I run this macro. Any help is appreciated, Thank you. Sub TotalSpend() Dim iCount As Integer Dim iMax As Integer Dim iLength As Integer iCount = 1 iMax = WorksheetFunction.CountA(Sheets("Sheet1").Columns( 1)) Do Until Left(Sheets("Sheet1").Cells(iCount, 1).Value, 11) = "Total Spend -" iCount = iCount + 1 Select Case iCount Case Is iMax MsgBox "Some data must be missing in Column A of Sheet1." Exit Sub End Select Loop iLength = Len(Sheets("Sheet1").Cells(iCount, 1).Value) Sheets("Sheet1").Cells(iCount + 1, 1).Value = "Total N Spend - " & _ Right(Sheets("Sheet1").Cells(iCount, 1).Value, iLength - 14) End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Copy rows of data (eliminating blank rows) from fixed layout | Excel Discussion (Misc queries) | |||
How do I insert blank rows between rows in completed worksheet? | Excel Discussion (Misc queries) | |||
Macro that will Cut rows and then insert-copy or append | Excel Discussion (Misc queries) | |||
How do I create a Macro to sort data and insert blank rows & subto | Excel Worksheet Functions | |||
Activate a macro to insert a row and copy the formuals from the rows above to the blank row | Excel Discussion (Misc queries) |