كيفية مقارنة عمودين وإبراز البيانات غير المتطابقة في Excel؟
كما هو موضح أدناه ، لمقارنة عمودين من الخلايا المجاورة وتسليط الضوء على البيانات غير المتطابقة ، يمكنك تجربة الطرق في المقالة.
قارن بين عمودين وقم بتمييز البيانات غير المتطابقة برمز VBA
قارن بين عمودين وقم بتمييز البيانات غير المتطابقة باستخدام Kutools for Excel
قارن بين عمودين وقم بتمييز البيانات غير المتطابقة برمز VBA
كما في لقطة الشاشة أعلاه ، فأنت تقارن البيانات الموجودة في العمود A والعمود B. الرجاء تشغيل رمز VBA التالي لتمييز البيانات غير المتطابقة.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ الكود التالي والصقه في نافذة Code.
كود فبا: قارن بين عمودين وقم بتمييز البيانات غير المتطابقة
Sub Dyeware()
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 ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Interior.ColorIndex = xlNo
xRg1.Interior.ColorIndex = xlNo
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value = xCell2.Value Then
If Not xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
Else
If xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل في مربع الحوار ، حدد العمود الأول الذي تريد مقارنته ، ثم انقر فوق OK زر. انظر لقطة الشاشة.
4. ثم حدد العمود الثاني الذي تمت مقارنته في القائمة المنبثقة التالية كوتولس ل إكسيل صندوق المحادثة.
5. في مربع الحوار كما هو موضح أدناه ، لإبراز البيانات غير المتطابقة ، يرجى النقر فوق لا .
ثم يتم تحديد جميع البيانات غير المتطابقة بين عمودين على الفور. انظر لقطة الشاشة:
قارن بين عمودين وقم بتمييز البيانات غير المتطابقة باستخدام Kutools for Excel
إذا كنت تريد فقط معرفة وتمييز ما إذا كانت قيم الخلية في عمود موجودة في عمود آخر أم لا ، على سبيل المثال كما هو موضح أدناه ، فإن الرقم 2 في العمود A غير موجود في العمود B. يمكنك تجربة قارن النطاقات فائدة كوتولس ل إكسيل.
1. انقر كوتولس > إدراج > حدد نفس الخلايا وخلايا مختلفة. انظر لقطة الشاشة:
2. في ال حدد نفس الخلايا وخلايا مختلفة مربع الحوار ، تحتاج إلى التكوين على النحو التالي:
3. ثم ينبثق مربع حوار لإخبارك بعدد الخلايا الموجودة في العمود A فقط وليس في العمود B ، انقر فوق الزر "موافق" ، ويتم تحديد جميع الخلايا المتطابقة في العمود A.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة:
- كيف تقارن سلسلتين للتشابه أو تسليط الضوء على الاختلافات في Excel؟
- كيف تقارن بالضبط بين سلسلتين (حساسة لحالة الأحرف) في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!