Comment insérer des numéros ou des lignes pour des numéros séquentiels manquants dans Excel ?
Supposons que vous ayez une liste de numéros séquentiels dans une feuille de calcul, mais qu'il y ait certains numéros manquants dans la séquence, et maintenant vous devez insérer les numéros manquants ou des lignes vides pour vous assurer que la séquence soit complète (comme le montrent les captures d'écran suivantes). Comment pourriez-vous résoudre rapidement ce problème dans Excel ?
Insérer des numéros manquants pour la séquence avec la fonction Trier et Supprimer les doublons
Vous pouvez peut-être trouver les numéros manquants un par un, puis les insérer, mais il est difficile d'identifier l'emplacement des numéros manquants s'il y a des centaines de numéros séquentiels. Dans Excel, je peux utiliser la fonction Trier et Supprimer les doublons pour traiter cette tâche.
1. Après la fin de la liste de séquences, remplissez une autre série de numéros séquentiels de 2005023001 à 2005023011. Voir la capture d'écran :
2. Ensuite, sélectionnez la plage des deux séries de numéros et cliquez sur Données > Trier de A à Z, voir la capture d'écran :
3. Et les données sélectionnées ont été triées comme le montre la capture d'écran suivante :
4. Ensuite, vous devez supprimer les doublons en cliquant sur Données > Supprimer les doublons, et dans la boîte de dialogue Supprimer les doublons qui apparaît, cochez le nom de la Colonne dont vous souhaitez supprimer les doublons, voir les captures d'écran :
 |  |  |
5. Cliquez ensuite sur OK, les doublons dans la Colonne A ont été supprimés, et les numéros manquants dans la liste de séquences ont été insérés, voir la capture d'écran :
Insérer des numéros ou des lignes vides manquants pour la séquence avec Kutools pour Excel
Ici, je vais vous présenter un outil facile et pratique - Kutools pour Excel, avec sa fonction Trouver une séquence manquante, vous pouvez rapidement insérer le numéro de séquence manquant ou des lignes vides entre la séquence de données existante.
Si vous avez installé Kutools pour Excel, veuillez procéder comme suit :
1. Sélectionnez la séquence de données dans laquelle vous souhaitez insérer les numéros manquants.
2. Cliquez sur Kutools > Insérer > Trouver une séquence manquante, voir la capture d'écran :
3. Dans la boîte de dialogue Trouver une séquence manquante, cochez Insérer des données manquantes pour insérer les numéros manquants ou Insérer des lignes vides manquantes lors de la rencontre de numéros de séquence manquants pour insérer des lignes vides selon vos besoins. Voir la capture d'écran :
4. Puis cliquez sur le bouton OK, et les numéros de séquence manquants ou les lignes vides ont été insérés dans les données, voir les captures d'écran :
 | |  | |  |
Téléchargez et essayez gratuitement Kutools pour Excel dès maintenant !
Insérer des numéros manquants pour la séquence avec du code VBA
Si vous trouvez qu'il y a trop d'étapes avec les méthodes ci-dessus, voici également un code VBA qui peut vous aider à résoudre ce problème. Veuillez procéder comme suit :
1. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.
VBA : insérer des numéros manquants pour la séquence
Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra, veuillez sélectionner la plage de données dans laquelle vous souhaitez insérer les numéros manquants (ne sélectionnez pas la plage de titre), voir la capture d'écran :
4. Cliquez ensuite sur OK, les numéros manquants ont été insérés dans la liste de séquences. Voir les captures d'écran :
 | |  |
Insérer des lignes vides pour la séquence manquante avec du code VBA
Parfois, vous devez simplement localiser l'emplacement des numéros manquants et insérer des lignes vides entre les données, afin de pouvoir entrer les informations dont vous avez besoin. Bien sûr, le code VBA suivant peut également vous aider à résoudre ce problème.
1. Maintenez les touches ALT + F11 enfoncées, et cela ouvre une fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.
VBA : insérer des lignes vides pour la séquence manquante
Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
If dic.Exists(i + num1) Then
outArr(i + 1, 1) = i + num1
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 1) = ""
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue s'affichera, puis sélectionnez la plage de données dans laquelle vous souhaitez insérer des lignes vides pour la séquence manquante (ne sélectionnez pas la plage de titre), voir la capture d'écran :
4. Cliquez ensuite sur OK, les lignes vides ont été insérées pour la liste de séquences manquantes. Voir les captures d'écran :
| |  |
Article connexe :
Comment identifier une séquence de numéros manquants dans Excel ?
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels