Cum se introduc numere sau rânduri pentru numerele secvențiale lipsă în Excel?
Presupunând că aveți o listă de numere secvențiale într-o foaie de lucru, dar există câteva numere care lipsesc între secvență și acum trebuie să inserați numerele lipsă sau rândurile goale pentru a vă asigura că secvența este completă (prezentată ca următoarele capturi de ecran). Cum ați putea rezolva rapid această problemă în Excel?
Introduceți numerele lipsă pentru secvență cu funcția Sortare și eliminare duplicate
Poate că puteți găsi numerele care lipsesc unul câte unul și apoi le puteți insera, dar este dificil pentru dvs. să identificați locația celor care lipsesc dacă există sute de numere secvențiale. În Excel, pot folosi funcția Sortare și eliminare duplicate pentru a face față acestei sarcini.
1. După sfârșitul listei de secvențe, completați alte numere de secvență de la 2005023001 la 2005023011. Vedeți captura de ecran:
2. Apoi selectați intervalul celor două numere de ordine și faceți clic Date > Sortați de la A la Z, vezi captura de ecran:
3. Și datele selectate au fost sortate după cum urmează:
4. Apoi, trebuie să eliminați duplicatele făcând clic Date > Eliminați duplicatele, și în pop-out Eliminați duplicatele caseta de dialog, verificați Coloană numele pe care doriți să eliminați duplicatele, consultați capturile de ecran:
5. Apoi apasa OK, duplicatele din Coloana A a fost șters, iar numerele lipsă din lista de secvențe au fost inserate, a se vedea captura de ecran:
Introduceți numerele lipsă pentru secvență cu codul VBA
Dacă credeți că există atât de mulți pași cu metodele de mai sus, aici aveți și cod VBA care vă poate ajuta să terminați această problemă. Vă rugăm să faceți următoarele:
1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module fereastră.
VBA: introduceți numerele lipsă pentru secvență
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. Apoi apăsați F5 tasta pentru a rula acest cod și se va afișa o casetă de solicitare, vă rugăm să selectați intervalul de date pe care doriți să introduceți numerele lipsă (nu selectați intervalul de titlu), consultați captura de ecran:
4. Apoi faceți clic pe OK, numerele lipsă au fost inserate în lista de secvențe. Vedeți capturi de ecran:
Introduceți rânduri goale pentru secvența lipsă cu codul VBA
Uneori, trebuie doar să localizați locul numerelor lipsă și să introduceți rânduri goale între date, astfel încât să puteți introduce informațiile după cum aveți nevoie. Desigur, și următorul cod VBA vă poate ajuta să rezolvați această problemă.
1. Țineți apăsată tasta ALT + F11 tastele și deschide un Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module fereastră.
VBA: introduceți rânduri goale pentru secvența lipsă
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. Apoi apăsați F5 tasta pentru a rula acest cod și se va afișa o casetă de solicitare, apoi selectați intervalul de date pe care doriți să îl inserați rânduri goale pentru secvența lipsă (nu selectați intervalul de titlu), vedeți captura de ecran:
4. Apoi faceți clic pe OK, rândurile goale au fost inserate pentru lista de secvențe lipsă. Vedeți capturi de ecran:
Introduceți numerele lipsă sau rândurile goale pentru secvență cu Kutools pentru Excel
Aici, voi introduce un instrument ușor și la îndemână- Kutools pentru Excel, Cu său Găsiți numărul de secvență lipsă caracteristică, puteți insera rapid numărul de secvență lipsă sau rândurile goale între secvența de date existentă.
Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
Dacă ați instalat Kutools pentru Excel, vă rugăm să faceți următoarele:
1. Selectați secvența de date pe care doriți să o inserați numerele lipsă.
2. Clic Kutools > Insera > Găsiți numărul de secvență lipsă, vezi captura de ecran:
3. În Găsiți numărul de secvență lipsă casetă de dialog, bifați Se introduce numărul secvenței lipsă pentru a insera numerele lipsă sau eunsertarea rândurilor goale atunci când întâlniți numerele de secvență lipsă pentru a insera rânduri goale după cum aveți nevoie. Vedeți captura de ecran:
4. Apoi faceți clic pe OK , iar numerele secvenței lipsă sau rândurile goale au fost inserate în date, consultați capturile de ecran:
Descărcați și proba gratuită Kutools pentru Excel acum!
Demo: introduceți numerele lipsă sau rândurile goale pentru secvență cu Kutools pentru Excel
Articol asociat:
Cum se identifică secvența numerelor lipsă în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!