جدول المحتويات
إذا كنت تبحث عن بعض أسهل الطرق لحذف الصف باستخدام VBA ، فأنت في المكان الصحيح.
دعنا نتعمق في المقالة الرئيسية.
تنزيل المصنف
VBA Delete Row.xlsm
14 طريقة لحذف الصف باستخدام VBA
هنا ، لدي البيانات الثلاثة جداول لإظهار طرق حذف الصفوف باستخدام فبا . يحتوي الجدول الأول على بعض منتجات للشركة و مقاساتها ، الأسعار .
الثاني يحتوي المرء على بعض أكواد المنتج وما يقابلها مقاسات المنتج و الأسعار
ويحتوي الأخير بعض أسماء المشاريع وتواريخ البدء الخاصة بها وتواريخ البدء و التكاليف .
لإنشاء المقالة ، استخدمت إصدار Microsoft Excel 365 ، يمكنك استخدام أي إصدارات أخرى وفقًا لراحتك.
الطريقة الأولى: حذف صف واحد باستخدام VBA
لنفترض ، أنت تريد حذف الصف الذي يحتوي على المنتج الحذاء 1 ، ولحذف هذا الصف الفردي ، يمكنك اتباع هذه الطريقة.
الخطوة 01 :
انتقل إلى المطور Tab & gt؛ & gt؛ Visual Basic الخيار
بعد ذلك ، سيتم فتح محرر Visual Basic .
➤ انتقل إلى إدراج Tab & gt؛ & gt؛ الوحدة النمطية الخيار
بعد ذلك ، سيتم إنشاء وحدة .
الخطوة -02 :
➤ اكتب المجلد كود التخفيض
6257
هنا ، "مفرد" هواتحاد نطاقات متعددة تتوافق مع الخلايا التي لها التاريخ 11/12/2021 ، وأخيراً ، سيتم حذف النطاقات.
➤Press F5
النتيجة :
بعد ذلك ، ستحذف الصفوف التي لها تاريخ معين هو 11/12/2021 .
المحتوى المرتبط: Excel VBA لحذف صفوف ببيانات محددة (9 أمثلة)
ممارسة القسم
للقيام بالممارسة بنفسك ، قمنا بتوفير قسم تدريب كما هو موضح أدناه في ورقة باسم ممارسة . الرجاء القيام بذلك بنفسك.
الاستنتاج
في هذه المقالة ، حاولت تغطية أسهل الطرق لاستخدام VBA بشكل فعال من أجل حذف الصفوف. اتمنى انك ستجده مفيدا. إذا كان لديك أي اقتراحات أو أسئلة ، فلا تتردد في مشاركتها في قسم التعليقات.
اسم ورقة العمل ، و الصفوف (7)سيحدد رقم الصف..EntireRow.Delete سيحذف الصف بأكمله 7.
➤ اضغط F5
النتيجة :
بهذه الطريقة ، ستحذف الصف الذي يحتوي على اسم المنتج الحذاء 1 .
اقرأ المزيد: كيفية حذف الصفوف في Excel: 7 الأساليب
الطريقة الثانية: حذف عدة صفوف باستخدام VBA
إذا كنت تريد حذف صفوف متعددة مثل الصفوف التي تحتوي على أسماء المنتج Shoe1 ، Shoe2 ، ، Shoe3 ، ثم يمكنك اتباع هذا الرمز VBA .
الخطوة 01 :
اتبع الخطوة 01 من الطريقة 1
9207
هنا ، أرقام الصفوف 13 ، 10 ، وسيتم حذف 7 وكتابة أرقام الصفوف بشكل تسلسلي يجب عليك كتابتها من رقم الصف الأخير إلى رقم الصف الأول مثل هذا الرمز. الصفوف الموجودة أسفل هذا الصف ستتحرك صفًا واحدًا للأعلى ، وبالتالي سيكون الصف 10 هو الصف 9 ، والصف 13 سيكون الصف 12. ason ، لن تتمكن من حذف الصفوف الصحيحة.
➤ اضغط F5
النتيجة :
بعد ذلك ، ستحذف الصفوف التي تحتوي على أسماء المنتج الحذاء 1 ، الحذاء 2 ، و الحذاء 3 .
اقرأ المزيد: كيفية حذف صفوف متعددة في Excel (3 طرق)
الطريقة الثالثة : حذف صف عن طريق تحديد
هنا ، سأوضح طريقة حذف صففيما يتعلق بالخلية النشطة لهذا الصف.
الخطوة -01 :
➤ اتبع الخطوة -01 من الطريقة 1
2020
ستحذف الصف الذي يحتوي على خلية نشطة.
➤ احفظ الكود.
الخطوة 02 :
➤ حدد أي خلية في الصف الذي تريد حذفه (هنا قمت بتحديد الخلية B7 )
➤انتقل إلى المطور Tab & gt؛ & gt؛ وحدات الماكرو الخيار
بعد ذلك ، الماكرو سيتم فتح المعالج.
➤ حدد اسم الماكرو dltrow3 واضغط تشغيل
النتيجة :
بعد ذلك ، ستحذف الصف الذي يحتوي على اسم المنتج الحذاء 1 .
الطريقة الرابعة: حذف كل الصفوف في التحديد
لحذف كل صفوف التحديد ، يمكنك اتباع هذه الطريقة.
الخطوة 01 :
➤Follow الخطوة -01 من الطريقة الأولى
6159
ذلك سيحذف جميع صفوف التحديد.
➤ احفظ الكود.
الخطوة -02 :
➤ حدد نطاق الصفوف التي تريد حذفها (هنا ، لقد حددت النطاق B7: D9 )
➤ انتقل إلى المطور Tab & gt؛ & gt؛ وحدات الماكرو الخيار
بعد ذلك ، سيتم فتح معالج ماكرو .
➤ حدد اسم الماكرو dltrow4 واضغط على تشغيل
النتيجة :
بعد ذلك ، ستقوم بحذف الصفوف التي تحتوي على أسماء المنتج الحذاء 1 ، Jacket1 ، و Jacket2 .
اقرأ المزيد: كيفية حذف الصفوف المحددة في Excel (8 مناهج)
الطريقة الخامسة: حذف صف إذا كانت أي خلية فارغة
هنا ، لدي خلية فارغة هي B9 (لقد أزلت القيمة من هذه الخلية لهذا الغرض طريقة) ، وباستخدام كود VBA سأحذف الصف الذي يحتوي على خلية B9 .
الخطوة -01 :
➤ اتبع الخطوة 01 من الطريقة الأولى
2269
ستحذف جميع الصفوف الموجودة في النطاق “B5: D13” بها أي خلية فارغة.
➤ اضغط F5
النتيجة :
بعد ذلك ، ستتمكن من حذف الصف الذي يحتوي على الخلية الفارغة.
اقرأ المزيد: كيفية إزالة الصفوف الفارغة في Excel (11 طريقة)
الطريقة السادسة: حذف صف إذا كان الصف بأكمله فارغًا
هنا ، لدي خلية فارغة وهي B9 (لقد أزلت قيم هذه الطريقة) ، وصف فارغ وهو الصف 12 (لقد أزلت قيم هذه الطريقة) ، وباستخدام كود VBA و وظيفة COUNTA سأحذف الصف الفارغ.
الخطوة -01 :
➤ اتبع الخطوة -01 من الطريقة 1
2173
“B5: D13” هو نطاق البيانات و FOR ستعمل الحلقة لكل خلية في هذا النطاق.
سيعيد CountA (cell.EntireRow) عدد الخلايا غير الفارغة وعندما يصبح صفرًا ، سيتم حذف الصف.
➤ اضغط F5
النتيجة :
بعد ذلك ، ستتمكن من حذف الصف الفارغ ولكنه لن يحذف أي صف لا يحتوي على جميع خلايا هذا الصف فارغة.
اقرأ المزيد: كيفية استخدام VBA لحذف الصفوف الفارغة في Excel
الطريقة 7: حذف كل صف ن
يمكنك حذف كل صف ن (في هذه الحالة كل صف ثالث) باتباع هذه الطريقة.
الخطوة -01 :
➤ اتبع الخطوة -01 من الطريقة -1
9163
"B5 : D13 " هو نطاق البيانات و rc سيعيد رقم الصف الإجمالي لهذا النطاق وهو 9 .
هنا ، FOR ستبدأ الحلقة من الصف الأخير الذي هو rc أو 9 في هذه الحالة وتنتهي بالصف الأول.
الخطوة -3 <سيساعد 2> في حذف كل ثالث صف في هذا النطاق.
➤Press F5
النتيجة :
بعد ذلك ، ستقوم بحذف الصفوف التي تحتوي على أسماء المنتج الحذاء 1 ، الحذاء 2 ، و Shoe3 .
اقرأ المزيد: كيفية الحذف كل nth R ow في Excel (أسهل 6 طرق)
قراءات مماثلة:
- كيفية حذف الصفوف المحددة باستخدام Excel VBA (خطوة- إرشادات خطوة بخطوة)
- حذف الصفوف غير المستخدمة في Excel (8 طرق سهلة)
- كيفية حذف الصفوف المخفية في Excel (3 طرق)
- حذف الصفوف اللانهائية في Excel (5 طرق سهلة)
- كيفية حذف الصفوف في Excel التي تستمر إلى الأبد (4 سهلةالطرق)
الطريقة الثامنة: حذف الصف استنادًا إلى قيمة الخلية
في هذه الطريقة ، سأحذف الصف الذي يحتوي على قيمة محددة القميص 2 .
الخطوة -01 :
➤ اتبع الخطوة -01 من الطريقة- 1
8261
“B5: D13” هو نطاق البيانات وستعمل الحلقة FOR لكل خلية في هذا النطاق.
إذا كانت أي خلية في صف تحتوي على القيمة "القميص 2" فسيتم حذف الصف.
➤ اضغط F5
النتيجة :
بهذه الطريقة ، ستحذف الصف الذي يحتوي على اسم المنتج القميص 2 .
اقرأ المزيد: VBA Macro لحذف الصف إذا كانت الخلية تحتوي على قيمة في Excel (طريقتان)
الطريقة 9: حذف الصفوف المكررة
هنا ، لدي صفان بهما رمز المنتج 97375 ولذا أريد حذف أحد هذه الصفوف المميزة بعلامة مربع أحمر أدناه.
الخطوة -01 :
➤ اتبع الخطوة -01 من الطريقة الأولى
2205
هنا ، "B5: D13" هو نطاق البيانات و الأعمدة: = 1 أنا الجواب سيبحث عن القيم المكررة في عمود واحد فقط وهو عمود البداية العمود B ولكن إذا كنت تريد البحث في أعمدة أخرى أيضًا ، يمكنك استخدام هذا الرقم وفقًا لاحتياجاتك.
➤ اضغط على F5
النتيجة :
بعد ذلك ، ستتمكن من حذف الصف الذي مشابه لصف آخر.
اقرأ المزيد: كيفية حذف الصفوف المكررة فيExcel مع VBA (8 طرق فعالة)
الطريقة العاشرة: حذف الصفوف في جدول
افترض أن لديك الجدول التالي الذي اسمه جدول 1 و الآن تريد حذف الصف رقم 6 من هذا الجدول. للقيام بذلك ، يمكنك اتباع هذه الطريقة.
الخطوة -01 :
➤ اتبع الخطوة 01 من الطريقة -1
3015
هنا ، "الجدول" هو اسم الورقة ، "Table1" هو اسم الجدول و 6 هو رقم صف هذا الجدول الذي تريد حذفه.
➤ اضغط F5
النتيجة :
بهذه الطريقة ، ستحذف الصف الذي تريده من هذا الجدول.
اقرأ المزيد: كيفية إزالة الصفوف المكررة استنادًا إلى عمود واحد باستخدام Excel VBA
الطريقة 11: حذف الصفوف المرئية بعد التصفية
هنا ، لدي جدول بيانات تمت تصفيته بواسطة العمود السعر للقيم التي تزيد عن 1500.00 دولار وأريد حذف جميع الصفوف المرئية بعد التصفية.
الخطوة 01 :
➤ اتبع الخطوة 01 من الطريقة الأولى
7073
هنا ، "B5: D13 ” هو نطاق البيانات.
➤Press F5
الآن ، ستعمل جميع الصفوف المرئية بعد التصفية يتم حذفها. يمكنك الآن إعادة الصفوف المخفية من خلال تحديد علامة تصفية في عمود السعر .
➤ انقر فوق حدد الكل الخيار
➤ اضغط موافق
النتيجة :
أخيرًا ، ستحصل على الصفوف المخفية مرة أخرىجدول البيانات.
اقرأ المزيد: كيفية تصفية الصفوف وحذفها باستخدام VBA في Excel (طريقتان)
الطريقة 12: حذف الصف استنادًا إلى آخر خلية نشطة
هنا ، آخر خلية نشطة لدي هي الخلية B13 وأريد حذف هذا الذي يحتوي على آخر خلية نشطة مما يلي جدول البيانات.
الخطوة -01 :
➤Follow الخطوة -01 من الطريقة -1
2140
هنا ، 2 تعني العمود B الذي لدي خليتي النشطة فيه ، يمكنك تغيير الرقم وفقًا لاحتياجاتك.
اضغط على F5
النتيجة :
بهذه الطريقة ، ستحذف آخر صف نشط.
اقرأ المزيد: كود Excel VBA لحذف الصفوف بناءً على قيمة الخلايا المتعددة (3 معايير)
الطريقة 13: حذف الصفوف التي تحتوي على أي سلاسل
افترض أنك تريد حذف الصفوف التي تحتوي على أي سلسلة ، وللقيام بذلك يمكنك اتباع هذه الطريقة.
الخطوة -01 :
➤ اتبع الخطوة -01 من الطريقة -1
2151
هنا ، "سلسلة" هو اسم الورقة ، رقم الصف الأول من نطاق البيانات هذا هو 5 ورقم عمود البداية هو 2
تتيح لك العبارة مع تحديد كائن أو النوع المعرف من قبل المستخدم مرة واحدة لسلسلة كاملة من العبارات.
في خطأ استئناف التالي العبارة تحدد أنه عند حدوث خطأ وقت التشغيل ، ينتقل عنصر التحكم إلى العبارة التي تلي العبارة حيث حدث الخطأ.
LastRow و LastColumn إرجاع الصف والعمود الأخير من نطاق البيانات.
SpecialCells (xlCellTypeConstants ، xlTextValues) ستحدد الصفوف التي تحتوي على أي قيم نصية في النطاق.
➤ اضغط F5
النتيجة :
بعد ذلك ، احذف الصفوف التي تحتوي على أي سلسلة نصية.
اقرأ المزيد: Excel Shortcut to Delete Rows (with Bonus Techniques)
الطريقة 14: حذف الصف استنادًا إلى التواريخ
هنا ، سأحذف الصفوف التي لها تاريخ خاص 11/12/2021 (mm / dd / yyyy) في هذا الطريقة باستخدام وظيفة DATEVALUE .
الخطوة -01 :
➤ اتبع الخطوة- 01 من الطريقة الأولى
8409
هنا ، "التاريخ" هو اسم الورقة ، ورقم الصف الأول من نطاق البيانات هذا هو 5 وعمود المعايير (أي العمود يحتوي على تواريخ) الرقم هو 3 .
تتيح لك العبارة مع تحديد كائن أو نوع معرف من قبل المستخدم مرة واحدة لسلسلة كاملة من العبارات.
On Error Resume Next تحدد العبارة ، عند حدوث خطأ وقت التشغيل ، ينتقل عنصر التحكم إلى العبارة التي تتبع العبارة التي يحدث فيها الخطأ.
LastRow تُرجع الصف الأخير من نطاق البيانات وهنا ، FOR ستبدأ الحلقة من الصف الأخير الذي هو LastRow أو 6 في هذه الحالة ، وتنتهي بالصف الأول.
DATEVALUE سيحول تاريخ النص إلى قيمة.
هنا ، Union سيعيد
