كيف يمكن حذف الصفوف التي تحتوي على قيم مفقودة أو فارغة في أعمدة معيّنة في Excel؟
في Excel، يُعد التعامل مع القيم المفقودة أو الفارغة خطوةً أساسية لتنظيف البيانات وتحليلها بدقة. ويعرض هذا الدليل طريقة حذف الصف بأكمله تلقائيًا عند اكتشاف خلايا فارغة ضمن عمود محدد باستخدام نص برمجي VBA.
حذف الصفوف عند وجود قيم مفقودة/فارغة في أعمدة معيّنة باستخدام كود VBA
حذف الصفوف عند وجود قيم مفقودة/فارغة في أعمدة معيّنة باستخدام كود VBA
افترض أنك تريد حذف الصفوف التي تحتوي على قيمة مفقودة في العمود B أو العمود D، كما يظهر في لقطة الشاشة أدناه. يمكنك تنفيذ كود VBA التالي لتحقيق ذلك.

1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر فوقإدراج > وحدة نمطية (Module). بعد ذلك، انسخ والصق كود VBA أدناه في نافذة الكود.
كود VBA: حذف الصفوف عند وجود قيم مفقودة/فارغة في أعمدة معيّنة
Sub DeleteRows()
Dim I As Integer
Dim xCount As Integer
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
Exit Sub
End If
xCount = xRg.Rows.Count
For I = xCount To 1 Step -1
If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
xRg.Rows(I).EntireRow.Delete
End If
Next
End Sub 3. اضغط على مفتاحF5 لتشغيل الكود. بعد ذلك، ستظهر نافذة مربع حوارKutools لـ Excel؛ قم بتحديد نطاق الأعمدة الذي تريد التحقق مما إذا كانت تحتوي على قيم مفقودة أم لا، ثم انقر فوق زرموافق.

بعد النقر فوق زرموافق، سيتم حذف جميع الصفوف التي تحتوي على قيم مفقودة في العمودين B أو D فورًا. راجع لقطة الشاشة:

ملاحظة: لا يمكنك تحديد نطاقات متعددة للعمل عليها في آنٍ واحد. إذا كانت القيم المفقودة موزَّعة على أعمدة متعددة وترغب في حذف جميع الصفوف التي تحتويها، كرِّر الخطوة 3 لكل عمود على حدة.
املأ جميع الخلايا الفارغة بقيمة معيّنة في Excel بسهولة
أداةملء الخلايا الفارغة منKutools لـ Excelتساعدك على معالجة الخلايا الفارغة في Excel بسهولة. فعلى سبيل المثال، يمكنك ملء جميع الخلايا الفارغة ضمن نطاق محدَّد بقيمة ثابتة، أو ملء الخلايا الفارغة استنادًا إلى القيمة الموجودة أعلى الخلية أو أسفلها أو يسارها أو يمينها، بل ويمكنك حتى ملؤها باستخدام سلسلة خطية. راجع لقطة الشاشة التالية:

Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
مقالات ذات صلة:
- كيف يمكن حذف الصفوف إذا كانت الخلية تحتوي على قيمة أكبر أو أصغر من قيمة معيّنة في Excel؟
- كيف يمكنني حذف جميع الصفوف في Excel باستثناء صف العنوان الأول؟
- كيف يمكن حذف جميع الصفوف الموجودة أسفل صف معيّن أو الخلية النشطة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل