Note: The other languages of the website are Google-translated. Back to English

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?

doc-insert-manjka-številka1 -2 doc-insert-manjka-številka2

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


puščica modri desni mehurček 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:

doc-insert-manjka-številka3

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

doc-insert-manjka-številka4

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

doc-insert-manjka-številka5

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:

doc-insert-manjka-številka6 -2 doc-insert-manjka-številka7

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

doc-insert-manjka-številka8


puščica modri desni mehurček 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:

doc-insert-manjka-številka9

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

doc-insert-manjka-številka1 -2 doc-insert-manjka-številka2

puščica modri desni mehurček 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:

doc-insert-manjka-številka9

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

doc-insert-manjka-številka1 -2 doc-insert-manjka-številka10

puščica modri desni mehurček 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.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Č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:

doc-insert-manjka-številka10

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

doc-insert-manjka-številka10 2 doc-insert-manjka-številka10 2 doc-insert-manjka-številka10

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


puščica modri desni mehurček  Predstavitev: Vstavite manjkajoče številke ali prazne vrstice za zaporedje s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

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.
zavihek kte 201905

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!
dno pisarniške mize
Komentarji (10)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala! Odličen scenarij! Kako lahko spremenim ta skript, če rečem, da moramo obdelati ne samo stolpec ID + stolpec NAME, temveč stolpec ID + stolpec NAME + NOV stolpec? Kako lahko dodam nove stolpce v ta skript?
Ta komentar je moderator na spletnem mestu minimiziral
Sledi spremenjeni makro, ki vključuje dodan stolpec - Druga pomembna točka je, da morate ob pozivu, da izberete obseg, izbrati samo prvi stolpec - to mi je vzelo nekaj ur! upam, da bom drugim prihranil čas

Sub InsertValueBetween()
'Posodobitev Extendoffice
Dim WorkRng As Range
Dim Rng kot domet
Dim outArr Kot različica
Dim dic kot varianta
Nastavi dic = CreateObject("Scripting.Dictionary")
Dim dic2 kot različica
Nastavite dic2 = CreateObject("Scripting.Dictionary")

'Ob napaki Nadaljuj naprej
xTitleId = "KutoolsforExcel"
Nastavite WorkRng = Aplikacija.Izbor
Nastavi WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Vrednost
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 do intervala + 1, 1 do 3)
Za vsak Rng v WorkRng
dic(Rng.Vrednost) = Rng.Offset(0, 1).Vrednost
dic2(Rng.Value) = Rng.Offset(0, 2).Vrednost
Naslednji
Za i = 0 To interval
outArr(i + 1, 1) = i + num1
Če dic.Exists(i + num1) Potem
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
Else
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

Konec Če
Naslednji
Z WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Vrednost = outArr
.Izberite
Končaj s
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
to je delovalo in nalogo je bilo zelo enostavno dokončati. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala. Kako spremenim skript, če je prirast samo 0.02 in ne 1 To je za skript InsertNullBetween()
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če želim izbrati 6 stolpcev in nato preveriti 1. stolpec za datume in če datumi manjkajo, dodam vrstico (prazne celice) za vseh 6 stolpcev
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, želim uporabiti "Vstavljanje manjkajoče zaporedne številke", vendar ne podpira, če št. števk je več kot 12 ali lahko pomagate?
Ta komentar je moderator na spletnem mestu minimiziral
Želim uporabiti funkcijo "Vstavljanje manjkajoče zaporedne številke", vendar ne podpira števk, večjih od 12? obstaja veliko nizov, v katere želim vstaviti zaporedje med (to je alfa-številčna številka) ali lahko pomagate
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če želim izbrati 6 stolpcev in nato preveriti 1. stolpec za datume in če datumi manjkajo, dodam vrstico (prazne celice) za vseh 6 stolpcev
Ta komentar je moderator na spletnem mestu minimiziral
Hvala neverjetno
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam uporabiti VBA za zaporedne številke. Imam več stolpcev poleg številk, katerih tudi številke. tj
1. Merilnik HL 34
2. Vodomer HL 40
4. HL CO2meter 24

Ko uporabim kodo, deluje za prve 3 stolpce, vendar se pomeša, če vključim 4. stolpec, saj vključuje tudi številke.
Kako lahko spremenim kodo, da zagotovim, da številke v stolpcu 4 ostanejo enake?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL