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

Jak vložit čísla nebo řádky pro chybějící pořadová čísla v aplikaci Excel?

Předpokládejme, že máte v listu seznam sekvenčních čísel, ale mezi sekvencemi jsou některá chybějící čísla a nyní musíte vložit chybějící čísla nebo prázdné řádky, abyste se ujistili, že je sekvence kompletní (zobrazeno jako následující screenshoty). Jak byste mohli rychle vyřešit tento problém v aplikaci Excel?

doc-insert-missing-number1 -2 doc-insert-missing-number2

Vložte chybějící čísla pro sekvenci pomocí funkce Třídit a Odstranit duplikáty

Vložte chybějící čísla pro sekvenci pomocí kódu VBA

Vložte prázdné řádky pro chybějící sekvenci s kódem VBA

Vložte chybějící čísla nebo prázdné řádky pro sekvenci pomocí programu Kutools pro Excel


šipka modrá pravá bublina Vložte chybějící čísla pro sekvenci pomocí funkce Třídit a Odstranit duplikáty

Možná můžete najít chybějící čísla po jednom a poté je vložit, ale je těžké identifikovat umístění chybějících čísel, pokud existují stovky po sobě jdoucích čísel. V aplikaci Excel mohu k řešení tohoto úkolu použít funkci Seřadit a odebrat duplikáty.

1. Na konci seznamu sekvencí vyplňte další čísla sekvencí od 2005023001 do 2005023011. Viz snímek obrazovky:

doc-insert-missing-number3

2. Poté vyberte rozsah dvou pořadových čísel a klikněte Data > Třídit od A do Z., viz screenshot:

doc-insert-missing-number4

3. A vybraná data byla tříděna jako následující snímek obrazovky:

doc-insert-missing-number5

4. Poté musíte duplikáty odstranit kliknutím Data > Odebrat duplikátya vyskočil Odebrat duplikáty V dialogovém okně zaškrtněte Sloupec název, který chcete odstranit duplikáty, viz screenshoty:

doc-insert-missing-number6 -2 doc-insert-missing-number7

5. Pak klikněte na tlačítko OK, duplikáty v Sloupec A byl odstraněn a byla vložena chybějící čísla v seznamu sekvencí, viz screenshot:

doc-insert-missing-number8


šipka modrá pravá bublina Vložte chybějící čísla pro sekvenci pomocí kódu VBA

Pokud máte pocit, že s výše uvedenými metodami existuje tolik kroků, zde máte také kód VBA, který vám pomůže tento problém dokončit. Postupujte prosím následovně:

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul okno.

VBA: vložte chybějící čísla pro sekvenci

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, vyberte datový rozsah, do kterého chcete vložit chybějící čísla (nevybírejte rozsah názvu), viz screenshot:

doc-insert-missing-number9

4. A pak klikněte na tlačítko OK, chybějící čísla byla vložena do seznamu sekvencí. Zobrazit snímky obrazovky:

doc-insert-missing-number1 -2 doc-insert-missing-number2

šipka modrá pravá bublina Vložte prázdné řádky pro chybějící sekvenci s kódem VBA

Někdy stačí najít místo chybějících čísel a mezi data vložit prázdné řádky, abyste mohli zadat potřebné informace. Následující kód VBA vám samozřejmě pomůže vyřešit tento problém.

1. Podržte stisknuté tlačítko ALT + F11 klíče a otevře se a Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul okno.

VBA: vložte prázdné řádky pro chybějící sekvenci

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva a poté vyberte rozsah dat, do kterého chcete vložit prázdné řádky pro chybějící sekvenci (nevybírejte rozsah názvu), viz screenshot:

doc-insert-missing-number9

4. A pak klikněte na tlačítko OK, byly vloženy prázdné řádky pro seznam chybějících sekvencí. Zobrazit snímky obrazovky:

doc-insert-missing-number1 -2 doc-insert-missing-number10

šipka modrá pravá bublina Vložte chybějící čísla nebo prázdné řádky pro sekvenci pomocí programu Kutools pro Excel

Zde představím snadný a praktický nástroj - Kutools pro Excel, S jeho Najděte chybějící pořadové číslo Pomocí funkce můžete rychle vložit chybějící pořadové číslo nebo prázdné řádky mezi stávající datovou sekvenci.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Pokud jste nainstalovali Kutools pro Excel, postupujte následovně:

1. Vyberte sekvenci dat, do které chcete vložit chybějící čísla.

2, klikněte Kutools > Vložit > Najděte chybějící pořadové číslo, viz screenshot:

3. V Najděte chybějící pořadové číslo v dialogovém okně zaškrtněte Vkládání chybějícího pořadového čísla vložit chybějící čísla nebo Ivložit prázdné řádky, když narazíte na chybějící pořadová čísla podle potřeby vložit prázdné řádky. Viz snímek obrazovky:

doc-insert-missing-number10

4. A pak klikněte na tlačítko OK tlačítko a do dat byla vložena chybějící pořadová čísla nebo prázdné řádky, viz screenshoty:

doc-insert-missing-number10 2 doc-insert-missing-number10 2 doc-insert-missing-number10

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


šipka modrá pravá bublina  Ukázka: Vložte chybějící čísla nebo prázdné řádky pro sekvenci pomocí programu Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Jak identifikovat sekvenci chybějících čísel v aplikaci Excel?


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (10)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Dík ! Skvělý scénář! Jak mohu upravit tento skript, pokud řeknu, že potřebujeme zpracovat nejen sloupec ID + sloupec NAME, ale sloupec ID + sloupec NAME + NOVÝ sloupec? Jak mohu přidat nové sloupce do tohoto skriptu?
Tento komentář byl moderátorem webu minimalizován
Následuje upravené makro tak, aby zahrnovalo přidaný sloupec – Dalším důležitým bodem je, že když budete vyzváni k výběru rozsahu, měli byste vybrat pouze první sloupec – to mi trvalo několik hodin! doufám, že ušetřím čas ostatních

Sub InsertValueBetween()
'Aktualizovat Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr jako varianta
Dim dic jako varianta
Set dic = CreateObject("Scripting.Dictionary")
Dim dic2 jako varianta
Set dic2 = CreateObject("Scripting.Dictionary")

'Při chybě pokračovat dále
xTitleId = "Kutoolsfor Excel"
Nastavte WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Hodnota
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 až interval + 1, 1 až 3)
Pro každý Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Hodnota
dic2(Rng.Value) = Rng.Offset(0, 2).Hodnota
další
Pro i = 0 To interval
outArr(i + 1, 1) = i + číslo1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
Jiný
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
další
S WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Hodnota = outArr
.Vybrat
Konec s
End Sub
Tento komentář byl moderátorem webu minimalizován
to fungovalo a bylo velmi snadné dokončit úkol. Děkuji.
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát. Jak změním skript, pokud jsou přírůstky pouze 0.02 a ne 1 Toto je pro skript InsertNullBetween()
Tento komentář byl moderátorem webu minimalizován
Co když chci vybrat 6 sloupců a pak zkontrolovat 1. sloupec pro data a pokud data chybí, přidat řádek (prázdné buňky) pro všech 6 sloupců
Tento komentář byl moderátorem webu minimalizován
Ahoj, chci použít "Vložení chybějícího pořadového čísla", ale nepodporuje to, pokud ne. číslic je více než 12, můžete pomoci?
Tento komentář byl moderátorem webu minimalizován
Chci použít funkci "Vložení chybějícího čísla sekvence", ale nepodporuje číslice větší než 12? existuje mnoho sad, do kterých chci vložit sekvenci mezi (je to alfanumerická číslice), můžete mi pomoci
Tento komentář byl moderátorem webu minimalizován
Co když chci vybrat 6 sloupců a pak zkontrolovat 1. sloupec pro data a pokud data chybí, přidat řádek (prázdné buňky) pro všech 6 sloupců
Tento komentář byl moderátorem webu minimalizován
Děkuji úžasné
Tento komentář byl moderátorem webu minimalizován
Snažím se používat VBA pro sekvenční čísla. Mám několik sloupců vedle čísel, z nichž také čísla. Tj
1. Měřič HL 34
2. Vodoměr HL 40
4. HL CO2metr 24

Když použiji kód, funguje to pro první 3 sloupce, ale pokud zahrnu 4. sloupec, dojde k záměně, protože obsahuje také čísla.
Jak mohu změnit kód, abych se ujistil, že čísla ve sloupci 4 zůstanou stejná?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL