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

Format cells as time
Select range and press Ctrl+Shift+2 to format cells as time. (Shift 2 is the @ sign).
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,181,241
Messages
5,928,835
Members
436,632
Latest member
DrCSdeLange

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