تخطي إلى المحتوى الرئيسي
الدعم
تسجيل الدخول باستخدام حساب Microsoft
تسجيل الدخول أو إنشاء حساب.
مرحباً،
تحديد استخدام حساب مختلف!
لديك حسابات متعددة
اختر الحساب الذي تريد تسجيل الدخول باستخدامه.

يمكنك استخدام الطرق التالية لمقارنة البيانات في عمودي ورقة عمل Microsoft Excel والعثور على إدخالات مكررة. 

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

  1. ابدأ تشغيل Excel.

  2. في ورقة عمل جديدة، أدخل البيانات التالية كمثال (اترك العمود B فارغا):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. اكتب الصيغة التالية في الخلية B1:

    =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),",A1)

  4. حدد الخلية B1 إلى B5.

  5. في Excel 2007 والإصدارات الأحدث من Excel، حدد تعبئة في المجموعة تحرير، ثم حدد لأسفل.

    يتم عرض الأرقام المكررة في العمود B، كما في المثال التالي: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

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

تحذير: توفر Microsoft أمثلة برمجة للتوضيح فقط، دون ضمان سواء تم التعبير عنه أو تضمينه. وهذا يشمل، على سبيل المثال لا الحصر، الضمانات الضمنية للقابلية التجارية أو اللياقة البدنية لغرض معين. تفترض هذه المقالة أنك على دراية بلغة البرمجة التي يتم توضيحها ومع الأدوات المستخدمة لإنشاء إجراءات وتصحيح الأخطاء. يمكن لمهندسي دعم Microsoft المساعدة في شرح وظيفة إجراء معين. ومع ذلك، لن يعدلوا هذه الأمثلة لتوفير وظائف إضافية أو إجراءات إنشاء لتلبية متطلباتك المحددة.

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

  1. ابدأ تشغيل Excel.

  2. اضغط على ALT+F11 لبدء محرر Visual Basic.

  3. في القائمة إدراج، حدد الوحدة النمطية.

  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 x
    End Sub
  5. اضغط على ALT+F11 للعودة إلى Excel.

    1. أدخل البيانات التالية كمثال (اترك العمود B فارغا):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. حدد الخلية A1 إلى A5.

  7. في Excel 2007 والإصدارات الأحدث من Excel، حدد علامة التبويب المطور، ثم حدد وحدات الماكرو في مجموعة التعليمات البرمجية .

    ملاحظة: إذا لم تظهر علامة التبويب المطور ، فقد تحتاج إلى تشغيلها. للقيام بذلك، حدد خيارات > الملف > تخصيص الشريط، ثم حدد علامة التبويب المطور في مربع التخصيص على الجانب الأيمن.

  8. انقر فوق Find_Matches، ثم انقر فوق تشغيل.

    يتم عرض الأرقام المكررة في العمود B. سيتم وضع الأرقام المطابقة بجوار العمود الأول، كما هو موضح هنا:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

استكشف مزايا الاشتراك، واستعرض الدورات التدريبية، وتعرف على كيفية تأمين جهازك، والمزيد.

تساعدك المجتمعات على طرح الأسئلة والإجابة عليها، وتقديم الملاحظات، وسماعها من الخبراء ذوي الاطلاع الواسع.

هل كانت المعلومات مفيدة؟

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟
بالضغط على "إرسال"، سيتم استخدام ملاحظاتك لتحسين منتجات Microsoft وخدماتها. سيتمكن مسؤول تكنولوجيا المعلومات لديك من جمع هذه البيانات. بيان الخصوصية.

نشكرك على ملاحظاتك!

×