Delete certain rows

  • Thread starter Thread starter Annette
  • Start date Start date
A

Annette

How do I programically find and delete only rows with "* / *" in column D?
 
Hi Annette
try
Sub delete_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).row
For RowNdx = LastRow To 1 Step -1
If Cells(RowNdx, "D").Value = "* /*" Then
Rows(RowNdx).Delete
End If
Next RowNdx
End Sub
 
oops ... I didn't ask this right ... what if it is wild card ... any text
before "/" and any text after ...
 
Hi Annette
do you want to delete the entire row if column D contains the sign '/'.
If yes change the line
If Cells(RowNdx, "D").Value = "* /*" Then

to
If InStr(Cells(RowNdx, "D").Value, "/") Then
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Delete rows takes forever 4
Macro for fast deletion of rows that conatin certain data. 2
Paste in column B using Last row of either column B, C or D. 10
Would love to write macro to delete any row that DOESN'T containspecific text.. 6
Transfer array element offset value to a matched value 3
Delete 0 - Column D and Column F 3
Help with macro to delete rows 10
Want to delete rows based on a condition 9

Back
Top