Μετάβαση στο κύριο περιεχόμενο

 Πώς να επιτρέψετε μόνο μοναδικές τιμές στο Excel;

Εάν θέλετε να διατηρήσετε μόνο μοναδικές τιμές που εισάγονται σε μια στήλη φύλλου εργασίας και να αποτρέψετε τα διπλότυπα, αυτό το άρθρο θα παρουσιάσει μερικά γρήγορα κόλπα για να αντιμετωπίσετε αυτήν την εργασία.

Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με επικύρωση δεδομένων

Να επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας με κώδικα VBA

Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με το Kutools για Excel


Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με επικύρωση δεδομένων

Στην πραγματικότητα, η επικύρωση δεδομένων Η λειτουργία του Excel μπορεί να σας βοηθήσει να λύσετε αυτό το πρόβλημα, κάντε τα εξής:

1. Επιλέξτε τα κελιά ή τη στήλη που θέλετε να εισαγάγετε μόνο μοναδικές τιμές και, στη συνέχεια, κάντε κλικ στο ημερομηνία > επικύρωση δεδομένων > επικύρωση δεδομένων, δείτε το στιγμιότυπο οθόνης:

Το doc επιτρέπει μόνο το μοναδικό 1

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

(1.) Κάντε κλικ στο ρυθμίσεις αυτί;

(2.) Σύμφωνα με το Επιτρέψτε αναπτυσσόμενη λίστα, επιλέξτε Εξατομικευμένο ;

(3.) Και εισαγάγετε αυτόν τον τύπο: = COUNTIF ($ E: $ E, E1) <2 (E είναι η στήλη που θέλετε να επιτρέψετε μόνο μοναδικές τιμές, E1 είναι το πρώτο κελί της στήλης που θέλετε να χρησιμοποιήσετε) στο Τύπος πλαίσιο κειμένου.

Το doc επιτρέπει μόνο το μοναδικό 2

3. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, από τώρα και στο εξής, όταν εισάγετε διπλή τιμή στη συγκεκριμένη στήλη που έχετε ορίσει, θα εμφανιστεί ένα προειδοποιητικό μήνυμα για να σας υπενθυμίσει, δείτε το στιγμιότυπο οθόνης:

Το doc επιτρέπει μόνο το μοναδικό 3


Να επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας με κώδικα VBA

Εάν σας ενδιαφέρει ο κωδικός VBA, ο παρακάτω κώδικας μπορεί επίσης να σας βοηθήσει.

1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να επιτρέψετε μόνο αρνητικούς αριθμούς και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό Μονάδα μέτρησης:

Κωδικός VBA: Επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

Το doc επιτρέπει μόνο το μοναδικό 4

Note: Στον παραπάνω κώδικα, το A1: A1000 είναι τα κελιά της στήλης που θέλετε να αποτρέψετε την επανάληψη.

2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, τώρα, όταν εισαγάγετε διπλές τιμές στο κελί A1: A1000, εμφανίζεται ένα προειδοποιητικό μήνυμα για να σας υπενθυμίσει ότι δεν επιτρέπεται η διπλή καταχώριση, δείτε το στιγμιότυπο οθόνης:

Το doc επιτρέπει μόνο το μοναδικό 5

3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, η διπλή τιμή θα διαγραφεί.


Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με το Kutools για Excel

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

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε τη στήλη ή το εύρος των κελιών που θέλετε να αποτρέψετε τις διπλές τιμές, αλλά επιτρέψτε μόνο μοναδικά δεδομένα.

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Αποτροπή πληκτρολόγησης > Αποτροπή διπλότυπου, δείτε το στιγμιότυπο οθόνης:

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

Το doc επιτρέπει μόνο το μοναδικό 7

4. Στη συνέχεια κάντε κλικ στο κουμπί Ναι για να συνεχίσετε και εμφανίζεται ένα άλλο πλαίσιο προτροπής για να σας υπενθυμίσει ποια κελιά έχουν εφαρμοστεί αυτή η δυνατότητα. Δείτε το στιγμιότυπο οθόνης:

Το doc επιτρέπει μόνο το μοναδικό 8

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, τώρα, όταν εισαγάγετε μερικά διπλά δεδομένα στην περιοχή A1: D15, εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι τα διπλότυπα δεδομένα δεν είναι έγκυρα, πρέπει να εισαγάγετε μόνο τη μοναδική τιμή. Δείτε το στιγμιότυπο οθόνης:

Το doc επιτρέπει μόνο το μοναδικό 9

Περισσότερες από 200 λειτουργίες μπορούν να κάνουν τη δουλειά σας αποτελεσματικά, μπορείτε κατεβάστε το Kutools για Excel για δωρεάν διαδρομή.


Επίδειξη: Να επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας με το Kutools για Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I was expecting the formula would work when you paste too. But for me it only works if I type. When typing a value that is not unique I see the error massage and I'm not allowed to continue. Which is great. However, if I paste the value, no error message appears. Is that expected, or I am doing something wrong?
This comment was minimized by the moderator on the site
this formula didn't work =COUNTIF($A:$A,A2)<2
This comment was minimized by the moderator on the site
Please try below formula:

=COUNTIF($A:$A,A1)<2
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations