Hogyan illeszthet be számokat vagy sorokat a hiányzó sorszámokhoz az Excelben?

Tételezzük fel, hogy van egy munkalapon a szekvenciális számok listája, de van néhány hiányzó szám a szekvencia között, és most be kell illesztenie a hiányzó számokat vagy üres sorokat, hogy megbizonyosodjon arról, hogy a szekvencia teljes-e (a következő képernyőképekként látható). Hogyan tudná gyorsan megoldani ezt a problémát az Excel programban?

Helyezze be a hiányzó számokat a sorrendhez a Másolatok rendezése és eltávolítása funkcióval Helyezze be a hiányzó számokat a VBA kóddal ellátott sorozathoz Helyezzen be üres sorokat a hiányzó VBA kóddal Helyezze be a hiányzó számokat vagy üres sorokat a sorrendhez a Kutools for Excel alkalmazással

Helyezze be a hiányzó számokat a sorrendhez a Másolatok rendezése és eltávolítása funkcióval

Lehetséges, hogy egyesével megtalálhatja a hiányzó számokat, majd beillesztheti őket, de ha több száz szekvenciális szám van, akkor nehéz meghatároznia a hiányzó számok helyét. Az Excelben a duplikátumok rendezése és eltávolítása funkcióval kezelhetem ezt a feladatot.

1. A szekvencialista végét követően töltsön ki egy másik sorszámot 2005023001 és 2005023011 között. Lásd a képernyőképet:

2. Ezután válassza ki a két sorszám tartományát és kattintson dátum > Rendezés A-tól Z-ig, lásd a képernyőképet:

3. A kiválasztott adatok a következő képernyőkép szerint lettek rendezve:

4. Ezután kattintson az ismétlésekre kattintással dátum > Távolítsa el a másolatokat, és beugrott Távolítsa el a másolatokat párbeszédpanelen ellenőrizze a Oszlop név, amelyet el akar távolítani az ismétlésekből, lásd a képernyőképeket:

5. Ezután kattintson OK, a másolatok A oszlop törlésre került, és a sorrendlistából hiányzó számokat illesztettek be, lásd a képernyőképet:

Helyezze be a hiányzó számokat a VBA kóddal ellátott sorozathoz

Ha úgy érzi, hogy a fenti módszerekkel annyi lépés van, itt van egy VBA-kód is, amely segít a probléma befejezésében. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok ablak.

VBA: hiányzó számok beillesztése a sorozathoz

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, kérjük, válassza ki azt az adattartományt, amelybe be szeretné illeszteni a hiányzó számokat (ne válassza ki a címtartományt), lásd a képernyőképet:

4. Kattintson a gombra OK, a hiányzó számok bekerültek a sorrendbe. Képernyőképek megtekintése:

Helyezzen be üres sorokat a hiányzó VBA kóddal

Előfordul, hogy csak meg kell találnia a hiányzó számok helyét, és üres sorokat kell beillesztenie az adatok közé, hogy a szükséges információkat megadhassa. Természetesen a következő VBA-kód is segíthet a probléma megoldásában.

1. Tartsa lenyomva a ALT + F11 gombokat, és megnyílik a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok ablak.

VBA: üres sorok beillesztése a hiányzó sorrendhez

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik egy prompt doboz, majd válassza ki azt az adattartományt, amelybe üres sorokat kíván beilleszteni a hiányzó sorrendhez (ne válassza ki a címtartományt), lásd a képernyőképet:

4. Kattintson a gombra OK, az üres sorokat beillesztették a hiányzó sorozatok listájába. Képernyőképek megtekintése:

Helyezze be a hiányzó számokat vagy üres sorokat a sorrendhez a Kutools for Excel alkalmazással

Itt bemutatok egy egyszerű és praktikus eszközt - Kutools az Excel számára, Annak Keresse meg a hiányzó sorozatszámot funkcióval gyorsan beillesztheti a hiányzó sorszámot vagy üres sorokat a meglévő adatsor közé.

Ha telepítve van Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki azt az adatsort, amelybe be kívánja illeszteni a hiányzó számokat.

2. Kattints Kutools > betétlap > Keresse meg a hiányzó sorozatszámot, lásd a képernyőképet:

3. Az Keresse meg a hiányzó sorozatszámot párbeszédpanelen ellenőrizze Hiányzó sorszám beillesztése a hiányzó számok beillesztésére vagy In üres sorok beillesztése hiányzó sorszámok találkozásakor üres sorok beszúrásához szükség szerint. Lásd a képernyőképet:

4. Kattintson a gombra OK gombra, és a hiányzó sorszámokat vagy üres sorokat beszúrta az adatokba, lásd a képernyőképeket:

Töltse le és ingyenes próbaverziót Kutools for Excel Now!

  Bemutató: Helyezze be a hiányzó számokat vagy üres sorokat a sorrendhez a Kutools for Excel programmal

Kapcsolódó cikk:

Hogyan lehet azonosítani a hiányzó számok sorrendjét az Excelben?

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...