Delete rows which not equal to criteria.

[googleelgoog]

Hi all,

Is there short way (without loop) to delete rows which its cetain cells not equal to criteria?


Example
A
_______
AAA
AAA
BBB
CCCC
AAA


Delete all except "AAA"

Thanks in advance.

 

[onlyadrafter]

Hello,

Can you not sort the column and then delete all non AAA rows.

ALternatively,

Select all the cells ensuring a cell with AAA, select GOTO-->SPECIAL and select COLUMN DIFFERENCES, al non AAA cells will be highlighted, select EDIT-->DELETE and check ENTIRE ROW.

Alternativelty there is a VB way, but you didn't want this.

 

[googleelgoog]

Thanks for the reply,

Alternativelty there is a VB way, but you didn't want this.

Can I learn it?

Thanks.

 

[onlyadrafter]

Hello,

Here is the VB Code

Sub LEAVE_AAA()
For MY_ROWS = Range("A65536").End(xlUp).Row To 1 Step -1
    If Range("A" & MY_ROWS).Value <> "AAA" Then
        Rows(MY_ROWS).Delete
    End If
Next MY_ROWS
End Sub

Are you OK with creating macros?

 

[googleelgoog]

That's what I want.

Thanks a lot.