Visual Basic - Rijen in spreadsheets verwijderen

Kwestie

Ik heb gegevens in Sheet2 tot 900.000 rijen en tot kolom Q (de kolom met waarden). Ik weet niet zeker hoe ik een VB moet schrijven die in kolom Q staat en of deze niet overeenkomt met de waarden 1.0E + 17, 1.0E + 30, 1.5E + 30 DAN rijen verwijderen?

Ik heb deze VB hieronder, die naar exacte waarden kijkt en die rijen verwijdert. Maar ik heb het omgekeerde nodig dat NIET rijen met die waarden schrapt maar alle andere rijen schrapt.

 Sub test () Dim rng As Range, Cell As Range, del As Range 'voor het verwijderen van ZERO'S & 1e + 22 Set rng = Intersect (Bereik ("Q: Q"), ActiveSheet.UsedRange) voor elke cel in rng If (cel .Waarde) = "1E + 17" _ Of (Cell.Value) = "100000000000000000" _ Of (Cell.Value) = "51.8" _ Of (Cell.Value) = "Inf" Dan Als del Is Nothing Then Set del = Cell Else: Set del = Union (del, Cell) End If End If Next Cell On Error Resume Next del.EntireRow.Delete End Sub 

Oplossing

Verander het volgende:

 Of (Cell.Value) = "Inf" Then If del Is Nothing Then _tp Or (Cell.Value) = "Inf" Then else If del Is Nothing Then 

Dank aan rizvisa1 voor deze tip.