May være du kan finne den manglende tallene en etter en, og deretter sette dem, men det er vanskelig for deg å identifisere plasseringen av de savnede seg hvis det er hundrevis av sekvensiell numre. I Excel, kan jeg bruke Sorter og fjerne duplikater har å forholde seg til denne oppgaven.
1. Etter slutten av sekvensen listen, fyll i en annen sekvens tall fra 2005023001 til 2005023011. se skjermbilde:
to. Deretter velger du omfanget av de to sekvensnumre og klikker på Data > Sorter A til Z, se skjermbilde:
tre. Og den valgte dataene er sortert som følgende skjermbilde:
4. Deretter må du fjerne duplikater av klikkdata > Fjern duplikater, og i den spratt ut fjerne duplikater dialogboksen sjekke Column navnet du ønsker å fjerne duplikater, se skjerm:
5. Deretter klikker OK, har duplikater i kolonne A er slettet, og de manglende tallene på følgelisten har blitt satt inn, se skjermbilde:
Sett inn manglende tallene for sekvens med VBA-kode
Hvis du føler at det er så mange skritt med de ovennevnte metoder, her har også VBA-kode kan hjelpe deg å fullføre dette problemet. Gjør følgende:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen vinduet
VBA. Sette inn manglende tallene for sekvensen
Sub InsertValueBetween () 'Update 20130825Dim WorkRng Som RangeDim RNG Som RangeDim outArr Som VariantDim dic Som VariantSet DIC = Create (" Scripting.Dictionary ") 'On Error Resume NextxTitleId =" KutoolsforExcel "Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) num1 = WorkRng.Range (" A1 " ) .Valuenum2 = WorkRng.Range ("A" & WorkRng.Rows.Count) .Valueinterval = num2 - num1ReDim outArr (1 Til intervall + 1, 1 til 2) for hver RNG I WorkRng DIC (Rng.Value) = RNG .Offset (0, 1) .ValueNextFor i = 0 For å intervall outArr (i + 1, 1) = i + num1 Hvis dic.Exists (i + num1) Så outArr (i + 1, 2) = DIC (i + num1 ) Else outArr (i + 1, 2) = "" End IfNextWith WorkRng.Range ("A1"). Resize (UBound (outArr, 1), UBound (outArr, 2)) .Value = outArr .SelectEnd WithEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut, kan du velge dataområdet som du vil sette inn de manglende tallene (ikke velge den tittelen range), se skjermbilde:
4 . Og klikk deretter på OK, de manglende tallene har blitt satt til sekvenslisten. Se skjermbilder:
Sett tomme rader for manglende sekvens med VBA-kode
Noen ganger trenger du bare å finne sted for de manglende tallene, og sett tomme rader mellom dataene, slik at du kan skrive inn informasjon som du trenger. Selvfølgelig følgende VBA-kode kan også hjelpe deg med å løse dette problemet.
1. Hold nede ALT + F11-tastene, og det åpner en Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen vinduet
VBA. Sette inn blanke rader for mangler sekvens
Sub InsertNullBetween () 'Update 20130829Dim WorkRng Som RangeDim RNG Som RangeDim outArr Som VariantDim dic Som VariantSet DIC = Create (" Scripting.Dictionary ") 'On Error Resume NextxTitleId =" KutoolsforExcel "Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) num1 = WorkRng.Range (" A1 " ) .Valuenum2 = WorkRng.Range ("A" & WorkRng.Rows.Count) .Valueinterval = num2 - num1ReDim outArr (1 Til intervall + 1, 1 til 2) for hver RNG I WorkRng DIC (Rng.Value) = RNG .Offset (0, 1) .ValueNextFor i = 0 For å intervall Hvis dic.Exists (i + num1) Så outArr (i + 1, 1) = i + num1 outArr (i + 1, 2) = DIC (i + num1 ) Else outArr (i + 1, 1) = "" outArr (i + 1, 2) = "" End IfNextWith WorkRng.Range ("A1"). Resize (UBound (outArr, 1), UBound (outArr, 2) ) .Value = outArr .SelectEnd WithEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boksen vil vise, og velg deretter dataområdet som du vil sette inn blanke rader for den manglende sekvens (ikke velge den tittelen range), se skjermbilde:
4. Og klikk deretter på OK, de tomme rader er satt inn for sekvenslisten mangler. Se skjermbilder:
Sett manglende tallene eller tomme rader for sekvens med Kutools for Excel
Noen ganger trenger du bare å finne sted for de manglende tallene, og sett tomme rader mellom dataene, slik at du kan skrive inn informasjon som du trenger. Selvfølgelig følgende VBA-kode kan også hjelpe deg med å løse dette problemet.
1. Hold nede ALT + F11-tastene, og det åpner en Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen vinduet
VBA. Sette inn blanke rader for mangler sekvens
Sub InsertNullBetween () 'Update 20130829Dim WorkRng Som RangeDim RNG Som RangeDim outArr Som VariantDim dic Som VariantSet DIC = Create (" Scripting.Dictionary ") 'On Error Resume NextxTitleId =" KutoolsforExcel "Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) num1 = WorkRng.Range (" A1 " ) .Valuenum2 = WorkRng.Range ("A" & WorkRng.Rows.Count) .Valueinterval = num2 - num1ReDim outArr (1 Til intervall + 1, 1 til 2) for hver RNG I WorkRng DIC (Rng.Value) = RNG .Offset (0, 1) .ValueNextFor i = 0 For å intervall Hvis dic.Exists (i + num1) Så outArr (i + 1, 1) = i + num1 outArr (i + 1, 2) = DIC (i + num1 ) Else outArr (i + 1, 1) = "" outArr (i + 1, 2) = "" End IfNextWith WorkRng.Range ("A1"). Resize (UBound (outArr, 1), UBound (outArr, 2) ) .Value = outArr .SelectEnd WithEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boksen vil vise, og velg deretter dataområdet som du vil sette inn blanke rader for den manglende sekvens (ikke velge den tittelen range), se skjermbilde:
4. Og klikk deretter på OK, de tomme rader er satt inn for sekvenslisten mangler. Se skjermbilder:
Sett manglende tallene eller tomme rader for sekvens med Kutools for Excel
Her vil jeg presentere et enkelt og hendig verktøy-Kutools for Excel, med sin Finn Missing Sequence Number funksjonen, du raskt kan sette den savnede sekvensnummer eller tomme rader mellom eksisterende datasekvens
Kutools for Excel. med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
Hvis du har installert Kutools for Excel, kan du gjøre som følger :( Gratis Last ned Kutools for Excel nå)
1. Velg datasekvens som du vil sette inn de manglende tallene.
2. Klikk Kutools > Sett > Finn Mangler Sequence Number, se skjermbilde:
3. I Finn Missing Sequence Number dialogboksen, se Sette mangler sekvensnummer for å sette inn de manglende tallene eller sette inn tomme rader når det oppdages mangler sekvensnumre for å sette inn tomme rader som du trenger. Se skjermbilde:
4. Og klikk deretter på OK-knappen, og de manglende sekvensnumrene eller tomme rader er satt inn dataene, se skjerm:
Gratis Last ned Kutools for Excel Nå