كيفية العثور على عدة تطابقات وحذفها دفعة واحدة في Excel؟

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

العثور على عدة تطابقات وحذفها دفعة واحدة باستخدام VBA

لقد أنشأنا كودين VBA لمساعدتك في العثور على عدة قيم مختلفة في النطاق المحدد أو عبر أوراق عمل متعددة وحذفها فورًا. يرجى اتباع الخطوات أدناه وتشغيل الكود حسب احتياجاتك.

1. في Excel الخاص بك، اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر إدراج > وحدة. ثم انسخ أحد الكودين التاليين إلى الوحدة النافذة.

كود VBA 1: العثور على عدة تطابقات وحذفها في النطاق المحدد دفعة واحدة

Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ

xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas

On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub

xBol = False
For Each xARg In xRg.Areas
    Set xFindRg = Nothing
    Set xFindRgs = Nothing
    Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next
If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

ملاحظة: في الجزء xArrFinStr = Array("sales", "9", "@") في الصف الثالث عشر، يجب استبدال "sales", "9", "@" بالقيم الفعلية التي تريد العثور عليها وحذفها، تذكر وضع كل قيمة بين علامتي اقتباس مزدوجتين وفصلها بفواصل.

كود VBA 2: العثور على عدة تطابقات وحذفها عبر أوراق عمل متعددة دفعة واحدة

Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
    Set xWSh = xWb.Worksheets(xArr(xI))
    Set xFindRg = Nothing
    xWSh.Activate
    Set xFindRgs = Nothing

    Set xURg = xWSh.UsedRange
    Set xFindRgs = Nothing
    For Each xFindRg In xURg
        For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
            If xFindRg.Text = xArrFinStr(xJ) Then
                xBol = True
                If xFindRgs Is Nothing Then
                    Set xFindRgs = xFindRg
                Else
                    Set xFindRgs = Application.Union(xFindRgs, xFindRg)
                End If
            End If
        Next
    Next
    If Not xFindRgs Is Nothing Then
        xFindRgs.ClearContents
    End If
Next

If xBol Then
    MsgBox "Successfully deleted."
Else
     MsgBox "No results found."
End If
End Sub

3. اضغط على F5 لتشغيل كود VBA. ملاحظة: إذا كنت تستخدم كود VBA 1، ستظهر نافذة منبثقة تسألك لتحديد النطاق الذي تريد العثور فيه على القيم وحذفها. يمكنك أيضًا النقر على علامة ورقة لاختيار الورقة بأكملها.

4. ستظهر نافذة كما هو موضح أدناه لإخبارك بأن الكود قد حذف التطابقات المحددة. انقر موافق لإغلاق النافذة.

5. تم حذف القيم المحددة دفعة واحدة.

العثور على عدة تطابقات وحذفها دفعة واحدة باستخدام ميزة تحديد الخلايا المحددة

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

1. على علامة التبويب Kutools ، في مجموعة تحرير انقر تحديد > تحديد الخلايا المحددة.

2. في نافذة تحديد الخلايا المحددة المنبثقة، يرجى القيام بما يلي:

• في مربع حدد الخلايا داخل النطاق انقر على زر تحديد النطاق على الجانب الأيمن لتحديد النطاق من حيث تريد العثور على القيم وحذفها. ملاحظة: للبحث عبر الورقة بأكملها، انقر على علامة الورقة.
• في قسم نوع التحديد، حدد خيار الخلية.
• في تحديد النوع القسم، قم بتعيين شرطين على الأكثر:
  • انقر على السهم المنسدل على الجانب الأيسر لتحديد العلاقة التي تحتاجها، مثل تحتوي على، يساوي، أقل من، يبدأ بـ، إلخ.
  • اكتب القيمة في المربع المقابل حسب احتياجاتك.
  • حدد العلاقة بين الشرطين (إن وجد): و أو أو.

3. انقر موافق لتحديد الخلايا التي تحقق الشرط(الشروط) التي قمت بتحديدها. ستظهر نافذة منبثقة تخبرك بعدد الخلايا التي تم العثور عليها وتحديدها.

4. انقر موافق. الآن، اضغط على مفتاح DELETE لحذف القيم المحددة دفعة واحدة.

عرض: العثور على عدة تطابقات وحذفها دفعة واحدة في Excel

مقالات ذات صلة