Come inserire numeri o righe per numeri sequenziali mancanti in Excel?

Supponendo di avere un elenco di numeri sequenziali in un foglio di lavoro, ma ci sono alcuni numeri mancanti tra la sequenza e ora è necessario inserire i numeri mancanti o le righe vuote per assicurarsi che la sequenza sia completa (mostrata come le seguenti schermate). Come hai potuto risolvere rapidamente questo problema in Excel?

Inserisci i numeri mancanti per la sequenza con la funzione Ordina e rimuovi duplicati Inserisci numeri mancanti o righe vuote per la sequenza con Kutools per Excel Inserisci i numeri mancanti per la sequenza con codice VBA Inserisci righe vuote per la sequenza mancante con codice VBA

Inserisci i numeri mancanti per la sequenza con la funzione Ordina e rimuovi duplicati

Potrebbe essere possibile trovare i numeri mancanti uno per uno e quindi inserirli, ma è difficile identificare la posizione di quelli mancanti se ci sono centinaia di numeri sequenziali. In Excel, posso utilizzare la funzione Ordina e rimuovi duplicati per gestire questa attività.

1. Dopo la fine dell'elenco delle sequenze, inserisci un altro numero di sequenza da 2005023001 a 2005023011. Vedi screenshot:

2. Quindi selezionare l'intervallo dei due numeri di sequenza e fare clic Dati > Ordina dalla A alla Z, vedi screenshot:

3. E i dati selezionati sono stati ordinati come nella seguente schermata:

4. Quindi è necessario rimuovere i duplicati facendo clic Dati > Rimuovi duplicati, e nel saltò fuori Rimuovi duplicati finestra di dialogo, selezionare Colonna nome che vuoi rimuovere i duplicati, vedi screenshot:

5. Quindi fare clic OK, i duplicati in Colonna A è stato cancellato e sono stati inseriti i numeri mancanti nell'elenco delle sequenze, vedi screenshot:

Inserisci numeri mancanti o righe vuote per la sequenza con Kutools per Excel

Qui presenterò uno strumento facile e pratico: Kutools for Excel, Con la sua Trova il numero di sequenza mancante funzione, è possibile inserire rapidamente il numero di sequenza mancante o righe vuote tra la sequenza di dati esistente.

Se hai installato Kutools for Excel, si prega di fare come segue:

1. Seleziona la sequenza di dati in cui desideri inserire i numeri mancanti.

2. Clic Kutools > inserire > Trova il numero di sequenza mancante, vedi screenshot:

3. Nel Trova il numero di sequenza mancante finestra di dialogo, controllare Inserimento del numero di sequenza mancante per inserire i numeri mancanti o I.nserire righe vuote quando si incontrano numeri di sequenza mancanti per inserire righe vuote di cui hai bisogno. Vedi screenshot:

4. E poi clicca OK e i numeri di sequenza mancanti o le righe vuote sono stati inseriti nei dati, vedi screenshot:

Scarica e prova gratuitamente Kutools per Excel ora!

Inserisci i numeri mancanti per la sequenza con codice VBA

Se ritieni che ci siano così tanti passaggi con i metodi sopra, anche qui il codice VBA può aiutarti a completare questo problema. Si prega di fare quanto segue:

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli finestra.

VBA: inserisci i numeri mancanti per la sequenza

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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio, selezionare l'intervallo di dati in cui si desidera inserire i numeri mancanti (non selezionare l'intervallo di titoli), vedere screenshot:

4. E poi clicca OK, i numeri mancanti sono stati inseriti nell'elenco delle sequenze. Vedi screenshot:

Inserisci righe vuote per la sequenza mancante con codice VBA

A volte, devi solo individuare la posizione dei numeri mancanti e inserire righe vuote tra i dati, in modo da poter inserire le informazioni di cui hai bisogno. Ovviamente, anche il seguente codice VBA può aiutarti a risolvere questo problema.

1. Tenere premuto il tasto ALT + F11 keys, e apre un file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli finestra.

VBA: inserisci righe vuote per la sequenza mancante

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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio, quindi selezionare l'intervallo di dati in cui si desidera inserire righe vuote per la sequenza mancante (non selezionare l'intervallo di titoli), vedere screenshot:

4. E poi clicca OK, le righe vuote sono state inserite per l'elenco delle sequenze mancanti. Vedi screenshot:

Articolo correlato:

Come identificare la sequenza di numeri mancanti in Excel?