Visual Basic: eliminazione di righe nel foglio di calcolo

Problema

Ho dati in Sheet2 fino a 900.000 righe e nella colonna Q (la colonna dei valori). Non sono sicuro di come scrivere un VB che apparirà nella colonna Q e se non corrisponde a questi valori 1.0E + 17, 1.0E + 30, 1.5E + 30 THEN eliminano le righe?

Ho sotto questo VB che guarderà i valori esatti e cancellerà quelle file. Ma ho bisogno del contrario che NON è cancellare le righe con quei valori, ma cancellare tutte le altre righe.

 Sub test () Dim rng As Range, Cell As Range, del Come Range 'Per Cancellare ZERO'S & 1e + 22 Set rng = Intersect (Range ("Q: Q"), ActiveSheet.UsedRange) Per ogni cella In rng If (Cell .Value) = "1E + 17" _ O (Cell.Value) = "100000000000000000" _ Oppure (Cell.Value) = "51, 8" _ Oppure (Cell.Value) = "Inf" Quindi Se del Is Nothing Then Set del = Cell Else: Set del = Union (del, Cell) End If End If Next Cell On Error Riprendi Next del.EntireRow.Delete End Sub 

Soluzione

Cambia il seguente:

 Oppure (Cell.Value) = "Inf" Quindi Se del Is Nothing Then _ tp Or (Cell.Value) = "Inf" Allora else If del Is Nothing Then 

Grazie a rizvisa1 per questo suggerimento.