كيف يمكنك العثور على تطابقات متعددة وحذفها دفعة واحدة في Excel؟
عند العمل مع بيانات كبيرة في Excel، من الضروري أن تكون قادرًا على العثور بسرعة على المعلومات التي تحتاجها في أي لحظة. وهنا تأتي أهمية ميزة البحث والاستبدال، التي تساعدك على العثور على قيم أو تنسيقات محددة وتمييزها عبر ورقة العمل الحالية أو المصنف بأكمله، ثم تنفيذ ما تريد مع النتائج، مثل حذفها أو استبدالها. ومع ذلك، باستخدام أداة البحث والاستبدال في Excel، يمكنك العثور على قيمة واحدة فقط في كل مرة. في هذا البرنامج التعليمي، سأعرض طريقة سريعة للعثور على قيمة مختلفة متعددة وحذفها دفعة واحدة في Excel.
العثور على تطابقات متعددة وحذفها دفعة واحدة باستخدام VBA
لقد أنشأنا رمزَي VBA لمساعدتك على العثور فورًا على القيم المختلفة في نطاق محدد أو عبر أوراق عمل متعددة وحذفها. يُرجى اتباع الخطوات أدناه وتشغيل الرمز وفقًا لاحتياجاتك.
1. في Excel، اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية. ثم انسخ أحد رموز VBA التالية إلى نافذةالوحدة النمطية.
رمز 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», «[[PH_35]]», «@») في الصف الثالث عشر، يجب أن تستبدل«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- في المقتطفxArr = Array("Sheet1", "Sheet2") في الصف الخامس عشر، استبدل"Sheet1", "Sheet2" بأسماء الأوراق الفعلية التي تريد البحث فيها وحذف القيم منها. تذكّر أن تضع كل اسم ورقة بين علامتي اقتباس مزدوجتين، وافصل بينها بفواصل.
- في المقتطفxArrFinStr = Array(«sales», «[[PH_38]]», «@») في الصف السادس عشر، يجب أن تستبدل«sales», "9", «@» بالقيم الفعلية التي تريد البحث عنها وحذفها. وتذكّر أن تضع كل قيمة بين علامتي اقتباس مزدوجتين وتفصل بينها بفواصل.
3. اضغط على مفتاحF5 لتشغيل رمز VBA.ملاحظة:إذا استخدمترمز VBA 1، فستظهر نافذة منبثقة تطلب منك تحديد النطاق الذي سيتم فيه العثور على القيم وحذفها. يمكنك أيضًا النقر على لسان تبويب الورقة لاختيار الورقة بأكملها.
4. تظهر نافذة منبثقة كما هو موضح أدناه لإعلامك بأن الرمز قد حذف التطابقات المحددة. انقر علىموافقلإغلاق النافذة.
لقد تم حذف القيم المحددة دفعةً واحدة.
العثور على تطابقات متعددة وحذفها دفعة واحدة باستخدام ميزة تحديد خلايا محددة
تقدم لك Kutools لـ Excel ميزةتحديد خلايا محددةللعثور على القيم التي تستوفي شرطًا واحدًا أو شرطين تحددهما دفعة واحدة. اقرأ لتعرف كيف يمكنك بسرعة العثور على قيم متعددة وحذفها دفعة واحدة!
1. على لسان تبويبKutools، في مجموعةالتحرير، انقر علىتحديد > تحديد خلايا محددة.
- في مربعحدد الخلايا داخل النطاق، انقر على زر تحديد النطاق
الموجود على اليمين لتحديد النطاق الذي سيتم فيهالبحث عن القيم وحذفها.ملاحظة:للبحث في الورقة بأكملها، انقر على لسان تبويب الورقة. - في قسمنوع التحديد، اختر الخيارخلية.
- في قسمتحديد النوع، حدّد شرطين كحد أقصى:
- انقر على السهم المنسدل الموجود على الجانب الأيسر لاختيار العلاقة التي تحتاجها، مثليحتوي على،يساوي،أقل من،يبدأ بـ، وغيرها.
- أدخل القيمة في المربع المقابل وفقًا لاحتياجاتك.
- حدد العلاقة بين الشرطين (إذا وُجدا): وأوأو.
الموجود على اليمين لتحديد النطاق الذي سيتم فيه
3. انقر علىموافقلتحديد الخلايا التي تستوفي الشرط (أو الشروط) التي حددتها. ستظهر نافذة منبثقة تُخبرك بعدد الخلايا التي تم العثور عليها وتحديدها.
4. انقر علىموافق. الآن، اضغط على مفتاحDELETE لحذف القيم المحددة دفعة واحدة.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: العثور على تطابقات متعددة وحذفها دفعة واحدة في Excel
مقالات ذات صلة
العثور على التكرارات، تمييزها، تصفيتها، عدّها، وحذفها في Excel
في Excel، تظهر البيانات المكررة مرارًا وتكرارًا عند إدخالها يدويًّا، أو نسخها من مصادر خارجية، أو لأسباب أخرى. أحيانًا تكون هذه التكرارات مفيدة بل وضرورية، لكنها في أحيانٍ أخرى قد تؤدي إلى أخطاء أو سوء فهم. في هذا المقال، سنعرض طرقًا فعّالة للعثور بسرعة على القيم المكررة، وتمييزها، وتصفيتها، وعدّها، وحذفها باستخدام الصيغ، وقواعد التنسيق الشرطي، ووظائف الإضافات من جهات خارجية، وغيرها من أدوات Excel.
كيف تقارن عمودين في Excel وتحذف القيم المتطابقة بينهما؟
إذا كانت لديك عمودان أو قائمتان تحتويان على بعض العناصر المكررة، وترغب الآن في مقارنتهما والعثور على التطابقات ثم حذفها، فكيف يمكنك حل ذلك بسرعة؟ في هذا المقال، سأعرض طرقًا مختلفة تساعدك على تنفيذ ذلك في Excel.
كيف تحذف كل شيء في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل