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 Insérer des numéros ou des lignes vides manquants pour la séquence avec Kutools pour Excel Insérer des numéros manquants pour la séquence avec du code VBA Insérer des lignes vides pour la séquence manquante avec du code VBA

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 ?