You might want to go to the forum at Mr Excel https://www.mrexcel.com/forum/index.php
The people there are OUTSTANDING. I got help when I was stumped for years there. Jim Most of what we call management consists of making it difficult for people to get their work done. <http://www.brainyquote.com/quotes/quotes/p/peterdruck163694.html> Peter Drucker <http://www.brainyquote.com/quotes/quotes/p/peterdruck163694.html> On Thu, Feb 23, 2017 at 5:17 PM, Micheal Espinola Jr < michealespin...@gmail.com> wrote: > 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 < > christopher_bod...@glic.com> 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 >> christopher_bod...@glic.com >> >> [image: cid:image001.png@01D1326B.600058E0] >> >> * 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. >> >> >
