Printable View
In column H of the attached workbook is a #. Each time the number changes going down the column I want to insert a row and the next incremental number in column A. My desired end result can be seen on page 2 at www.vbaexpress.com/EE/Example.pdf. Thanks for any help, I appreciate it.:help
In your pdf file, what is column I, column H and column A? What are the red arrows pointing to, is that A?
Column A is the # that the red arrows are pointing to, H is th column with the # all the way to the right. There isn't really a column I in there.
Try this macro:
Code:Option Explicit
Sub SeperateData()
Dim x As Long
Dim LastRow As Long
Dim Index As Long
With Sheets("Sheet1") 'Change to the actual sheet name.
LastRow = .Range("H65536").End(xlUp).Row
Index = Range("H" & LastRow).Value
For x = LastRow To 2 Step -1 'Change 2 to the row you want to start at.
If .Range("H" & x).Value = Index Then
'Skip
Else
Index = Range("H" & x).Value
Range("A" & x + 1).Value = Index + 1
Range("A" & x + 1).EntireRow.Insert
End If
Next x
End With
End Sub
Open your Excel file.
Press Alt + F11 to open the VBE.
Insert | Module.
Paste the code there.
Close the VBE.
From Excel Tools | Macro | Macros.
Select SeperateData and press Run.
If it is not working properly, please post an example of the Excel file, since it is difficult to work with a PDF file.
OMG, Jake. That's gorgeous. :D
Thanks :)
This is the sheet that I'm working with. I tried that macro and it didn't really work. Thanks for helping.
What DID happen, Ed?
I just tried and it seems to work for me. See attached.
Sorry it took me so long to get back, I've been busy with some other work and haven't had a whole lot of time macro, but I did finally get what I was looking for. Thanks for the help.