Delete Empty Rows

  • Thread starter Thread starter kuri
  • Start date Start date
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.
 
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.
 
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
 
-----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.
 
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
 
Back
Top