Jak wstawić liczby lub wiersze dla brakujących liczb sekwencyjnych w programie Excel?
Przypuśćmy, że masz listę kolejnych numerów w arkuszu, ale w sekwencji brakuje kilku liczb, a teraz musisz wstawić brakujące liczby lub puste wiersze, aby upewnić się, że sekwencja jest kompletna (pokazane na poniższych zrzutach ekranu). Jak możesz szybko rozwiązać ten problem w programie Excel?
Wstaw brakujące liczby do sekwencji za pomocą funkcji Sortuj i usuń duplikaty
Być może możesz znaleźć brakujące numery jeden po drugim, a następnie je wstawić, ale trudno jest zidentyfikować lokalizację brakujących numerów, jeśli istnieją setki kolejnych numerów. W programie Excel mogę użyć funkcji Sortuj i usuń duplikaty, aby poradzić sobie z tym zadaniem.
1. Po zakończeniu listy sekwencji wprowadź kolejne numery sekwencji od 2005023001 do 2005023011. Zobacz zrzut ekranu:
2. Następnie wybierz zakres dwóch numerów sekwencyjnych i kliknij Dane > Sortuj od A do Zzobacz zrzut ekranu:
3. Wybrane dane zostały posortowane w następujący sposób:
4. Następnie musisz usunąć duplikaty, klikając Dane > Usuń duplikatyi wyskoczył Usuń duplikaty w oknie dialogowym, sprawdź Kolumna nazwa, którą chcesz usunąć duplikaty, zobacz zrzuty ekranu:
 |
 |
 |
5. Następnie kliknij OK, duplikaty w Kolumna A został usunięty, a brakujące numery na liście sekwencji zostały wstawione, patrz zrzut ekranu:
Wstaw brakujące liczby do sekwencji z kodem VBA
Jeśli uważasz, że jest tak wiele kroków z powyższymi metodami, tutaj również kod VBA może pomóc w rozwiązaniu tego problemu. Wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł okno.
VBA: wstaw brakujące liczby do sekwencji
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. Następnie naciśnij F5 Aby uruchomić ten kod, pojawi się okienko zachęty, wybierz zakres danych, w którym chcesz wstawić brakujące liczby (nie wybieraj zakresu tytułów), zobacz zrzut ekranu:
4. A następnie kliknij OK, brakujące numery zostały wstawione do listy sekwencji. Zobacz zrzuty ekranu:
 |
|
 |
Wstaw puste wiersze dla brakującej sekwencji z kodem VBA
Czasami wystarczy zlokalizować miejsce brakujących liczb i wstawić puste wiersze między danymi, aby można było wprowadzić potrzebne informacje. Oczywiście poniższy kod VBA może również pomóc w rozwiązaniu tego problemu.
1. Przytrzymaj przycisk ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł okno.
VBA: wstaw puste wiersze dla brakującej sekwencji
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. Następnie naciśnij F5 klawisz, aby uruchomić ten kod, a pojawi się okno zachęty, a następnie wybierz zakres danych, w którym chcesz wstawić puste wiersze dla brakującej sekwencji (nie wybieraj zakresu tytułów), zobacz zrzut ekranu:
4. A następnie kliknij OK, wstawiono puste wiersze dla brakującej listy sekwencji. Zobacz zrzuty ekranu:
|
|
 |
Wstaw brakujące liczby lub puste wiersze dla sekwencji za pomocą Kutools for Excel
Tutaj przedstawię łatwe i poręczne narzędzie- Kutools dla programu Excel, Z siedzibą w Znajdź brakujący numer kolejny można szybko wstawić brakujący numer sekwencji lub puste wiersze między istniejącą sekwencją danych.
| Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Jeśli masz zainstalowany Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz sekwencję danych, w której chcesz wstawić brakujące liczby.
2. Kliknij Kutools > wstawka > Znajdź brakujący numer kolejnyzobacz zrzut ekranu:
3, w Znajdź brakujący numer kolejny okno dialogowe, zaznacz Wstawianie brakującego numeru sekwencyjnego wstawić brakujące liczby lub Inserting pustych wierszy w przypadku napotkania brakujących numerów sekwencyjnych aby wstawić puste wiersze, jak potrzebujesz. Zobacz zrzut ekranu:
4. A następnie kliknij OK przycisk, a brakujące numery sekwencyjne lub puste wiersze zostały wstawione do danych, patrz zrzuty ekranu:
 |
|
 |
|
 |
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Demo: Wstaw brakujące liczby lub puste wiersze do sekwencji za pomocą Kutools for Excel
Podobne artykuły:
Jak zidentyfikować brakującą sekwencję liczb w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
