أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية مقارنة البيانات الموجودة في عمودين للعثور على التكرارات في برنامج Excel

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

الموجز
توضح هذه المقالة طريقتين يمكنك استخدامهما للمقارنة بين البيانات الموجودة في عمودين بورقة عمل في برنامج Microsoft Excel والعثور على الإدخالات المتكررة.
معلومات أخرى

الطريقة الأولى: استخدام صيغة ورقة عمل

لاستخدام صيغة ورقة عمل لمقارنة البيانات الموجودة في عمودين، اتبع الخطوات التالية:
  1. قم بتشغيل Excel.
  2. في ورقة عمل جديدة، أدخل البيانات التالية (اترك العمود B فارغًا):
    A1: 1   B1:     C1: 3A2: 2   B2:     C2: 5A3: 3   B3:     C3: 8A4: 4   B4:     C4: 2A5: 5   B5:     C5: 0					
  3. اكتب الصيغة التالية في الخلية B1:
    ‎=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)‎
  4. حدد الخلايا B1:B5.
  5. في Microsoft Office Excel 2003 وفي الإصدارات السابقة من Excel، أشر إلى تعبئة في القائمة تحرير، ثم انقر فوق إلى الأسفل.

    في Microsoft Office Excel 2007، انقر فوق تعبئة في المجموعة تحرير، ثم انقر فوق إلى الأسفل.

    يتم عرض الأرقام المتكررة في العمود B، كما في المثال التالي:
       A1: 1   B1:     C1: 3   A2: 2   B2: 2   C2: 5   A3: 3   B3: 3   C3: 8   A4: 4   B4:     C4: 2   A5: 5   B5: 5   C5: 0					

الطريقة الثانية: استخدام ماكرو Visual Basic

تقدم Microsoft الأمثلة البرمجية بغرض التوضيح فقط، دون أي ضمان صريح أو ضمني. ويتضمن ذلك، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن لمهندسي الدعم لدى Microsoft شرح وظيفة إجراء محدد. على الرغم من ذلك، لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات لاستيفاء متطلباتك الخاصة. لاستخدام ماكرو Visual Basic لمقارنة البيانات في عمودين، استخدم الخطوات الواردة في المثال التالي:
  1. قم بتشغيل Excel.
  2. اضغط ALT+F11 لبدء تشغيل محرر Visual Basic.
  3. من القائمة Insert (إدراج)، انقر فوق Module (وحدة نمطية).
  4. أدخل التعليمة البرمجية التالية في ورقة وحدة نمطية:
    Sub Find_Matches()‎    Dim CompareRange As Variant, x As Variant, y As Variant    ‎' Set CompareRange equal to the range to which you will    ‎' compare the selection.‎    Set CompareRange = Range("C1:C5")‎    ‎' NOTE: If the compare range is located on another workbook    ‎' or worksheet, use the following syntax.‎    ‎' Set CompareRange = Workbooks("Book2"). _‎    ‎'   Worksheets("Sheet2").Range("C1:C5")‎    ‎'    ‎' Loop through each cell in the selection and compare it to    ‎' each cell in CompareRange.‎    For Each x In Selection        For Each y In CompareRange            If x = y Then x.Offset(0, 1) = x        Next y    Next xEnd Sub					
  5. اضغط ALT+F11 للرجوع إلى برنامج Excel.
  6. أدخل البيانات التالية (اترك العمود B فارغًا):
    A1: 1   B1:     C1: 3A2: 2   B2:     C2: 5A3: 3   B3:     C3: 8A4: 4   B4:     C4: 2A5: 5   B5:     C5: 0					
  7. حدد النطاق A1:A5.
  8. في Excel 2003 وفي الإصدارات الأقدم من Excel، أشر إلى ماكرو في القائمة أدوات، ثم انقر فوق وحدات ماكرو.

    في Excel 2007، انقر فوق علامة التبويب المطور، ثم انقر فوق وحدات الماكرو في مجموعة تعليمات برمجية.
  9. انقر فوق Find_Matches (العثور على مطابقات)، ثم انقر فوق تشغيل.
يتم عرض الأرقام المتكررة في العمود B. سيتم وضع الأرقام المطابقة بجانب العمود الأول، كما هو موضح هنا:
   A1: 1   B1:     C1: 3   A2: 2   B2: 2   C2: 5   A3: 3   B3: 3   C3: 8   A4: 4   B4:     C4: 2   A5: 5   B5: 5   C5: 0				
match data XL2000 XL2002 XL2003 XL2007
خصائص

رقم الموضوع: 213367 - آخر مراجعة: 11/20/2007 21:20:00 - المراجعة: 4.1

Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition

  • kbhowto kbprogramming kbdtacode KB213367
تعليقات
html>getElementsByTagName("head")[0].appendChild(m);