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

1. حدد النطاق الذي ستزيل فيه الصفوف بناءً على قيمة خلية معينة ، وافتح مربع الحوار "بحث واستبدال" بالضغط على Ctrl + F مفاتيح في نفس الوقت.

2. في مربع الحوار Find and Replace ، يرجى كتابة قيمة خلية معينة (في حالتنا ، نقوم بإدخال سو) داخل ال Find what مربع ، وانقر فوق Find All زر. انظر لقطة الشاشة الأولى أدناه:

3. حدد جميع نتائج البحث أسفل مربع الحوار "بحث واستبدال" ، وأغلق مربع الحوار هذا. (ملاحظة: يمكنك تحديد إحدى نتائج البحث ، ثم Ctrl + A مفاتيح لتحديد جميع النتائج التي تم العثور عليها. انظر لقطة الشاشة الثانية أعلاه).
وبعد ذلك يمكنك أن ترى تم تحديد جميع الخلايا التي تحتوي على قيمة معينة.

4. انتقل إلى النقر بزر الماوس الأيمن فوق الخلايا المحددة وحدد ملف Delete من قائمة النقر بزر الماوس الأيمن. ثم تحقق من ملف Entire row الخيار في مربع الحوار المنبثق حذف ، وانقر فوق OK زر. سترى الآن إزالة جميع الخلايا التي تحتوي على قيمة معينة. انظر لقطات أدناه:

وبعد ذلك تم حذف صفوف كاملة بناءً على قيمة معينة بالفعل.

باستخدام رمز فبا التالي ، يمكنك حذف الصفوف ذات قيمة خلية معينة بسرعة ، يرجى اتباع الخطوات التالية:

1. اضغط على Alt + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic for applications نافذة او شباك،

2. انقر Insert > Module، وأدخل الكود التالي في الوحدة النمطية:

فبا: قم بإزالة الصفوف بأكملها بناءً على قيمة الخلية

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. ثم انقر فوق Run زر لتشغيل الكود.

4. في مربع الحوار المنبثق ، يرجى تحديد النطاق الذي ستزيل فيه الصفوف بناءً على قيمة معينة ، وانقر فوق OK .

5. في مربع حوار آخر ، يرجى كتابة القيمة المعينة التي ستزيل الصفوف بناءً عليها ، والنقر فوق OK زر. انظر لقطة الشاشة:

وبعد ذلك سترى تم حذف صفوف كاملة بناءً على القيمة المحددة بالفعل.

إذا كنت قد قمت بتثبيت Kutools for Excel، في Select Specific Cells يمكن أن تساعدك الميزة في حذف الصفوف ذات القيمة المحددة بسرعة. الرجاء القيام بما يلي:

1. حدد النطاق الذي ستقوم بإزالة الصفوف بناءً على قيمة معينة ، وانقر فوق Kutools > Select > Select Specific Cells. انظر لقطة الشاشة:

2. في مربع حوار فتح الخلايا المحددة ، يرجى التحقق Entire row الخيار، حدد Contains من Specific type القائمة المنسدلة ، أدخل القيمة المحددة في المربع الأيمن ، وانقر فوق Ok زر (انظر الصورة أعلاه).
بعد تطبيق هذه الميزة ، سيظهر مربع حوار ويظهر لك عدد الخلايا التي تم العثور عليها بناءً على المعايير المحددة. الرجاء الضغط على OK زر لإغلاقه.

3. الآن يتم تحديد صفوف كاملة بقيمة معينة. يرجى النقر بزر الماوس الأيمن فوق الصفوف المحددة ، والنقر فوق Delete من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة أدناه:

ملاحظة: هذا Select Specific Cells تدعم الميزة حذف الصفوف بواحدة أو قيمتين معينتين. لحذف الصفوف بناءً على قيمتين محددتين ، يرجى تحديد قيمة أخرى في Specific type قسم من مربع الحوار Select Specific Cells كما هو موضح في لقطة الشاشة التالية:

في بعض الحالات ، قد تحتاج إلى إزالة الصفوف بناءً على قيم خلايا متعددة من عمود / قائمة أخرى في Excel. هنا سوف أعرض Kutools for Excel's Select Same & Different Cells ميزة لحلها بسرعة وسهولة.

1. انقر Kutools > Select > Select Same & Different Cells لفتح مربع الحوار Select Same & Different Cells.

2. في الافتتاح Select Same & Different Cells مربع الحوار ، يرجى القيام بما يلي (انظر لقطة الشاشة):

(1) في Find values in مربع ، الرجاء تحديد العمود حيث ستجد قيم معينة ؛
(2) في According to مربع ، يرجى تحديد العمود / القائمة ذات القيم المتعددة التي ستحذف الصفوف بناءً عليها ؛
(3) في Based on القسم ، يرجى التحقق من Each row الخيار.
(4) في Find القسم ، يرجى التحقق من Same Values الخيار.
(5) تحقق من Select entire rows الخيار في الجزء السفلي من فتح مربع الحوار.
ملاحظة: إذا احتوى عمودان محددان على نفس الرأس ، فيرجى التحقق من My data has headers الخيار.

3. انقر على Ok زر لتطبيق هذه الأداة. ثم يظهر مربع حوار ويظهر عدد الصفوف التي تم تحديدها. فقط انقر فوق ملف OK زر لإغلاقه.

وبعد ذلك تم تحديد جميع الصفوف التي تحتوي على قيم من بين القائمة المحددة.

4. انقر Home > Delete > Delete Sheet Rows لحذف كل الصفوف المختارة.