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
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.
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:
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 pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!