Not discounting anyone here, but I would imagine that there are much better support forums than this for this type of question. I would hit-up an Excel-specific forum.
-- Espi On Thu, Feb 23, 2017 at 9:20 AM, Christopher Bodnar < [email protected]> wrote: > Sorry for OT, but know there is some great talent here. > > > > I’ve got a list in excel. All I want to do is create a blank row below > each item in the list, then group that new row and the original one above > it. So like this: > > > > TEST1 > > TEST2 > > TEST3 > > > > Will be > > TEST1 > > ==NEW ROW GROUPED WITH ROW ABOVE > > TEST2 > > ==NEW ROW GROUPED WITH ROW ABOVE > > TEST3 > > ==NEW ROW GROUPED WITH ROW ABOVE > > > > This is the macro I have that will add the blank row, but not sure how to > get it to do the grouping: > > > > ********************************************************* > > Sub insertrow() > > > > Application.ScreenUpdating = True > > Dim count As Integer > > Dim X As Integer > > > > For count = 1 To 20 > > If ActiveCell.Value <> "" Then > > ActiveCell.Offset(1, 0).Select > > Range(ActiveCell, ActiveCell.Offset(0, 0)).EntireRow.Insert > > ActiveCell.Offset(1, 0).Select > > For X = 1 To 1 > > Next X > > Else > > ActiveCell.Offset(1, 0).Range("a1").Select > > End If > > Next count > > > > End Sub > > > > ********************************************************* > > > > Thanks > > > > > > *Christopher Bodnar* > Enterprise Architect II, Corporate Office of Technology:Enterprise > Architecture and Engineering Services > > Tel 610-807-6459 <(610)%20807-6459> > 3900 Burgess Place, Bethlehem, PA 18017 > [email protected] > > [image: cid:[email protected]] > > * The Guardian Life Insurance Company of America* > > * www.guardianlife.com <http://www.guardianlife.com/>* > > > > > > ------------------------------ > ----------------------------------------- This message, and any > attachments to it, may contain information that is privileged, > confidential, and exempt from disclosure under applicable law. If the > reader of this message is not the intended recipient, you are notified that > any use, dissemination, distribution, copying, or communication of this > message is strictly prohibited. If you have received this message in error, > please notify the sender immediately by return e-mail and delete the > message and any attachments. Thank you. > >
