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
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:
|
|
 |
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é.
| Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
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!
Demo: Szúrjon be hiányzó számokat vagy üres sorokat a sorozathoz a Kutools for Excel segítségével
Kapcsolódó cikk:
Hogyan lehet azonosítani a hiányzó számok sorrendjét az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!
