Πώς να επιτρέψετε μόνο μοναδικές τιμές στο Excel;
Εάν θέλετε να διατηρήσετε μόνο μοναδικές τιμές που εισάγονται σε μια στήλη φύλλου εργασίας και να αποτρέψετε τα διπλότυπα, αυτό το άρθρο θα παρουσιάσει μερικά γρήγορα κόλπα για να αντιμετωπίσετε αυτήν την εργασία.
Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με επικύρωση δεδομένων
Να επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας με κώδικα VBA
Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με το Kutools για Excel
Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με επικύρωση δεδομένων
Στην πραγματικότητα, η επικύρωση δεδομένων Η λειτουργία του Excel μπορεί να σας βοηθήσει να λύσετε αυτό το πρόβλημα, κάντε τα εξής:
1. Επιλέξτε τα κελιά ή τη στήλη που θέλετε να εισαγάγετε μόνο μοναδικές τιμές και, στη συνέχεια, κάντε κλικ στο ημερομηνία > επικύρωση δεδομένων > επικύρωση δεδομένων, δείτε το στιγμιότυπο οθόνης:
2. Στην επικύρωση δεδομένων πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:
(1.) Κάντε κλικ στο ρυθμίσεις αυτί;
(2.) Σύμφωνα με το Επιτρέψτε αναπτυσσόμενη λίστα, επιλέξτε Εξατομικευμένο ;
(3.) Και εισαγάγετε αυτόν τον τύπο: = COUNTIF ($ E: $ E, E1) <2 (E είναι η στήλη που θέλετε να επιτρέψετε μόνο μοναδικές τιμές, E1 είναι το πρώτο κελί της στήλης που θέλετε να χρησιμοποιήσετε) στο Τύπος πλαίσιο κειμένου.
3. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, από τώρα και στο εξής, όταν εισάγετε διπλή τιμή στη συγκεκριμένη στήλη που έχετε ορίσει, θα εμφανιστεί ένα προειδοποιητικό μήνυμα για να σας υπενθυμίσει, δείτε το στιγμιότυπο οθόνης:
Να επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας με κώδικα 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
Note: Στον παραπάνω κώδικα, το A1: A1000 είναι τα κελιά της στήλης που θέλετε να αποτρέψετε την επανάληψη.
2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, τώρα, όταν εισαγάγετε διπλές τιμές στο κελί A1: A1000, εμφανίζεται ένα προειδοποιητικό μήνυμα για να σας υπενθυμίσει ότι δεν επιτρέπεται η διπλή καταχώριση, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, η διπλή τιμή θα διαγραφεί.
Επιτρέψτε μόνο μοναδικές τιμές στο φύλλο εργασίας με το Kutools για Excel
Οι παραπάνω δύο μέθοδοι μπορούν μόνο να αποτρέψουν τις διπλές καταχωρήσεις σε μία στήλη, εάν έχετε Kutools για Excel, της Αποτροπή διπλότυπου Το βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να αποτρέψετε γρήγορα την επανάληψη σε μια σειρά κελιών και μόνο μία στήλη ή σειρά.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε τη στήλη ή το εύρος των κελιών που θέλετε να αποτρέψετε τις διπλές τιμές, αλλά επιτρέψτε μόνο μοναδικά δεδομένα.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Αποτροπή πληκτρολόγησης > Αποτροπή διπλότυπου, δείτε το στιγμιότυπο οθόνης:
3. Θα εμφανιστεί ένα προειδοποιητικό μήνυμα για να σας υπενθυμίσει το επικύρωση δεδομένων θα καταργηθεί εάν εφαρμόσετε αυτήν τη λειτουργία, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Ναι για να συνεχίσετε και εμφανίζεται ένα άλλο πλαίσιο προτροπής για να σας υπενθυμίσει ποια κελιά έχουν εφαρμοστεί αυτή η δυνατότητα. Δείτε το στιγμιότυπο οθόνης:
5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, τώρα, όταν εισαγάγετε μερικά διπλά δεδομένα στην περιοχή A1: D15, εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι τα διπλότυπα δεδομένα δεν είναι έγκυρα, πρέπει να εισαγάγετε μόνο τη μοναδική τιμή. Δείτε το στιγμιότυπο οθόνης:
Περισσότερες από 200 λειτουργίες μπορούν να κάνουν τη δουλειά σας αποτελεσματικά, μπορείτε κατεβάστε το Kutools για Excel για δωρεάν διαδρομή.
Επίδειξη: Να επιτρέπονται μόνο μοναδικές τιμές στο φύλλο εργασίας με το Kutools για Excel
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!