Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 2
Default How do I insert alternating blank rows in a list of data?


  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 10,124
Default How do I insert alternating blank rows in a list of data?

From a post of mine very recently
Sub addrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub


--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...



  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 2
Default How do I insert alternating blank rows in a list of data?

Hi Don,

I am not sure where do I insert the below...is there a simple function that
I can write up...if not....how do I copy and paste this.

Thank you!

"Don Guillett" wrote:

From a post of mine very recently
Sub addrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub


--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...




  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 22,906
Default How do I insert alternating blank rows in a list of data?

Do you really need the extra rows?

If for appearance only, select all the rows and double their height through
FormatRowHeight or drag the bottom selected row to a size you like.

OR you could use a macro if you so choose.

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
numRows = 1
For r = 2500 To 1 Step -1
'change the 2500 to suit your range
ActiveSheet.Rows(r + 1).Resize(numRows).EntireRow.Insert
Next r
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Mon, 18 Sep 2006 11:16:02 -0700, curiouscat
wrote:


Gord Dibben MS Excel MVP
  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 22,906
Default How do I insert alternating blank rows in a list of data?

You can do it without a macro.

Here is a suggestion from Bill Kuunders.

Use a new column
put in the top part of that column a number series 1 3 5 7 9 etc till all
lines with existing data have a number
and in the bottom part of that column 2 4 6 8 etc
then select the whole range and sort by this new column
delete the column after.
Greetings from New Zealand
Bill Kuunders


Gord Dibben MS Excel MVP

On Mon, 18 Sep 2006 12:38:02 -0700, curiouscat
wrote:

Hi Don,

I am not sure where do I insert the below...is there a simple function that
I can write up...if not....how do I copy and paste this.

Thank you!

"Don Guillett" wrote:

From a post of mine very recently
Sub addrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub


--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...







  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 10,124
Default How do I insert alternating blank rows in a list of data?

This is a macro. Just copy/paste into a modulechange "a" to suit your
columnSAVE fire from alt f8 or assign to a button/shape.

--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...
Hi Don,

I am not sure where do I insert the below...is there a simple function
that
I can write up...if not....how do I copy and paste this.

Thank you!

"Don Guillett" wrote:

From a post of mine very recently
Sub addrows()
For i = Cells(Rows.Count, "a").End(xlUp).Row To 2 Step -1
Rows(i).Insert
Next
End Sub


--
Don Guillett
SalesAid Software

"curiouscat" wrote in message
...






Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Loading Column Data with blank Rows into Data Validation Box ExcelMonkey Excel Worksheet Functions 3 October 13th 05 06:09 PM
Get External Data - Insert Rows [email protected] Excel Discussion (Misc queries) 0 June 8th 05 12:53 PM
Auto Insert Rows of Data?? tojo107 Excel Discussion (Misc queries) 2 May 28th 05 09:28 PM
Pull Current Month's Data Out of List - Repost Karl Burrows Excel Discussion (Misc queries) 4 May 3rd 05 01:06 AM
HOW CAN I AUTOMATICALLY INSERT ALTERNATE BLANK ROWS IN A LIST? Phil A. Excel Discussion (Misc queries) 1 April 19th 05 04:10 PM


All times are GMT +1. The time now is 05:37 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"