how do i delete blank rows?

[Davers]

I'm sure this answer is so simple I'll cry when I hear it...somehow, one of my workbooks got the impression that there is over 65,000 rows in one of the worksheets. Because of this, the file is over 2mb. All my other workbooks have roughly 100 rows...if i select the extra rows, right click and choose delete, more rows take their place. How can I permanently get rid of all the extra rows, and only have the ones that include date show up?

Thanks,

Dave M.

 

[Asala42]

Instead of Deleting, try EditClear All on the extra rows. Then Save and check the filesize.

 

[VoG]

This may help http://www.mvps.org/dmcritchie/excel/lastcell.htm

 

[Jack in the UK]

Hi this is not Jacks work, gawd knows where it came from SORRY to the programmer, pleas let me know and ill post the correct acredatations

Select cell A1 and run, injput number of rows and it will delete what blank in Column A

Or belect B1 and B column blanks will be deleted

HTH

Jack [the codes below plese feel free and link to a standard command buton - oh the code must go in standard module]



Sub Delete_Row()
' Jack deletes rows in ACTIVE Sheet ONLY
Dim Counter
Dim i As Integer
' Input box to determine the total number of rows in the worksheet.
Counter = InputBox("Enter the total number of rows to process")
ActiveCell.Select
' Loops through the desired number of rows.
For i = 1 To Counter
' Checks to see if the active cell is blank.
If ActiveCell = "" Then
Selection.EntireRow.Delete

' Decrements count each time a row is deleted. This ensures
' that the macro will not run past the last row.
Counter = Counter - 1
Else
' Selects the next cell.
ActiveCell.Offset(1, 0).Select
End If

Next i
' If ActiveCell = "" Then
' If Len(Trim(ActiveCell)) = 0 Then
End Sub

 

[Davers]

Thanks to everyone for your replies! I'll try all of those out actually! Thanks for responding so quickly too!!

Have a good day,