Πώς μπορείτε να συγκρίνετε δεδομένα σε δύο στήλες για την Εύρεση διπλοτύπων στο Excel

Μπορείτε να χρησιμοποιήσετε τις ακόλουθες μεθόδους για να συγκρίνετε δεδομένα σε δύο στήλες φύλλου εργασίας του Microsoft Excel και να εντοπίσετε διπλότυπες καταχωρήσεις. 

Μέθοδος 1: χρήση τύπου φύλλου εργασίας

  1. Ξεκινήστε το Excel.

  2. Σε ένα νέο φύλλο εργασίας, πληκτρολογήστε τα ακόλουθα δεδομένα ως παράδειγμα (αφήστε κενό τη στήλη B):

    A

    Β

    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

    Β

    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

      Β

      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

    Β

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Σημείωση:  Αυτή η σελίδα έχει μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας πείτε εάν σας βοήθησαν αυτές οι πληροφορίες; Εδώ θα βρείτε το άρθρο στα Αγγλικά για να το συμβουλεύεστε.

Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×