Visual Basic - Vymazanie riadkov v tabuľke

Problém

Mám údaje v List2 až do 900 000 riadkov a do stĺpca Q (stĺpec hodnôt). Nie som si istý, ako napísať VB, ktorý bude vyzerať v stĺpci Q a ak nezodpovedá týmto hodnotám 1.0E + 17, 1.0E + 30, 1.5E + 30 THEN vymazať riadky?

Mám tento VB, pod ktorým sa pozriete na presné hodnoty a vymažete tieto riadky. Ale potrebujem reverz, ktorý nie je odstrániť riadky s týmito hodnotami, ale odstrániť všetky ostatné riadky.

 Subtest () Dim rng As Range, Cell As Range, del As Range 'Na vymazanie nuly & 1e + 22 Set rng = Prienik (Rozsah ("Q: Q"), ActiveSheet.UsedRange) Pre každú bunku v rng Ak (Cell .Value) = "1E + 17" _ Alebo (Cell.Value) = "100000000000000000" _ Alebo (Cell.Value) = "51.8" _ Alebo (Cell.Value) = "Inf" Potom Ak sa del delí, potom sa delí del = Cell Else: Set del = Union (del, Cell) End If End Ak je ďalšia bunka On Error Resume Next del.EntireRow.Delete End Sub 

Riešenie

Zmeniť nasledujúce položky:

 Alebo (Cell.Value) = "Inf" Potom Ak je del Nothing Then _ tp Alebo (Cell.Value) = "Inf" Potom inde Ak del Is Nothing Then 

Vďaka rizvisa1 pre tento tip.