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 Szúrjon be hiányzó számokat vagy üres sorokat a sorozathoz a Kutools for Excel segítségével 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 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:

Szúrjon be hiányzó számokat vagy üres sorokat a sorozathoz a Kutools for Excel segítségével

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ója a Kutools for Excel programhoz most!

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:

Kapcsolódó cikk:

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