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
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 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:
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.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
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!
Demo: inserisci numeri mancanti o righe vuote per la sequenza con Kutools per Excel
Articolo correlato:
Come identificare la sequenza di numeri mancanti in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!