Deleting Multiple Rows?

Posted by Chris Whisonant on September 12, 2000 6:56 PM

Here's the macro I need "repeated."

Rows("2:24").Select
Selection.Delete Shift:=xlUp
End Sub

I have over 18000 rows, and to start the sheet off at row 1 I have data followed by data in row 25. The 24 rows are hours in a day. Rows 2-24 have no data except that column "A" is the date column all the way down the sheet. Row 25 resumes with data and then is blank for the next 23 rows, and so on for the remaining 18000 rows. What needs to be done is the deletion of all the rows with no data.

Any suggestions appreciated,
Chris Whisonant

Posted by Chris Whisonant on September 13, 0100 6:05 AM

Worked without a macro! I appreciate your help Celia. I don't use excel much, but I knew there had to be a way to do it without a macro.

Thanks,
Chris

Posted by Celia on September 12, 0100 7:51 PM

Chris
If you need a macro :-

Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

You can do it without a macro by :-

1.Select column B
2.Go to Edit>GoTo>Special>Blanks and click OK
3.Go to Edit>Delete>EntireRow and click OK

Celia