Thread: how to automatically insert blank lines in between non-blank lines
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
No Name
 
Posts: n/a
Default how to automatically insert blank lines in between non-blank lines
lots of thanks.


"Chip Pearson" ¼¶¼g©ó¶l¥ó·s»D
...
Try something like the following. Change the StartRow and EndRow to the
appropriate values.

Sub AAA()
Dim Ndx As Long
Dim StartRow As Long
Dim EndRow As Long
StartRow = 1 '<<< CHANGE
EndRow = 10 '<<< CHANGE
For Ndx = EndRow To StartRow Step -1
Rows(Ndx).Insert
Next Ndx
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


wrote in message
...
as subject, thanks.








Reply With QuoteReply With Quote