Come inserire numeri o righe per colmare le lacune nella sequenza numerica in Excel?
Si supponga di avere un elenco di numeri sequenziali in un foglio di lavoro, ma con alcuni numeri mancanti nella sequenza. Come si può risolvere rapidamente questo problema in Excel, inserendo i numeri mancanti o righe vuote per completare la sequenza (come mostrato negli screenshot seguenti)?
Inserisci i numeri mancanti nella sequenza con la funzione Ordina e Rimuovi duplicati
Individuare manualmente i numeri mancanti e inserirli uno per uno potrebbe essere possibile, ma diventa complicato localizzarli quando la sequenza contiene centinaia di valori. In Excel, puoi semplificare questa operazione grazie alla funzione **Ordina e Rimuovi duplicati**.
1. Al termine dell’elenco della sequenza, inserisci i numeri consecutivi da 2005023001 a 2005023011. Vedere lo screenshot:
2. Selezionare quindi l’intervallo dei due numeri consecutivi e fare clic su Dati > Crescente. Vedere lo screenshot:
3. E i dati selezionati sono stati ordinati come nello screenshot seguente:
4. Successivamente, per rimuovere i duplicati, fai clic su Dati > Rimuovi duplicati. Nella finestra di dialogo Rimuovi duplicati che si apre, seleziona il nome della colonna da cui desideri eliminare i duplicati. Consulta gli screenshot seguenti:
 |  |  |
5. Fare quindi clic su OK: i duplicati nella Colonna A sono stati eliminati e i numeri mancanti nell’elenco della sequenza sono stati inseriti. Vedere lo screenshot:
Inserisci i numeri mancanti o Righe vuote nella sequenza con Kutools per Excel
Di seguito viene presentato uno strumento semplice e pratico: Kutools per Excel. Grazie alla sua funzione Trova sequenza mancante, puoi inserire rapidamente i numeri di sequenza mancanti o le righe vuote tra i dati esistenti della sequenza.
Se si dispone già di Kutools per Excel, procedere come segue:
1. Seleziona la sequenza di dati in cui desideri inserire i numeri mancanti.
2. Fare clic su Kutools > Inserisci > Trova sequenza mancante, vedere lo screenshot:
3. Nella finestra di dialogo Trova sequenza mancante, seleziona Inserisci dati mancanti per inserire i numeri mancanti oppure Inserimento di righe vuote quando si rilevano numeri consecutivi mancanti per aggiungere righe vuote in base alle tue esigenze. Guarda lo screenshot:
4. Fare quindi clic sul pulsante OK: i numeri consecutivi o le righe vuote mancanti verranno inseriti nei dati. Vedere gli screenshot:
 | |  | |  |
Scarica e prova subito Kutools per Excel gratuitamente!
Inserisci i numeri mancanti nella sequenza con codice VBA
Se ritieni che i metodi precedenti comportino troppi passaggi, puoi contare su un pratico codice VBA per risolvere il problema in modo rapido. Ecco come procedere:
1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo e incolla il codice seguente nella finestra del Modulo.
VBA: inserisci i numeri mancanti nella 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. Premere quindi il tasto F5 per eseguire il codice; verrà visualizzata una finestra di dialogo in cui specificare l’intervallo dati in cui si desidera inserire i numeri mancanti (non selezionare l’intervallo titolo). Vedere lo screenshot:
4. Fare quindi clic su OK e i numeri mancanti verranno inseriti nell’elenco della sequenza. Vedere gli screenshot:
 | |  |
Inserisci Righe vuote per la sequenza mancante con codice VBA
A volte basta individuare la posizione dei numeri mancanti e inserire righe vuote tra i dati, per potervi successivamente immettere le informazioni desiderate. Anche il seguente codice VBA può rivelarsi utile per risolvere questo problema.
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci>Modulo, e incollare il codice seguente nella finestra del 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. Premere quindi il tasto F5 per eseguire il codice; verrà visualizzata una finestra di dialogo in cui selezionare l’intervallo dati in cui si desidera inserire righe vuote per la sequenza mancante (non selezionare l’intervallo titolo). Vedere lo screenshot:
4. Fare quindi clic su OK e le righe vuote saranno inserite per completare l’elenco della sequenza mancante. Vedere gli screenshot:
| |  |
Articolo correlato:
Come identificare una sequenza con numeri mancanti in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi