Article ID: 213367 - View products that this article applies to.
הרחב הכל | כווץ הכל

On This Page

תקציר

מאמר זה מתאר שתי שיטות שבהן תוכל להשתמש כדי להשוות נתונים בשתי עמודות של גיליון עבודה של Microsoft Excel ולאתר ערכים כפולים.

מידע נוסף

שיטה 1: שימוש בנוסחת גליון עבודה

כדי להשתמש בנוסחת גליון עבודה להשוואת הנתונים בשתי עמודות, בצע את הפעולות הבאות:
  1. הפעל את Excel.
  2. בגליון עבודה חדש, הזן את הנתונים הבאים (השאר את עמודה B ריקה):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 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
    					

שיטה 2: שימוש במאקרו של 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 x
    End Sub
    					
  5. הקש ALT+F11 כדי לחזור ל- Excel.
  6. הזן את הנתונים הבאים (השאר את עמודה B ריקה):
    A1: 1   B1:     C1: 3
    A2: 2   B2:     C2: 5
    A3: 3   B3:     C3: 8
    A4: 4   B4:     C4: 2
    A5: 5   B5:     C5: 0
    					
  7. בחר בטווח A1:A5.
  8. ב- Microsoft Office 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
				

מאפיינים

Article ID: 213367 - Last Review: יום שלישי 20 נובמבר 2007 - Revision: 4.1
המידע במאמר זה חל על:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
מילות מפתח 
kbhowto kbprogramming kbdtacode KB213367

ספק משוב

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com