كيف تقارن سلسلتين للتشابه أو تسليط الضوء على الاختلافات في Excel؟
في بعض الحالات ، قد تحتاج فقط إلى مقارنة خليتين متجاورتين من السلاسل وتمييز أوجه التشابه أو الاختلافات بينهما في Excel. توفر لك هذه المقالة طريقتين لتحقيق ذلك.
قارن بين سلسلتين مع الصيغة
قارن بين سلسلتين للتشابه أو تمييز الاختلافات مع تعليمات VBA البرمجية
قارن بين سلسلتين مع الصيغة
كما هو موضح أدناه ، إذا كنت تريد فقط معرفة ما إذا كانت السلاسل المقارنة متطابقة أم لا ، فيمكنك تطبيق الصيغة التالية.
1. حدد خلية فارغة C2 ، أدخل الصيغة = دقيق (A2، B2) في شريط الصيغة ، ثم اضغط على مفتاح Enter. انظر لقطة الشاشة:
ملاحظات: في الصيغة ، A2 و B2 هي الخلايا التي تحتوي على سلاسل المقارنة.
2. استمر في تحديد خلية النتيجة ، ثم اسحب مقبض التعبئة إلى الخلايا حتى تحصل على جميع النتائج المقارنة.
تعني نتيجة FALSE أن السلاسل المقارنة مختلفة ، والنتيجة TRUE تشير إلى تطابق السلاسل المقارنة. انظر لقطة الشاشة:
قارن بين سلسلتين للتشابه أو تمييز الاختلافات مع تعليمات VBA البرمجية
إذا كنت تريد مقارنة سلسلتين وإبراز أوجه التشابه أو الاختلافات بينهما. يمكن أن يساعدك رمز VBA التالي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ الكود التالي والصقه في نافذة Code.
كود فبا: قارن بين سلاسل عمودين للتشابه أو تمييز الاختلافات
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 مفتاح لتشغيل الكود. في الاول كوتولس ل إكسيل في مربع الحوار ، حدد العمود الأول من السلاسل النصية التي تريد مقارنتها ، ثم انقر فوق OK .
4. ثم الثانية كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد سلاسل العمود الثاني ، والنقر فوق OK .
5. في الماضي كوتولس ل إكسيل مربع الحوار ، إذا كنت تريد مقارنة السلاسل من أجل التشابه ، فانقر فوق نعم زر. ولتمييز الاختلافات بين السلاسل المقارنة ، انقر فوق لا زر. انظر لقطة الشاشة:
ثم يمكنك رؤية النتائج المقارنة كما هو موضح أدناه.
مقالات ذات صلة:
- كيفية مقارنة عمودين وإبراز البيانات غير المتطابقة في Excel؟
- كيف تقارن بالضبط بين سلسلتين (حساسة لحالة الأحرف) في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
