„Visual Basic“ - eilių ištrynimas skaičiuoklėje

Problema

Turiu duomenis lape 2 iki 900 000 eilučių ir į stulpelį Q (vertės stulpelis). Nesu tikras, kaip parašyti VB, kuris bus rodomas Q stulpelyje, ir jei jis neatitinka šių verčių 1.0E + 17, 1.0E + 30, 1.5E + 30, tada ištrinkite eilutes?

Turiu šią VB žemiau, kuri apžvelgs tikslines vertes ir ištrins šias eilutes. Bet man reikia atvirkštinio, kuris NE ištrina eilutes su šiomis vertėmis, bet ištrina visas kitas eilutes.

 Sub bandymas () Išskirtinis diapazonas, ląstelių kaip diapazonas, del kaip diapazonas „Nulio & 1e + 22 ištrynimui Nustatyti rng = susikirtimas (intervalas („ Q: Q “), „ ActiveSheet “. .Value) = "1E + 17" _ Ar (Cell.Value) = "100000000000000000" _ Ar (Cell.Value) = "51.8" _ Ar (Cell.Value) = "Inf", tada jei del yra nieko, tada nustatykite del. = Ląstelių elementas: nustatyti del = sąjunga (del, ląstelė) pabaiga, jei pabaiga Jei sekanti kintama klaida atnaujinama sekančiai del.EntireRow.Delete End Sub 

Sprendimas

Pakeiskite:

 Arba (Cell.Value) = "Inf" Tada, jei del yra nieko, tada _ tp arba (Cell.Value) = "Inf" Tada dar jei „Del del Nothing“ 

Ačiū rizvisa1 už šį patarimą.