Vba code to search and delete Closed

Question

Hello, 

I need to know the code to do the following:

Search in column D for blank spaces and then delete the whole row.

Thanks in advance

PM



Excel 2003
Configuration: Windows XP / Internet Explorer 6.0

rizvisa1 · Answer

you can filter for blank and delete all visible row.  If you want, you can record your action that will give you the macro

Maja WL · Answer

Change last row if you need!

Option Explicit

Sub DelRow()

Range("D1").Select

Do
    If InStr(ActiveCell.Value, " ") > 0 Then
        Rows(ActiveCell.Row).Delete
    Else
        Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
    End If
    
Loop Until ActiveCell.Row = 1000

End Sub

Vba code to search and delete

2 responses

Similar discussions

Subscribe To Our Newsletter!