Come consentire solo valori univoci in Excel?
Se desideri mantenere solo i valori univoci immessi in una colonna del foglio di lavoro e impedire i duplicati, questo articolo introdurrà alcuni trucchi rapidi per affrontare questa attività.
Consenti solo valori univoci nel foglio di lavoro con la convalida dei dati
Consenti solo valori univoci nel foglio di lavoro con codice VBA
Consenti solo valori univoci nel foglio di lavoro con Kutools per Excel
Consenti solo valori univoci nel foglio di lavoro con la convalida dei dati
Infatti, la Convalida dati la funzione di Excel può aiutarti a risolvere questo problema, per favore fai come segue:
1. Seleziona le celle o la colonna in cui desideri inserire solo valori univoci, quindi fai clic su Dati > Convalida dati > Convalida dati, vedi screenshot:
2. Nel Convalida dati finestra di dialogo, eseguire le seguenti operazioni:
(1.) Fare clic su Impostazioni profilo scheda;
(2.) Sotto il Consentire elenco a discesa, scegliere Custom;
(3.) E inserisci questa formula: = CONTA.SE ($ E: $ E, E1) <2 (E è la colonna a cui vuoi consentire solo valori univoci, E1 è la prima cella della colonna che desideri utilizzare) nel file Formula casella di testo.
3. E poi clicca OK pulsante, d'ora in poi, quando inserisci un valore duplicato nella colonna specifica che hai impostato, verrà visualizzato un messaggio di avviso per ricordartelo, vedi screenshot:
Consenti solo valori univoci nel foglio di lavoro con codice VBA
Se sei interessato al codice VBA, anche il codice seguente può farti un favore.
1. Fare clic con il pulsante destro del mouse sulla scheda del foglio a cui si desidera consentire solo i numeri negativi e scegliere Visualizza codice dal menu contestuale, nel saltato fuori Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nello spazio vuoto Moduli:
Codice VBA: consente solo valori univoci nel foglio di lavoro:
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:: Nel codice sopra, il A1: A1000 sono le celle della colonna che vuoi evitare di duplicare.
2. Quindi salva e chiudi questo codice, ora, quando inserisci valori duplicati nella cella A1: A1000, viene visualizzato un messaggio di avviso per ricordarti che la voce duplicata non è consentita, vedi screenshot:
3. Quindi fare clic OK pulsante, il valore duplicato verrà eliminato.
Consenti solo valori univoci nel foglio di lavoro con Kutools per Excel
I due metodi precedenti solo possono impedire le voci duplicate in una colonna, se lo hai Kutools for Excel, suo Impedisci duplicati L'utilità può aiutarti a prevenire rapidamente la duplicazione in un intervallo di celle e solo una colonna o riga.
| Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, si prega di fare come segue:
1. Seleziona la colonna o l'intervallo di celle che desideri impedire i valori duplicati ma consentire solo dati univoci.
2. Quindi fare clic Kutools > Impedisci digitazione > Impedisci duplicati, vedi screenshot:
3. E verrà visualizzato un messaggio di avviso per ricordarti il file Convalida dati verrà rimosso se si applica questa funzione, vedi screenshot:
4. Quindi fare clic Sì pulsante per continuare e viene visualizzata un'altra finestra di messaggio per ricordare a quali celle è stata applicata questa funzione. Vedi screenshot:
5. E poi clicca OK pulsante, ora, quando si immettono alcuni dati duplicati nell'intervallo A1: D15, viene visualizzata una finestra di messaggio per ricordare che i dati duplicati non sono validi, è necessario inserire solo il valore univoco. Vedi screenshot:
Più di 200 funzioni possono rendere il tuo lavoro efficiente, puoi scarica Kutools per Excel per la traccia gratuita.
Demo: consente solo valori univoci nel foglio di lavoro con Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
