Delete Empty Rows

K

kuri

Is there a simple macro that will enable me to delete a
row if there is no information in it. I have a very large
spread sheet but a number of the rows are empty and it
would take a considerable amount of time to delete
manually.
 
A

Andy B

kuri

If there is always a blank in a certain column, you could sort on that
column to leave all of the blank rows together.

Andy.
 
G

Gilles Desjardins

Hi Kuri, after selecting the area you wish to work on the menu follow this
path: Edit, Go to, Special, Blanks. Then Ctrl + negative symbol on your
numeric keyboard.

HTH

Gilles Desjardins
 
V

VickieBenton

Do a search through these posts and you will find the macro you are looking for.
 
D

deb

-----Original Message-----
Is there a simple macro that will enable me to delete a
row if there is no information in it. I have a very large
spread sheet but a number of the rows are empty and it
would take a considerable amount of time to delete
manually.
.
Go to your "tools" at the top of the worksheet and under
Click to expand...
customize there is a delete key add to your toolbar list
at the top of your worksheet. Be carefull it works fast.
IF that happens just click undo and it will bring back
the last deletion.
 
K

Ken Wright

Just use the following routine.

Sub DeleteEmptyRows()
'John Walkenbach
'Will delete all rows that are entirely blank
LastRow = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub
 
Top