Excel - ماكرو لحذف الصف بشرط

يمكن استخدام وحدات الماكرو لعمليات مختلفة في أوراق عمل Excel مثل حذف صفوف تلبي شرطًا معينًا. على الرغم من أن ذلك ليس ضروريًا ، فقد تثبت بعض معرفة مفاهيم البرمجة والحلقات أنها مفيدة لكتابة ماكرو في Excel. يمكن كتابة وحدات الماكرو في Excel لحذف الصفوف التي تفي بشروط معينة من نقطة الصفر أو تطويرها من رمز ماكرو متوفر مجانًا. تعد وحدات الماكرو ميزة مفيدة للغاية ويمكن استخدامها لإنجاز عمليات معالجة البيانات في أوراق عمل Excel مع عدد كبير من السجلات. تقوم وحدات الماكرو في Excel بأتمتة العملية مما يجعل المهمة سريعة وخالية من الأخطاء.

القضية

أحتاج إلى ماكرو لحذف الصفوف عندما لا تحتوي أي من الخلايا الموجودة في الصف على أحد رقمين " 103526 " أو " 103527 "

عدد الصفوف متغير (بحد أقصى 150) وعدد الأعمدة متغير أيضًا (بحد أقصى 100).

أي مساعدة هي موضع تقدير.

حل

حالتك مربكة بالنسبة لي. أنا أعيد صياغتها.

إذا كان الصف يحتوي على 103526 أو 102527 أو كليهما ، فلا تقم بحذفه.

إذا لم يكن أي من الرقمين على التوالي ، فاحذف.

الآن ، أثناء قيامك بحذف الصفوف ، احتفظ بنسخة من البيانات في الورقة 1 إلى الورقة 2 بحيث يمكنك نسخ البيانات إذا كانت هناك فوضى.

البيانات في الأوراق 1 ، حاول هذا الماكرو:

 اختبار فرعي () Dim j As Integer ، k As Integer Dim r As Range ، cfind6 As Range ، cfind7 As أوراق عمل Range ("sheet1"). التنشيط عند استئناف استئناف التالي j = الخلايا (Rows.Count ، "A"). End (xlUp) .Row For k = j To 1 Step -1 Set cfind6 = Rows (k) .Cells.Find (what: = 103526، lookat: = xlWhole) Set cfind7 = Rows (k) .Cells.Find (what: = 103527 ، lookat: = xlWhole) إذا لم يكن cfind6 شيئًا و cfind7 ليس شيئًا بعد الصفوف (k). حذف التالي