Visual Basic - rindu dzēšana izklājlapā

Izdevums

Man ir 2 lapas dati līdz 900 000 rindām un Q slejai (vērtību kolonna). Es neesmu pārliecināts, kā rakstīt VB, kas izskatīsies Q slejā, un ja tas neatbilst šīm vērtībām 1, 0E + 17, 1, 0E + 30, 1, 5E + 30, tad izdzēsiet rindas?

Man ir šis VB, kas izskatīs precīzas vērtības un dzēsīs šīs rindas. Bet man vajag pretējo, kas NAV izdzēš rindas ar šīm vērtībām, bet izdzēš visas pārējās rindas.

 Sub tests () Dim diapazons kā diapazons, šūnu diapazons, del kā diapazons ZERO'S & 1e + 22 dzēšanai Iestatiet rng = krustošanās (diapazons ("Q: Q"), ActiveSheet.UsedRange) katrai šūnai, ja ir (šūnas) .Value) = "1E + 17" _ Or (Cell.Value) = "100000000000000000" _ Or (Cell.Value) = "51.8" _ Or (Cell.Value) = "Inf", tad, ja del ir nekas, tad iestatiet del. = Cell Else: Set del = Savienība (del, Cell) Beigas Ja Beigas Ja Nākamā Cell On Error Resume Next del.EntireRow.Delete End Sub 

Risinājums

Mainiet:

 Vai (Cell.Value) = "Inf" Tad, ja del ir nekas tad _ tp Or (Cell.Value) = "Inf" Tad vēl tad, ja tas ir nekas, tad 

Pateicoties rizvisa1 par šo tip.