Visual Basic - Sletter rækker i regneark

Problem

Jeg har data i Sheet2 op til 900.000 rækker og til kolonne Q (værdikolonnen). Jeg er ikke sikker på, hvordan man skriver en VB, der vil se i kolonne Q, og hvis den ikke stemmer overens med disse værdier 1.0E + 17, 1.0E + 30, 1.5E + 30 THEN slette rækker?

Jeg har denne VB nedenfor, som vil se på nøjagtige værdier og slette disse rækker. Men jeg har brug for det omvendte, som IKKE sletter rækker med disse værdier, men slet alle andre rækker.

 Sub-test () Dimension rng Som rækkevidde, Celle som rækkevidde, del som rækkefølge for at slette NULER & 1e + 22 Indstil rng = Intersect (Range ("Q: Q"), ActiveSheet.UsedRange) For hver celle i rng If .Value) = "1E + 17" _ Eller (Cell.Value) = "100000000000000000" _ Eller (Cell.Value) = "51.8" _ Eller (Cell.Value) = "Inf" Så hvis del er intet, sættes derefter del = Cell Else: Set del = Union (del, celle) Afslut hvis ende, hvis næste celle på fejl genoptages næste del.EntireRow.Delete End Sub 

Opløsning

Skift følgende:

 Eller (Cell.Value) = "Inf" Så hvis del er Intet, så _ tp Eller (Cell.Value) = "Inf" Så ellers Hvis del er Intet så 

Takket være rizvisa1 for dette tip.