I have a lengthly work sheet and I want to put spaces between every row--how
do I do that?
I have a lengthly work sheet and I want to put spaces between every row--how
do I do that?
Automatically usually involves VBA coding.
Do you really need the inserted rows? Perhaps you could just change the
height of the rows to look double-spaced?
Here is a macro to do the row inserting.
Sub InsertALTrows()
'David McRitchie, misc 2001-06-30
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'pre XL97 xlManual
Dim i As Integer
For i = Selection(Selection.Count).Row To Selection(1).Row + 1 Step -1
Rows(i).EntireRow.Insert
'With Rows(i)
' .RowHeight = 24.25
' End With
Next i
Application.Calculation = xlCalculationAutomatic 'pre XL97
xlAutomatic
Application.ScreenUpdating = True
End Sub
Gord Dibben Excel MVP
On Fri, 18 Mar 2005 14:09:01 -0800, "marvaod"
<[email protected]> wrote:
>I have a lengthly work sheet and I want to put spaces between every row--how
>do I do that?
One way ..
Assume your source data is
in Sheet1, in cols A to C, data from row2 down
In Sheet2
--------
Put in A2:
=IF(MOD(ROWS($A$1:A1)-1,2)=1,"",OFFSET(Sheet1!$A$2,MOD(ROWS($A$1:A1)-1,2)+IN
T((ROWS($A$1:A1)-1)/2),COLUMNS($A$1:A1)-1))
Copy A2 across to C2, fill down until zeros appear, signalling exhaustion of
data from Sheet1
The above will return what you want
(insert alternating blank rows in-between the data from Sheet1)
Do a copy and paste special as values elsewhere as desired
--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <at>yahoo<dot>com
----
"marvaod" <[email protected]> wrote in message
news:[email protected]...
> I have a lengthly work sheet and I want to put spaces between every
row--how
> do I do that?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks