delete next cell
This will clear the contents of the entire row if the value in A of the
current row ends with "D". Once completed, you would then need to sort
your data to remove the empty rows.
Sub test()
For Each cell In Range("A1:A" & Range("A65536").End(xlUp).Row)
If Right(cell, 1) = "D" Then cell.EntireRow.ClearContents
Next cell
End Sub
HTH,
Paul
"delmac" wrote in message
...
Hi all, I've 2 columns:about 500 rows long. I dont need the rows where
column
A contains a number ending in D such as 123-D. can anyone suggest a quick
way
of deleting theses. I have over 10 sheets with hundreds of items . Thanks
agin.
A B
100-C Description
123-D Description
130-D Description
500-T Description
--
delmac
|