Μπορείτε να χρησιμοποιήσετε τις παρακάτω μεθόδους για να συγκρίνετε δεδομένα σε δύο στήλες φύλλου εργασίας του Microsoft Excel και να βρείτε διπλότυπες καταχωρήσεις.
Μέθοδος 1: Χρήση τύπου φύλλου εργασίας
-
Κάντε εκκίνηση του Excel.
-
Σε ένα νέο φύλλο εργασίας, εισαγάγετε ως παράδειγμα τα ακόλουθα δεδομένα (αφήστε τη στήλη B κενή):
A
Β
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Πληκτρολογήστε τον παρακάτω τύπο στο κελί B1:
=IF(ISERROR(MATCH(A1;$C$1:$C$5;0));";A1) -
Επιλέξτε το κελί B1 έως B5.
-
Στο 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 για να συγκρίνετε τα δεδομένα δύο στηλών, ακολουθήστε τα βήματα στο παρακάτω παράδειγμα:
-
Κάντε εκκίνηση του Excel.
-
Πατήστε το συνδυασμό πλήκτρων ALT+F11 για να ξεκινήσετε την επεξεργασία της Visual Basic.
-
Στο μενού Εισαγωγή, επιλέξτε Λειτουργική μονάδα.
-
Εισαγάγετε τον παρακάτω κωδικό σε ένα φύλλο λειτουργικής μονάδας:
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
-
Πατήστε το συνδυασμό πλήκτρων ALT+F11 για να επιστρέψετε στο Excel.
-
Εισαγάγετε τα ακόλουθα δεδομένα ως παράδειγμα (αφήστε τη στήλη B κενή):
A
Β
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Επιλέξτε το κελί A1 έως A5.
-
Στο Excel 2007 και σε νεότερες εκδόσεις του Excel, επιλέξτε την καρτέλα Προγραμματιστής και, στη συνέχεια, επιλέξτε Μακροεντολές στην ομάδα Κώδικας .
Σημείωση: Εάν δεν βλέπετε την καρτέλα Προγραμματιστής , ίσως χρειαστεί να την ενεργοποιήσετε. Για να το κάνετε αυτό, επιλέξτε Αρχείο > Επιλογές > Προσαρμογή κορδέλας και, στη συνέχεια, επιλέξτε την καρτέλα Προγραμματιστής στο πλαίσιο προσαρμογής στη δεξιά πλευρά.
-
Κάντε κλικ στην επιλογή Find_Matches και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.
Οι διπλότυποι αριθμοί εμφανίζονται στη στήλη B. Οι αριθμοί που ταιριάζουν θα τοποθετηθούν δίπλα στην πρώτη στήλη, όπως φαίνεται εδώ:A
Β
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0