How to Delete Rows

[mike]

I have 'exported' my Yahoo address book. There does not appear to be a
way to just export a portion of the address book. It gave me a CSV file
which I am looking at with Excel 2003.
Each row represents the data for each person in my address book. One of
the columns, G, contains the name(s) of each address list that each
person is in within the book. As a result column G may have anything
from 1 to about 6 entries each seperated by a comma.

One of the address lists I have in the book is called 'trips' . I want
to be able delete any of those rows that do not contain the word
'trips' in column G.

Thanks for any and all help.

 

[Don Guillett]

something like
x=cells(rows.count,"g").end(xlup).row
for each c in range("g2:g"&x)
if c
next

 

[Don Guillett]

just use data>filter>autofilter

or

Sub deleterowstrip()
x = Cells(Rows.Count, "g").End(xlUp).Row
For Each c In Range("g7:g" & x)
If c <> "trips" Then c.EntireRow.Delete
Next

End Sub

 

[Ron de Bruin]

Hi Mike

There are many ways to do this
Manual you can use a custom AutoFilter on the column
"Does not contain" trips

And then delete the visible rows

Or with code see
http://www.rondebruin.nl/delete.htm