![]() |
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 |
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 |
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 |
All times are GMT +1. The time now is 12:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com