Μετάβαση στο κύριο περιεχόμενο
Υποστήριξη
Είσοδος με Microsoft
Είσοδος ή δημιουργία λογαριασμού.
Γεια σας,
Επιλέξτε διαφορετικό λογαριασμό.
Έχετε πολλούς λογαριασμούς
Επιλέξτε τον λογαριασμό με τον οποίο θέλετε να εισέλθετε.

Μπορείτε να χρησιμοποιήσετε τις παρακάτω μεθόδους για να συγκρίνετε δεδομένα σε δύο στήλες φύλλου εργασίας του 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

Χρειάζεστε περισσότερη βοήθεια;

Θέλετε περισσότερες επιλογές;

Εξερευνήστε τα πλεονεκτήματα της συνδρομής, περιηγηθείτε σε εκπαιδευτικά σεμινάρια, μάθετε πώς μπορείτε να προστατεύσετε τη συσκευή σας και πολλά άλλα.

Οι κοινότητες σάς βοηθούν να κάνετε και να απαντάτε σε ερωτήσεις, να δίνετε σχόλια και να ακούτε από ειδικούς με πλούσια γνώση.

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

Πόσο ικανοποιημένοι είστε με τη γλωσσική ποιότητα;
Τι επηρέασε την εμπειρία σας;
Πατώντας "Υποβολή" τα σχόλια σας θα χρησιμοποιηθούν για τη βελτίωση των προϊόντων και των υπηρεσιών της Microsoft. Ο διαχειριστής IT θα έχει τη δυνατότητα να συλλέξει αυτά τα δεδομένα. Δήλωση προστασίας προσωπικών δεδομένων.

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

×