Visual Basic - Διαγραφή γραμμών σε υπολογιστικό φύλλο

Θέμα

Έχω δεδομένα στο Sheet2 μέχρι 900.000 σειρές και στη στήλη Q (στήλη τιμών). Δεν είμαι σίγουρος πώς να γράψω ένα VB που θα δούμε στη στήλη Q και αν δεν ταιριάζει με αυτές τις τιμές 1.0E + 17, 1.0E + 30, 1.5E + 30 THEN διαγραφή σειρών;

Έχω αυτό το VB παρακάτω που θα εξετάσει τις ακριβείς τιμές και θα διαγράψει αυτές τις σειρές. Αλλά χρειάζομαι το αντίστροφο που ΔΕΝ διαγράφει σειρές με αυτές τις τιμές αλλά διαγράφω όλες τις άλλες σειρές.

 ("Q: Q"), ActiveSheet.UsedRange) Για κάθε κελί σε rng Εάν (Cell (Cell.Value) = "51.8" ή (Cell.Value) = "Inf" Στη συνέχεια, εάν δεν υπάρχει τίποτα τότε Set del = Κυτταρικός άλλος: Ορισμός del = Union (del, κυψέλη) Τέλος αν τελειώσει Εάν επόμενο κελί στο σφάλμα συνεχίζεται Επόμενο del.EntireRow.Delete End Sub 

Λύση

Αλλάξτε τα εξής:

 Ή (Cell.Value) = "Inf" Στη συνέχεια, αν δεν υπάρχει Τίποτα Τότε _ tp Ή (Cell.Value) = "Inf" Τότε αλλιώς Εάν δεν υπάρχει Τίποτα Τότε 

Χάρη στην rizvisa1 για αυτή την συμβουλή.