consolidate 8500 rows for printing

  • Thread starter Thread starter Humbled Learner
  • Start date Start date
H

Humbled Learner

Good Day,

Using MS office 2007, I have 4 columns of info that total 8500 rows.

I'm sorry for the terminology but... is there a way to automatically double
the 4 rows to make 8 rows and keep the information in order?

Or if I change the layout to landscape, can I have the information fill the
whole page?

Thank you
 
Say we have four columns of data on Sheet1 like:

b829 j238 b166 i604
a664 z179 z788 p598
r605 a128 w765 v436
z489 u77 r835 z153
o369 x662 q44 k188
j382 p330 r480 k466
c189 o298 x57 i905
h332 d472 r898 d542
p795 o302 f724 i800
m260 a527 n889 a36

and Sheet2 is available as a "spare". Run the following macro:

Sub MoreCOlumns()
Dim s1 As Worksheet, s2 As Worksheet
Dim n As Long, k As Long, i As Long
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
s1.Activate
n = Cells(Rows.Count, 1).End(xlUp).Row
k = 1
For i = 1 To n Step 2
Range("A" & i & ":D" & i).Copy s2.Range("A" & k)
Range("A" & i + 1 & ":D" & i + 1).Copy s2.Range("E" & k)
k = k + 1
Next
End Sub

and on Sheet2 we will have:

b829 j238 b166 i604 a664 z179 z788 p598
r605 a128 w765 v436 z489 u77 r835 z153
o369 x662 q44 k188 j382 p330 r480 k466
c189 o298 x57 i905 h332 d472 r898 d542
p795 o302 f724 i800 m260 a527 n889 a36

Same data but in 8 columns and half the rows. This is what should be printed.
 
Back
Top