כיצד להשוות נתונים בשתי עמודות כדי למצוא כפילויות ב-Excel

באפשרותך להשתמש בשיטות הבאות כדי להשוות נתונים בשתי עמודות גליון עבודה של 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 editor.

  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, בחר את הכרטיסיה מפתחים ולאחר מכן בחר פקודות מאקרו בקבוצה קוד .

    הערה: אם אינך רואה את הכרטיסיה מפתחים , ייתכן שתצטרך להפעיל אותו. כדי לעשות זאת, בחר קובץ > options _GT_ התאמה אישית של רצועת הכליםולאחר מכן בחר את הכרטיסיה מפתחים בתיבה התאמה אישית בצד השמאלי.

  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

הערה:  דף זה תורגם באמצעות אוטומציה והוא עשוי לכלול שגיאות דקדוק או אי-דיוקים. מטרתנו היא כי תוכן זה יהיה שימושי עבורך. תוכל לספר לנו אם המידע היה מועיל? הנה המאמר באנגלית לעיונך.​

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×