Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help me to save the WORLD. Save paper
Help me to save the WORLD. Save paper My worksheet contains only one column and it has over 1000 rows. I see if I print all out I need to use like 23 papers. Can anybody help me what is the best solution to let say move the data to next column for every 30 rows. Following is the example: 1 2 3 4 5 6 how to become 14 25 36 This way can save my printing paper and helping the world. Thank you in advance! -- smash123 ------------------------------------------------------------------------ smash123's Profile: http://www.excelforum.com/member.php...o&userid=29974 View this thread: http://www.excelforum.com/showthread...hreadid=496673 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help me to save the WORLD. Save paper
Sub Test()
Dim iLastrow As Long Dim i As Long iLastrow = Cells(Rows.Count, "A").End(xlUp).Row For i = iLastrow To 2 Step -1 If (i Mod 30) < 0 Then Cells(i, "A").Resize(, 255).Copy Cells(i - 1, "B") Cells(i, "A").ClearContents End If Next i Range("A1:A" & iLastrow).SpecialCells(xlCellTypeBlanks).EntireRow .Delete End Sub -- HTH RP (remove nothere from the email address if mailing direct) "smash123" wrote in message ... Help me to save the WORLD. Save paper My worksheet contains only one column and it has over 1000 rows. I see if I print all out I need to use like 23 papers. Can anybody help me what is the best solution to let say move the data to next column for every 30 rows. Following is the example: 1 2 3 4 5 6 how to become 14 25 36 This way can save my printing paper and helping the world. Thank you in advance! -- smash123 ------------------------------------------------------------------------ smash123's Profile: http://www.excelforum.com/member.php...o&userid=29974 View this thread: http://www.excelforum.com/showthread...hreadid=496673 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Help me to save the WORLD. Save paper
Thank you very much for you help. You have saved the trees! You have a good new year holiday! -- smash123 ------------------------------------------------------------------------ smash123's Profile: http://www.excelforum.com/member.php...o&userid=29974 View this thread: http://www.excelforum.com/showthread...hreadid=496673 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro save a workbook whilst increasing file no | Excel Worksheet Functions | |||
Save as Msg box | Excel Discussion (Misc queries) | |||
Save as Msg box | Excel Discussion (Misc queries) | |||
cannot edit and save | New Users to Excel | |||
Save & Save As features in file menu of Excel | Excel Discussion (Misc queries) |