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
3900 Burgess Place, Bethlehem, PA 18017
[email protected]<mailto:>
[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.
