Visual Basic - حذف الصفوف في جدول البيانات

القضية

لدي بيانات في الورقة 2 تصل إلى 900000 صف وإلى العمود Q (عمود القيم). لست متأكدًا من كيفية كتابة VB الذي سيبحث في العمود Q وإذا كان لا يتطابق مع هذه القيم 1.0E + 17 ، 1.0E + 30 ، 1.5E + 30 ثم حذف الصفوف؟

لدي هذا VB أدناه والتي سوف ننظر في القيم الدقيقة وحذف تلك الصفوف. لكنني أحتاج إلى عكس ذلك وهو عدم حذف الصفوف التي تحتوي على هذه القيم ولكن حذف جميع الصفوف الأخرى.

 اختبار فرعي () Dim rng As Range ، Cell As Range ، del As Range 'لحذف ZERO'S & 1e + 22 Set rng = Intersect (Range ("Q: Q") ، ActiveSheet.UsedRange) لكل خلية في rng If (Cell .Value) = "1E + 17" _ أو (Cell.Value) = "100000000000000000" _ أو (Cell.Value) = "51.8" _ أو (Cell.Value) = "Inf" ، إذا كان del is Nothing ، ثم تعيين del = خلية أخرى: Set del = Union (del، Cell) End If End إذا الخلية التالية On Error استئناف التالي del.EntireRow.Delete End Sub 

حل

تغيير ما يلي:

 أو (Cell.Value) = "Inf" ثم إذا كان del هو Nothing Then _ tp أو (Cell.Value) = "Inf" ثم آخر إذا كان del هو Nothing Then 

بفضل rizvisa1 لهذه النصيحة.