Visual Basic - Rivien poistaminen laskentataulukosta

Ongelma

Minulla on tietoja Sheet2: ssa 900 000 riviin ja sarakkeeseen Q (arvopylväs). En ole varma, miten kirjoittaa VB, joka näyttää sarakkeessa Q ja jos se ei vastaa näitä arvoja 1.0E + 17, 1.0E + 30, 1.5E + 30 TÄSTÄ poista rivit?

Minulla on tämä VB, joka tarkastelee tarkkoja arvoja ja poistaa nämä rivit. Mutta tarvitsen käänteisen, joka EI poista rivejä näiden arvojen kanssa, mutta poista kaikki muut rivit.

 Sub-testi () Dia rng alueena, solualue, del as -alue "ZERO'S & 1e + 22: n poistamiseksi" rng = leikkauspiste (alue ("Q: Q"), ActiveSheet.UsedRange) kullekin solulle, jos olet (Cell .Value) = "1E + 17" _ Or (Cell.Value) = "100000000000000000" _ Or (Cell.Value) = "51.8" _ Tai (Cell.Value) = "Inf" Jos sitten del del ei ole mitään, aseta del. = Cell Else: Aseta del = Unioni (del, Cell) Loppu Jos lopetat Jos seuraava solu on virheessä Jatka seuraavaa del.EntireRow.Delete End Sub 

Ratkaisu

Muuta seuraavia:

 Tai (Cell.Value) = "Inf" Sitten If del ei ole mitään sitten _ tp Tai (Cell.Value) = "Inf" Sitten muuten jos del ei ole mitään sitten 

Kiitos rizvisa1: stä tästä vinkistä.