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?
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:
2. Poté vyberte rozsah dvou pořadových čísel a klikněte Data > Třídit od A do Z., viz screenshot:
3. A vybraná data byla tříděna jako následující snímek obrazovky:
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:
 |
 |
 |
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:
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:
4. A pak klikněte na tlačítko OK, chybějící čísla byla vložena do seznamu sekvencí. Zobrazit snímky obrazovky:
 |
|
 |
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:
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:
|
|
 |
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:
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:
 |
|
 |
|
 |
Stáhněte si zdarma zkušební verzi Kutools pro Excel!
Ukázka: Vložte chybějící čísla nebo prázdné řádky pro sekvenci pomocí programu Kutools pro Excel
Související článek:
Jak identifikovat sekvenci chybějících čísel v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!
