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

Supponiamo di avere un elenco di numeri sequenziali in un foglio di lavoro, ma ci sono alcuni numeri mancanti nella sequenza, e ora è necessario inserire i numeri mancanti o righe vuote per assicurarsi che la sequenza sia completa (come mostrato negli screenshot seguenti). Come si potrebbe risolvere rapidamente questo problema in Excel?

Inserisci numeri mancanti per la sequenza utilizzando le funzionalità Ordina e Rimuovi Duplicati Inserisci numeri mancanti o righe vuote per la sequenza con Kutools per Excel Inserisci numeri mancanti per la sequenza con il codice VBA Inserisci righe vuote per la sequenza mancante con il codice VBA

Inserisci numeri mancanti per la sequenza utilizzando le funzionalità Ordina e Rimuovi Duplicati

Forse puoi trovare i numeri mancanti uno per uno e poi inserirli, ma è difficile identificare la posizione dei numeri mancanti se ci sono centinaia di numeri sequenziali. In Excel, posso utilizzare le funzionalità Ordina e Rimuovi Duplicati per gestire questo compito.

1. Alla fine dell'elenco della sequenza, inserisci un'altra serie di numeri sequenziali da 2005023001 a 2005023011. Vedi screenshot:

2. Quindi seleziona l'intervallo delle due serie di numeri e fai clic su Dati > Ordina Crescente, vedi screenshot:

3. E i dati selezionati sono stati ordinati come mostrato nello screenshot seguente:

4. Successivamente, devi rimuovere i duplicati facendo clic su Dati > Rimuovi Duplicati, e nella finestra di dialogo Rimuovi Duplicati che appare, seleziona il nome della Colonna da cui desideri rimuovere i duplicati, vedi gli screenshot:

5. Quindi fai clic su OK, i duplicati nella Colonna A sono stati eliminati e i numeri mancanti nell'elenco della sequenza sono stati inseriti, vedi screenshot:

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

Qui, vorrei introdurre uno strumento facile e pratico - Kutools per Excel, con la sua funzione Trova Sequenza Mancante, puoi inserire rapidamente i numeri di sequenza mancanti o righe vuote tra la sequenza di dati esistente.

Se hai installato Kutools per Excel, procedi come segue:

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

2. Fai clic su Kutools > Inserisci > Trova Sequenza Mancante, vedi screenshot:

3. Nella finestra di dialogo Trova Sequenza Mancante, seleziona Inserisci numeri di sequenza mancanti per inserire i numeri mancanti o Inserisci righe vuote quando si incontrano numeri di sequenza mancanti per inserire righe vuote secondo necessità. Vedi screenshot:

4. Quindi fai clic sul pulsante OK, e i numeri di sequenza mancanti o le righe vuote sono state inserite nei dati, vedi gli screenshot:

Scarica e prova gratuitamente Kutools per Excel Ora!

Inserisci numeri mancanti per la sequenza con il codice VBA

Se ritieni che ci siano troppi passaggi con i metodi precedenti, ecco anche un codice VBA che può aiutarti a risolvere questo problema. Procedi come segue:

1. Tieni premuti i tasti ALT + F11, e si aprirà la finestra Microsoft Visual Basic per Applicazioni.

2. Fai clic su Inserisci > Modulo, e incolla il seguente codice nella finestra Modulo.

VBA: inserisci 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 premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo; seleziona l'intervallo di dati in cui desideri inserire i numeri mancanti (non selezionare l'intervallo del titolo), vedi screenshot:

4. Quindi fai clic su OK, i numeri mancanti sono stati inseriti nell'elenco della sequenza. Vedi screenshot:

Inserisci righe vuote per la sequenza mancante con il codice VBA

A volte, è sufficiente individuare il punto dei numeri mancanti e inserire righe vuote tra i dati, in modo da poter inserire le informazioni necessarie. Naturalmente, il seguente codice VBA può anche aiutarti a risolvere questo problema.

1. Tieni premuti i tasti ALT + F11, e si aprirà una finestra Microsoft Visual Basic per Applicazioni.

2. Fai clic su Inserisci > Modulo, e incolla il seguente codice nella finestra Modulo.

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 premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo; seleziona quindi l'intervallo di dati in cui desideri inserire righe vuote per la sequenza mancante (non selezionare l'intervallo del titolo), vedi screenshot:

4. Quindi fai clic su OK, le righe vuote sono state inserite per l'elenco della sequenza mancante. Vedi screenshot:

Articolo correlato:

Come identificare la sequenza di numeri mancanti in Excel?