double spacing

kskinne

Well-known Member

Joined

Feb 17, 2002

Messages

1,267

Office Version

1. 365

Platform

1. Windows

• May 14, 2003

• #2

Code:

Sub DoubleSpace()
Dim LastRow As Integer
LastRow = Range("A65536").End(xlUp)
For i = 1 To (LastRow * 2) Step 2
Rows(i + 1 & ":" & i + 1).EntireRow.Insert
Next i
End Sub

this should work for you

hth
kevin

 

Upvote 0

M

Mark W.

MrExcel MVP

Joined

Feb 10, 2002

Messages

11,654

• May 14, 2003

• #3

You can also sort blank rows among your existing rows. See http://www.mrexcel.com/board2/viewtopic.php?t=50738&highlight=.

 

Upvote 0

Tom Urtis

MrExcel MVP

Joined

Feb 10, 2002

Messages

11,300

• May 14, 2003

• #4

Kevin, your code will not work because you need to use Long instead of Integer for numbers greater than 32,767. Also, there needs to be .Row added after the Range definition. And if Option Explicit is at the top of the module, the i Integer should be declared to avoid a run time error.

Sub DoubleSpace()
Dim i As Integer
Dim LastRow As Long
LastRow = Range("A65536").End(xlUp).Row
For i = 1 To (LastRow * 2) Step 2
Rows(i + 1 & ":" & i + 1).EntireRow.Insert
Next i
End Sub

 

Upvote 0

cmefly

Well-known Member

Joined

May 13, 2003

Messages

683

• May 14, 2003

• #5

the macro in both cases doesn't work

 

Upvote 0

Tom Urtis

MrExcel MVP

Joined

Feb 10, 2002

Messages

11,300

• May 14, 2003

• #6

Please see my suggestion above your last post.

 

Upvote 0

LTunnicliffe

Well-known Member

Joined

May 8, 2003

Messages

767

• May 14, 2003

• #7

Code:

Sub DoubleSpace()
  For i = Range("A65536").End(xlUp).Row To 1 Step -1
    Range("A" & i).EntireRow.Insert xlShiftUp
  Next i
End Sub

This works also!

 

Upvote 0

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• May 14, 2003

• #8

It's generally better to loop backwards when inserting rows:

Code:

Sub Test()
    Dim x As Long
    Application.ScreenUpdating = False
    For x = Range("A65536").End(xlUp).Row To 1 Step -1
        Cells(x, 1).EntireRow.Insert
    Next x
    Application.ScreenUpdating = True
End Sub

 

Upvote 0

cmefly

Well-known Member

Joined

May 13, 2003

Messages

683

• May 14, 2003

• #9

once again, thank you very much.....!! u guys are great!

 

Upvote 0

kskinne

Well-known Member

Joined

Feb 17, 2002

Messages

1,267

Office Version

1. 365

Platform

1. Windows

• May 14, 2003

• #10

Tom, thanks for the tips

kevin

 

Upvote 0