كيف يمكن حذف الصفوف إذا كانت الخلية تحتوي على قيمة أكبر أو أصغر من قيمة معيّنة في Excel؟
قد تحتاج أحيانًا إلى حذف الصفوف في Excel إذا كانت الخلايا في عمود معيّن تحتوي على قيم أكبر أو أصغر من قيمة محددة. ويعرض هذا المقال عدة طرق فعّالة للتعامل مع هذه المهمة.
حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة باستخدام كود VBA
حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة باستخدام Kutools لـ Excel
حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة باستخدام Kutools لـ Excel
حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة باستخدام كود VBA
لنفترض أنك ترغب في حذف الصف بالكامل إذا كانت القيمة في الخلية الموجودة بالعمود D أكبر من أو أصغر من قيمة معيّنة في Excel. يمكنك تنفيذ كود VBA التالي لتحقيق ذلك.
1. اضغط علىAlt + F11 في نفس الوقت لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة. ثم انسخ والصق كود VBA أدناه في نافذة الكود.
كود VBA: حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة في Excel
Public Sub ProcessData()
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) Or (xRg.Columns.Count > 1) Then
MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
Exit Sub
End If
xRg.Range("A1").EntireRow.Insert
Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
xRg.Range("A1") = "Temp"
xRg.AutoFilter 1, ">30000"
Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
On Error GoTo 0
If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Subملاحظة: في الكود أعلاه، تعني >30000 أنك ستحذف الصفوف إذا كانت القيم في الخلايا أكبر من 30000 في عمود معيّن. إذا كنت تريد حذف الصفوف عندما تكون القيم أصغر من رقم معين، فما عليك سوى تغيير العلامة > إلى < ثم إدخال قيمتك المطلوبة.
3. اضغط علىF5 لتشغيل الكود، ثم في مربع الحوار الظاهرKutools لـ Excel، حدد النطاق (عمودًا واحدًا) الذي ستتحقق منه مما إذا كانت الخلايا فيه أكبر أو أصغر من قيمة معينة، ثم انقر على زرموافق. راجع لقطة الشاشة:
بعد ذلك، تُحذف فورًا جميع الصفوف التي تحتوي في العمود D على قيمة خلية تزيد عن 30،000.
حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة باستخدام Kutools لـ Excel
أداةتحديد خلايا محددةمنKutools لـ Excelتساعدك على تحديد جميع الصفوف التي تحتوي على خلايا أكبر أو أصغر من قيمة معينة في عمود معيّن، وبعد ذلك يمكنك حذف جميع الصفوف المحددة دفعة واحدة يدويًّا.
1. حدد العمود الذي تريد حذف الصفوف بناءً عليه، ثم انقر علىKutools > تحديد > تحديد خلايا محددة. راجع لقطة الشاشة:
2. في مربع الحوارتحديد خلايا محددة، يرجى تحديدالصف بأكملهفي قسمنوع التحديد. وفي قسمتحديد النوع، اخترأكبر منأوأصغر منمن القائمة الأولى، وأدخل القيمة المطلوبة في مربع النص التالي، ثم انقر على زرموافق.
3. بعد ذلك، تظهر نافذة منبثقة لإعلامك بعدد الصفوف المحددة. يُرجى النقر على زرموافق. ويمكنك رؤية أن جميع الصفوف التي تحتوي في العمود D على قيم أكبر من 30000 قد تم تحديدها فورًا.
4. انقر بزر الماوس الأيمن على أحد الصفوف المحددة، ثم اخترحذفمن القائمة المنبثقة. وسيتم بذلك حذف جميع الصفوف المحددة.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
حذف الصفوف إذا كانت الخلية أكبر/أصغر من قيمة معينة باستخدام Kutools لـ Excel
بالإضافة إلى الطريقتين السابقتين، يمكنك تصفية جميع الصفوف التي تحتوي على خلايا أكبر أو أصغر من قيمة معيّنة في عمود معيّن، ثم حذف جميع الصفوف المُصَفَّاة بسهولة باستخدام أداةحذف الصفوف والأعمدة المخفية (الظاهرة)منKutools لـ Excel.
1. حدد رأس العمود، ثم انقر علىبيانات > تصفية. راجع لقطة الشاشة:
2. انقر على السهم المنسدل في العمود الذي ستحذف الصفوف بناءً عليه، ثم اخترمرشحات الأرقام > أكبر منأوأصغر منكما في لقطة الشاشة أدناه:
3. في مربع الحوارتصفية تلقائية مخصصة، أدخل الرقم المطلوب بعد خانة «أكبر من» أو «أصغر من»، ثم انقر على زرموافق.
4. بعد ذلك، يتم تصفية جميع الصفوف التي تحتوي على خلايا في العمود D بقيم أكبر أو أصغر من قيمة معيّنة. يمكنك حذف جميع الصفوف المُصَفَّاة عن طريق تحديد البيانات المُصَفَّاة، ثم النقر علىKutools > حذف > حذف الصفوف/الأعمدة المخفية (المرئية). راجع لقطة الشاشة:
5. في مربع الحوارحذف الصفوف/الأعمدة المخفية (المرئية)، تأكد من تحديد خيارالنطاق المحددفي قائمة منسدلةالبحث في، وحددصفوففي قسمنوع الحذف، ثم اختر خيار الصفوف الظاهرة في قسمالنوع التفصيلي، وانقر أخيرًا على زرموافق.
6. بعد ذلك، يتم حذف جميع الصفوف الظاهرة في النطاق المحدد فورًا، ويمكنك إلغاء التصفية بالنقر علىبيانات > تصفية.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
مقالات ذات صلة:
- كيف يمكن حذف جميع الصفوف الموجودة أسفل صف معين أو الخلية النشطة في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل