Si vous souhaitez conserver uniquement des valeurs uniques entrant dans une colonne de feuille de calcul et éviter les doublons, cet article présentera quelques astuces rapides pour vous permettre de gérer cette tâche.
Autoriser uniquement les valeurs uniques dans la feuille de calcul avec la validation des données
Autoriser uniquement les valeurs uniques dans la feuille de calcul avec le code VBA
Autoriser uniquement les valeurs uniques dans la feuille de calcul avec Kutools for Excel
En fait, le Validation des données La fonction d'Excel peut vous aider à résoudre ce problème, procédez comme suit:
1. Sélectionnez les cellules ou la colonne pour lesquelles vous souhaitez uniquement saisir des valeurs uniques, puis cliquez sur Data > Validation des données > Validation des données, voir capture d'écran:
2. Dans le Validation des données boîte de dialogue, veuillez effectuer les opérations suivantes:
(1.) Cliquez sur le Paramètres languette;
(2.) Sous le Permettre liste déroulante, choisissez Fabrications;
(3.) Et entrez cette formule: = COUNTIF ($ E: $ E, E1) <2 (E est la colonne pour laquelle vous souhaitez autoriser uniquement les valeurs uniques, E1 est la première cellule de la colonne que vous souhaitez utiliser) dans le Laits en poudre zone de texte.
3. Et puis cliquez OK bouton, à partir de maintenant, lorsque vous entrez une valeur en double dans la colonne spécifique que vous avez définie, un message d'avertissement apparaîtra pour vous le rappeler, voir capture d'écran:
Si vous êtes intéressé par le code VBA, le code suivant peut également vous rendre service.
1. Cliquez avec le bouton droit sur l'onglet de la feuille pour lequel vous souhaitez autoriser uniquement les nombres négatifs, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications fenêtre, veuillez copier et coller le code suivant dans l'espace vide Module:
Code VBA: autoriser uniquement les valeurs uniques dans la feuille de calcul:
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
Notes: Dans le code ci-dessus, le A1: A1000 correspond aux cellules de colonne dont vous souhaitez éviter la duplication.
2. Ensuite, enregistrez et fermez ce code, maintenant, lorsque vous entrez des valeurs en double dans la cellule A1: A1000, un message d'avertissement s'affiche pour vous rappeler que l'entrée en double n'est pas autorisée, voir capture d'écran:
3. Puis clique OK bouton, la valeur en double sera supprimée.
Les deux méthodes ci-dessus ne peuvent empêcher les entrées en double dans une colonne, si vous avez Kutools pour Excel, il est Empêcher la duplication L'utilitaire peut vous aider à éviter rapidement les doublons dans une plage de cellules et une seule colonne ou ligne.
| Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools pour Excel, procédez comme suit:
1. Sélectionnez la colonne ou la plage de cellules pour laquelle vous souhaitez éviter les valeurs en double mais n'autorisez que des données uniques.
2. Puis clique Kutools > Empêcher la frappe > Empêcher la duplication, voir capture d'écran:
3. Et un message d'avertissement apparaîtra pour vous rappeler Validation des données sera supprimé si vous appliquez cette fonctionnalité, voir capture d'écran:
4. Puis clique Oui bouton pour continuer, et une autre boîte de dialogue apparaît pour vous rappeler quelles cellules ont été appliquées à cette fonctionnalité. Voir la capture d'écran:
5. Et puis cliquez OK , maintenant, lorsque vous entrez des données en double dans la plage A1: D15, une boîte de dialogue s'affiche pour vous rappeler que les données en double ne sont pas valides, vous devez uniquement entrer la valeur unique. Voir la capture d'écran:
Plus de 200 fonctions peuvent rendre votre travail efficace, vous pouvez téléchargez Kutools for Excel pour une piste gratuite.
