Compressing Spreadsheet

MacIvor

New Member
Joined
Oct 15, 2002
Messages
2
I want to automate the process of first finding a blank cell in a large(? 100x100) spreadsheet, and the EITHER deleting that cell and moving all the cells that are to its right in that row, one place left to fill in the gap , OR simply cutting and pasting the rest of the row on its right so that tha cell is now filled.
 

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.
L

Legacy 98055

Guest
Hi Mac.
Run this on the active sheet.
<pre>
Sub ByeByeBlanks()
Dim c As Range, cCol As Integer, AllBlanks As Range
Set AllBlanks = Range("A1")
Application.ScreenUpdating = False
Do
cCol = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Column
If AllBlanks.Address = ActiveSheet.UsedRange.SpecialCells( _
xlBlanks).Address Then Exit Sub
Set AllBlanks = ActiveSheet.UsedRange.SpecialCells(xlBlanks)
For Each c In AllBlanks
c.Select
If c = "" Then _
Range(c.Offset(0, 1), Cells(c.Row, cCol)).Cut c
Next
Loop
Application.ScreenUpdating = True
End Sub

</pre>
Back up first. I only think it works. :)
Tom
 

Forum statistics

Threads
1,144,119
Messages
5,722,592
Members
422,447
Latest member
knopp

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top