Visual Basic - スプレッドシートの行を削除する

問題

Sheet2のデータは最大90万行、列Q（値列）までです。 Q列を調べるようなVBの書き方がよくわかりません。また、これらの値と一致しない場合は、1.0E + 17、1.0E + 30、1.5E + 30となります。

このVBの下に正確な値を調べてそれらの行を削除します。 しかし、私はそれらの値を持つ行を削除するのではなく、他のすべての行を削除するという逆の操作が必要です。

 Sub test（）範囲を狭める、範囲をセルとする、範囲を削除する＆1e + 22 Set rng = Intersect（範囲（ "Q：Q"）、ActiveSheet.UsedRange）各セルのrng If（Cell） .Value）= "1E + 17" _ Or（Cell.Value）= "100000000000000000" _ Or（Cell.Value）= "51.8" _ Or（Cell.Value）= "Inf"次にdelが何もない場合はdelを設定= Cell Else：次のセルがエラーで終了した場合はdel = Union（del、Cell）が終了次のdel.EntireRow.Deleteが終了Subに設定 

溶液

以下を変更してください。

 Or（Cell.Value）= "Inf"の場合delが何もなければ_ tp Or（Cell.Value）= "Inf"それ以外の場合はdelはNothingです 

このヒントを寄せてくれたrizvisa1に感謝します。