Filter text from a multivalued cell

Hi

i am in search of macro which would fetch me a searched text from a multivalued column.The search result shoudl hide all other rows which does display the match

In the below example i am searching for text "TOP" from the 6 row
Before.jpg

after search the output retures me 3 rows
After.jpg

Hi
this macro will delete the entire row of any cell in the selected range that doe not include "top" - is that what you want?

Sub delete_rows()
Dim cc As Range
For Each cc In Selection.Cells
    If Replace(cc, "top", "") = cc Then cc.EntireRow.Delete
Next cc
End Sub

Thanks Nicky for your reply, but this does not help me.

Let me rephrase my problem statement.

Macro will do the floowing task.

1.Search a text from a particular column. and
2.Displayed only the those rows which matches the text


Note : The cell in a column could have multiple values.


example: Macro after searching a text "Top" say, column "D" the resultant output will display rows having "Top" in column D ...like xyztop, topxyz...top-xyz , xyz-top....or just top ..all other rows not matching are hidden(or not displayed)

Hi
I'm not quite sure what you mean by "displayed"

this macro will hide all rows in the selected cells not contaning "top":

Sub hide_rows()
Dim cc As Range
For Each cc In Selection.Cells
    If Replace(cc, "top", "") = cc Then cc.EntireRow.Hidden = True
Next cc
End Sub

and this will copy all cells including "top" into a new column, starting at cell D2 (or change "destcell" to suit)

Sub copy_values()
Dim cc As Range, x As Long, DestCell As Range
Set DestCell = Range("D2")
For Each cc In Selection.Cells
    If Replace(cc, "top", "") <> cc Then
        cc.Copy Destination:=DestCell
        Set DestCell = DestCell.Offset(1, 0)
    End If
Next cc
End Sub