Πώς μπορείτε να συγκρίνετε δεδομένα σε δύο στήλες για να βρείτε διπλότυπα 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.

×