كيف يمكنك مقارنة سلسلتين نصيتين في Excel لتحديد مدى تشابههما أو اكتشاف الاختلافات بينهما؟
في بعض الحالات، قد تحتاج فقط إلى مقارنة خليتين متجاورتين تحتويان على نصوص لتمييز أوجه التشابه أو الاختلاف بينهما في Excel. تقدّم لك هذه المقالة طريقتين فعالتين لتحقيق ذلك.
مقارنة سلسلتين نصيتين باستخدام صيغة
مقارنة سلسلتين نصيتين من حيث التشابه أو تمييز الاختلافات باستخدام كود VBA
مقارنة سلسلتين نصيتين باستخدام صيغة
كما يظهر في لقطة الشاشة أدناه، إذا كنت ترغب فقط في التحقق مما إذا كانت السلاسل النصية المقارَنة متطابقة أم لا، يمكنك استخدام الصيغة التالية.
1. حدد الخلية الفارغة C2، وأدخل الصيغة=EXACT(A2, B2) في شريط الصيغة، ثم اضغط على مفتاح الإدخال (Enter). انظر لقطة الشاشة:
ملاحظة: في الصيغة، تمثّل الخليتان A2 وB2 السلاسل النصية التي يتم مقارنتها.
2. استمر في تحديد خلية النتيجة، ثم اسحب مقبض التعبئة (Fill Handle) إلى الخلايا الأخرى للحصول على جميع نتائج المقارنة.
تعني نتيجة **FALSE** أن السلاسل النصية المقارَنة غير متطابقة، في حين تشير نتيجة **TRUE** إلى أنها متطابقة تمامًا. راجع لقطة الشاشة التالية:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقارنة سلسلتين نصيتين من حيث التشابه أو تمييز الاختلافات باستخدام كود VBA
إذا كنت ترغب في مقارنة سلسلتين نصيتين وتمييز أوجه التشابه أو الاختلاف بينهما، فإن كود VBA التالي سيساعدك.
1. اضغط معًا علىAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module، ثم انسخ والصق الكود التالي في نافذة الكود.
كود VBA: مقارنة سلاسل نصية في عمودين من حيث التشابه أو تمييز الاختلافات
Sub highlight()
Dim xRg1 As Range
Dim xRg2 As Range
Dim xTxt As String
Dim xCell1 As Range
Dim xCell2 As Range
Dim I As Long
Dim J As Integer
Dim xLen As Integer
Dim xDiffs As Boolean
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
If xRg1 Is Nothing Then Exit Sub
If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
lTwo:
Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
If xRg2 Is Nothing Then Exit Sub
If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
If xRg1.CountLarge <> xRg2.CountLarge Then
MsgBox "Two selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Font.ColorIndex = xlAutomatic
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value2 = xCell2.Value2 Then
If Not xDiffs Then xCell2.Font.Color = vbRed
Else
xLen = Len(xCell1.Value2)
For J = 1 To xLen
If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
Next J
If Not xDiffs Then
If J <= Len(xCell2.Value2) And J > 1 Then
xCell2.Characters(1, J - 1).Font.Color = vbRed
End If
Else
If J <= Len(xCell2.Value2) Then
xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub3. اضغط على مفتاحF5 لتشغيل الكود. في مربع الحوار الأولKutools لـ Excel، حدد العمود الأول الذي يحتوي على السلاسل النصية التي تريد مقارنتها، ثم انقر على زرOK.
4. بعد ذلك، يظهر مربع الحوار الثانيKutools لـ Excel. يُرجى تحديد العمود الثاني من السلاسل النصية، ثم انقر على زرOK.
5. في مربع الحوار الأخيرKutools لـ Excel، إذا كنت تريد مقارنة السلاسل من حيث التشابه، فانقر على زرYes. أما إذا كنت تريد تمييز الاختلافات بين السلاسل المقارَنة، فانقر على زرNo. انظر لقطة الشاشة:
بعد ذلك، ستتمكن من رؤية نتائج المقارنة كما تظهر في لقطة الشاشة أدناه.
مقالات ذات صلة:
- كيف تقارن عمودين في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل