View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Pele[_2_] Pele[_2_] is offline
external usenet poster
 
Posts: 5
Default Delete blank rows in Excel with macro

I had posted this problem earlier but I then realized that
I had not explained myself properly (hence my reposting
it).

I have a report downloaded into excel and I need to clean
the report to remove blank rows and embedded field names.
Below is a macro I tried to use, but it's not working. I
want to be able to check the contents of column A and
decide if it is blank or whether it contains the field
name called "Plnt". If the cell is blank or contains the
text "plnt", then the macro should delete the row and move
on to check the next row.

Please help if you know what to do.

Pele

Sub MacDeleterows()
'
' MacDeleterows Macro
'

Range("a2").Select
Do Until ActiveCell.SpecialCells(xlCellTypeLastCell)

If ActiveCell = "" Or ActiveCell = "plnt" Then
Selection.EntireRow.Delete
'ActiveCell.Offset(1, 0).Select
'Range("A1").Select
'ActiveCell.SpecialCells(xlLastCell).Select
End If
Loop
End Sub