VBA to delete rows that DON'T contain certain text

[Ashe]

I have data in column B that has multiple codes in it. A majority of the codes aren't needed for what I'm calculating, and instead of writing all the codes what I want deleted, is there a way to code what I codes DON'T want to delete and delete all other rows of data?

Here are the codes I want to KEEP:
LN_OTHER/MISC
LN_LEARNING_STAFF
LN_PITCLASSRM_TRAING
LN_TDRCLASSRM_TRAING

Here's what I currently have for my code, which deletes specified codes:

'Delete any irrelevant data
Dim LastRow As Long, n As Long
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

For n = LastRow To 1 Step -1
If Range("B" & n).Value = "Irrelevant_Code_1" Or _
Range("B" & n).Value = "Irrelevant_Code_2" Or _
Range("B" & n).Value = "Irrelevant_Code_3" Or _
(Etc etc for a lot of rows...) Then
Rows ( n ) .Delete
End If
Next

I could use an autofilter, but I'd prefer to omit the data altogether as I may need to further manipulate the data as I develop this document.

Any help is greatly appreciated! Thanks in advance

 

[Joe4]

Since there are 4 codes you want to keep, how about something structured like this:

Dim LastRow As Long, n As Long
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

For n = LastRow To 1 Step -1
    If Range("B" & n).Value = "Relevant_Code_1" Or _
        Range("B" & n).Value = "Relevant_Code_2" Or _
        Range("B" & n).Value = "Relevant_Code_3" Or _
        Range("B" & n).Value = "Relevant_Code_4" Then
        'Do nothing
    Else
        Rows(n).Delete
    End If
Next

 

[Ashe]

Since there are 4 codes you want to keep, how about something structured like this:

Dim LastRow As Long, n As Long
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row

For n = LastRow To 1 Step -1
    If Range("B" & n).Value = "Relevant_Code_1" Or _
        Range("B" & n).Value = "Relevant_Code_2" Or _
        Range("B" & n).Value = "Relevant_Code_3" Or _
        Range("B" & n).Value = "Relevant_Code_4" Then
        'Do nothing
    Else
        Rows(n).Delete
    End If
Next

I feel so silly. That works perfect, thank you so much!!

 

[jolivanes]

Sub AAAAA()
Dim datArr, keeper As String, i As Long, rng As Range
datArr = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
keeper = "LN_OTHER/MISC|LN_LEARNING_STAFF|LN_PITCLASSRM_TRAING|LN_TDRCLASSRM_TRAING"
For i = LBound(datArr) To UBound(datArr)
If InStr(keeper, datArr(i, 1)) = 0 Then
    If Not rng Is Nothing Then
        Set rng = Union(rng, Cells(i, 1)).EntireRow
            Else
        Set rng = Cells(i, 1).EntireRow
    End If
End If
Next i
rng.Delete
End Sub

 

[Joe4]

You are welcome.
Glad we could help!