Kako v Excel vstaviti številke ali vrstice za manjkajoče zaporedne številke?

Recimo, da imate na zaporedju seznam zaporednih številk, vendar med zaporedjem obstaja nekaj manjkajočih številk, zdaj pa morate vstaviti manjkajoče številke ali prazne vrstice, da zagotovite, da je zaporedje popolno (prikazano kot naslednji posnetki zaslona). Kako lahko hitro rešite to težavo v Excelu?

Vstavite manjkajoče številke za zaporedje s funkcijo Razvrsti in odstrani dvojnike Vstavite manjkajoče številke za zaporedje s kodo VBA Vstavite prazne vrstice za manjkajoče zaporedje s kodo VBA Vstavite manjkajoče številke ali prazne vrstice za zaporedje s programom Kutools za Excel

Vstavite manjkajoče številke za zaporedje s funkcijo Razvrsti in odstrani dvojnike

Morda lahko eno za drugo najdete manjkajoče številke in jih nato vstavite, vendar je težko prepoznati lokacijo manjkajočih števil, če je zaporednih številk na stotine. V Excelu lahko s to nalogo uporabljam funkcijo Razvrsti in odstrani dvojnike.

1. Po koncu seznama zaporedja vnesite še druge zaporedne številke od 2005023001 do 2005023011. Oglejte si posnetek zaslona:

2. Nato izberite obseg dveh zaporednih številk in kliknite datum > Razvrsti od A do Ž, glej posnetek zaslona:

3. In izbrani podatki so bili razvrščeni kot naslednji posnetek zaslona:

4. Nato morate dvojnike odstraniti s klikom datum > Odstrani dvojnike, in v izstreljenem Odstrani dvojnike pogovorno okno, preverite Stolpec ime, za katerega želite odstraniti dvojnike, glejte posnetke zaslona:

5. Nato kliknite OK, dvojniki v Stolpec A je bil izbrisan in vstavljene manjkajoče številke na seznamu zaporedja, glejte posnetek zaslona:

Vstavite manjkajoče številke za zaporedje s kodo VBA

Če menite, da obstaja toliko korakov z zgornjimi metodami, tukaj je tudi koda VBA, ki vam lahko pomaga dokončati to težavo. Naredite naslednje:

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli okno.

VBA: v zaporedje vstavite manjkajoče številke

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, izberite obseg podatkov, v katerega želite vstaviti manjkajoče številke (ne izberite naslova), glejte posnetek zaslona:

4. In nato kliknite OK, manjkajoče številke so bile vstavljene na seznam zaporedja. Oglejte si posnetke zaslona:

Vstavite prazne vrstice za manjkajoče zaporedje s kodo VBA

Včasih morate le najti kraj manjkajočih številk in med podatke vstaviti prazne vrstice, da boste lahko vnesli informacije, kot jih potrebujete. Seveda vam lahko pri reševanju te težave pomaga tudi naslednja koda VBA.

1. Drži dol ALT + F11 tipke in odpre se a Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli okno.

VBA: vstavite prazne vrstice za manjkajoče zaporedje

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. Nato pritisnite F5 tipko za zagon te kode, prikazalo se bo pozivno polje, nato pa izberite obseg podatkov, v katerega želite vstaviti prazne vrstice za manjkajoče zaporedje (ne izberite naslova), glejte posnetek zaslona:

4. In nato kliknite OK, prazne vrstice so bile vstavljene za seznam manjkajočih zaporedij. Oglejte si posnetke zaslona:

Vstavite manjkajoče številke ali prazne vrstice za zaporedje s programom Kutools za Excel

Tukaj bom predstavil enostavno in priročno orodje - Kutools za Excel, Z njegovim Poiščite manjkajočo zaporedno številko funkcijo lahko med obstoječe zaporedje podatkov hitro vstavite manjkajočo zaporedno številko ali prazne vrstice.

Če ste namestili Kutools za Excel, naredite naslednje:

1. Izberite zaporedje podatkov, v katerega želite vstaviti manjkajoče številke.

2. Kliknite Kutools > Vstavi > Poiščite manjkajočo zaporedno številko, glej posnetek zaslona:

3. v Poiščite manjkajočo zaporedno številko pogovorno okno, preverite Vstavljanje manjkajoče zaporedne številke da vstavite manjkajoče številke ali Ivstavljanje praznih vrstic ob naletu na manjkajoče zaporedne številke če želite vstaviti prazne vrstice, kot jih potrebujete. Oglejte si posnetek zaslona:

4. In nato kliknite OK in v podatke so bile vstavljene manjkajoče zaporedne številke ali prazne vrstice, glejte posnetke zaslona:

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!

  Predstavitev: Vstavite manjkajoče številke ali prazne vrstice za zaporedje s programom Kutools za Excel

Povezani članek:

Kako prepoznati zaporedje manjkajočih števil v Excelu?

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

• Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
• Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
• Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!

Preberite več ... Brezplačen prenos... Nakup ...