मुख्य सामग्री पर जाएं

Excel में लुप्त अनुक्रमिक संख्याओं के लिए संख्याएँ या पंक्तियाँ कैसे सम्मिलित करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-05-27

मान लीजिए कि आपके पास वर्कशीट में अनुक्रमिक संख्याओं की एक सूची है, लेकिन अनुक्रम के बीच कुछ गायब संख्याएं हैं, और अब आपको अनुक्रम पूरा होने को सुनिश्चित करने के लिए लापता संख्याओं या रिक्त पंक्तियों को सम्मिलित करने की आवश्यकता है (निम्न स्क्रीनशॉट के रूप में दिखाया गया है)। आप Excel में इस समस्या को शीघ्रता से कैसे हल कर सकते हैं?

दस्तावेज़-डालें-गायब-नंबर1 -2 दस्तावेज़-डालें-गायब-नंबर2

क्रमबद्ध करें और डुप्लिकेट हटाएँ सुविधा के साथ अनुक्रम के लिए लुप्त संख्याएँ डालें

VBA कोड के साथ अनुक्रम के लिए लुप्त संख्याएँ डालें

VBA कोड के साथ लुप्त अनुक्रम के लिए रिक्त पंक्तियाँ डालें

Excel के लिए Kutools के साथ अनुक्रम के लिए लुप्त संख्याएँ या रिक्त पंक्तियाँ सम्मिलित करें

तीर नीला दायां बुलबुला क्रमबद्ध करें और डुप्लिकेट हटाएँ सुविधा के साथ अनुक्रम के लिए लुप्त संख्याएँ डालें

हो सकता है कि आप लुप्त संख्याओं को एक-एक करके ढूंढ सकें, और फिर उन्हें सम्मिलित कर सकें, लेकिन यदि सैकड़ों क्रमिक संख्याएँ हों तो आपके लिए लुप्त संख्याओं के स्थान की पहचान करना कठिन है। एक्सेल में, मैं इस कार्य से निपटने के लिए सॉर्ट और डुप्लिकेट निकालें सुविधा का उपयोग कर सकता हूं।

1. अनुक्रम सूची के अंत के बाद, 2005023001 से 2005023011 तक अन्य अनुक्रम संख्याएँ भरें। स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर3

2. फिर दो अनुक्रम संख्याओं की सीमा का चयन करें और क्लिक करें जानकारी > A से Z तक क्रमबद्ध करें, स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर4

3. और चयनित डेटा को निम्नलिखित स्क्रीनशॉट के अनुसार क्रमबद्ध किया गया है:

दस्तावेज़-डालें-गायब-नंबर5

4. फिर आपको क्लिक करके डुप्लिकेट को हटाना होगा जानकारी > डुप्लिकेट निकालें, और पॉप आउट में डुप्लिकेट निकालें संवाद बॉक्स में, चेक करें स्तंभ वह नाम जिसके डुप्लिकेट आप हटाना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर6 -2 दस्तावेज़-डालें-गायब-नंबर7

5। तब दबायें OK, में डुप्लिकेट स्तंभ A हटा दिया गया है, और अनुक्रम सूची में लुप्त संख्याएँ सम्मिलित कर दी गई हैं, स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर8

तीर नीला दायां बुलबुला VBA कोड के साथ अनुक्रम के लिए लुप्त संख्याएँ डालें

यदि आपको लगता है कि उपरोक्त विधियों में बहुत सारे चरण हैं, तो यहां VBA कोड भी है जो इस समस्या को समाप्त करने में आपकी सहायता कर सकता है। कृपया इस प्रकार करें:

1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की.

वीबीए: अनुक्रम के लिए लुप्त संख्याएँ डालें

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। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स खुलेगा, कृपया उस डेटा श्रेणी का चयन करें जिसमें आप लुप्त संख्याओं को सम्मिलित करना चाहते हैं (शीर्षक श्रेणी का चयन न करें), स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर9

4। और फिर क्लिक करें OK, लुप्त संख्याओं को अनुक्रम सूची में डाल दिया गया है। स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर1 -2 दस्तावेज़-डालें-गायब-नंबर2

तीर नीला दायां बुलबुला VBA कोड के साथ लुप्त अनुक्रम के लिए रिक्त पंक्तियाँ डालें

कभी-कभी, आपको केवल लुप्त संख्याओं के स्थान का पता लगाने और डेटा के बीच रिक्त पंक्तियाँ डालने की आवश्यकता होती है, ताकि आप आवश्यकतानुसार जानकारी दर्ज कर सकें। बेशक, निम्नलिखित वीबीए कोड भी इस समस्या को हल करने में आपकी मदद कर सकता है।

1. नीचे पकड़ो ALT + F11 चाबियाँ, और यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की.

वीबीए: लुप्त अनुक्रम के लिए रिक्त पंक्तियाँ सम्मिलित करें

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। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स प्रदर्शित होगा, और फिर उस डेटा श्रेणी का चयन करें जिसे आप लापता अनुक्रम के लिए रिक्त पंक्तियाँ सम्मिलित करना चाहते हैं (शीर्षक श्रेणी का चयन न करें), स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर9

4। और फिर क्लिक करें OK, लुप्त अनुक्रम सूची के लिए रिक्त पंक्तियाँ सम्मिलित की गई हैं। स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर1 -2 दस्तावेज़-डालें-गायब-नंबर10

तीर नीला दायां बुलबुला Excel के लिए Kutools के साथ अनुक्रम के लिए लुप्त संख्याएँ या रिक्त पंक्तियाँ सम्मिलित करें

यहां, मैं एक आसान और उपयोगी टूल पेश करूंगा- एक्सेल के लिए कुटूल, के साथ अपने लुप्त अनुक्रम संख्या ज्ञात करें सुविधा, आप मौजूदा डेटा अनुक्रम के बीच लापता अनुक्रम संख्या या रिक्त पंक्तियों को तुरंत सम्मिलित कर सकते हैं।

एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. 
डाउनलोड पर जाएं
नि:शुल्क परीक्षण 30 दिनखरीद फरोख्त
पेपैल/माईकॉमर्स

यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1. उस डेटा अनुक्रम का चयन करें जिसमें आप लुप्त संख्याएँ सम्मिलित करना चाहते हैं।

2। क्लिक करें कुटूल > सम्मिलित करें > लुप्त अनुक्रम संख्या ज्ञात करें, स्क्रीनशॉट देखें:

3. में लुप्त अनुक्रम संख्या ज्ञात करें संवाद बॉक्स, जाँचें लुप्त अनुक्रम संख्या सम्मिलित करना लुप्त संख्याएँ या I सम्मिलित करने के लिएअनुपलब्ध अनुक्रम संख्याओं का सामना करने पर रिक्त पंक्तियाँ सम्मिलित करना अपनी आवश्यकतानुसार रिक्त पंक्तियाँ सम्मिलित करने के लिए। स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर10

4। और फिर क्लिक करें OK बटन, और लुप्त अनुक्रम संख्याएँ या रिक्त पंक्तियाँ डेटा में डाली गई हैं, स्क्रीनशॉट देखें:

दस्तावेज़-डालें-गायब-नंबर10 2 दस्तावेज़-डालें-गायब-नंबर10 2 दस्तावेज़-डालें-गायब-नंबर10

एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

तीर नीला दायां बुलबुला  डेमो: एक्सेल के लिए कुटूल के साथ अनुक्रम के लिए लुप्त संख्याएँ या रिक्त पंक्तियाँ सम्मिलित करें

एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

संबंधित लेख:

Excel में लुप्त संख्याओं के अनुक्रम की पहचान कैसे करें?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (12)
No ratings yet. Be the first to rate!
melanie.m
melanie.m
This comment was minimized by the moderator on the site
I have used the code for "VBA: insert blank rows for missing sequence" as listed above and works great - but i need it to insert rows across the all columns it only adds rows to the first 2 columns of my selection - not my entire table.
Reply
Report
0
0
skyyang
skyyang     melanie.m
This comment was minimized by the moderator on the site
Hello, Melanie,

To solve your problem, maybe the following code can help you: (Note: A indicates the column contains the missing sequence, please change it to your need.)
Sub InsertBlankRowsForMissingSequence()
    Dim i As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If IsNumeric(Cells(i, "A").Value) And IsNumeric(Cells(i - 1, "A").Value) And Cells(i, "A").Value <> "" And Cells(i - 1, "A").Value <> "" Then
            If Cells(i, "A").Value - Cells(i - 1, "A").Value > 1 Then
                Debug.Print Cells(i, "A").Value - Cells(i - 1, "A").Value - 1
                Rows(i).Resize(Cells(i, "A").Value - Cells(i - 1, "A").Value - 1).Insert
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Please have a try, hope it can help you!
Reply
Report
0
0
Manouk
Manouk
This comment was minimized by the moderator on the site
I am trying to use the VBA for sequential numbers. I have several columns next to the numbers of which numbers too. I.e.
1. HL Meter 34
2. HL Watermeter 40
4. HL CO2meter 24

When I use the code it works for the first 3 columns but it gets mixed up if I include the 4th column since it includes numbers too.
How can I change the code to make sure the numbers in column 4 stay the same?
Reply
0
0
Rob
Rob
This comment was minimized by the moderator on the site
Thank you amazing
Reply
0
0
Gavin Cooke
Gavin Cooke
This comment was minimized by the moderator on the site
What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
Reply
0
0
phani
phani
This comment was minimized by the moderator on the site
I want to use "Inserting missing sequence Number" feature but it's not supporting for digits more than 12 ? there are many sets in which I want to insert the sequence between (it's a alpha-numeric digit) can you help
Reply
0
0
phani
phani
This comment was minimized by the moderator on the site
Hi, I want to use "Inserting Missing Sequence Number", but it's not supporting if the no. of digits are more than 12 can you help ?
Reply
0
0
Shahab
Shahab
This comment was minimized by the moderator on the site
What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
Reply
0
0
Francois
Francois
This comment was minimized by the moderator on the site
Thank you very much. How do i change the script if the increments is only 0.02 and not 1 This is for the script InsertNullBetween()
Reply
0
0
jonny
jonny
This comment was minimized by the moderator on the site
this worked and was very easy to complete the task. Thank you.
Reply
0
0
Denis
Denis
This comment was minimized by the moderator on the site
Thanks ! Great script ! How i can modify this script if i say we need to process not only ID column + NAME column, but ID column + NAME column + NEW column ? How i can add new columns in this script?
Reply
0
0
Amir
Amir     Denis
This comment was minimized by the moderator on the site
The following is the modified macro to include an added column - Another important point is that when prompted to select the range, you should only select the first column - these took me a few hours! hope to save others' time

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")
Dim dic2 As Variant
Set dic2 = 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 3)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
dic2(Rng.Value) = Rng.Offset(0, 2).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)
outArr(i + 1, 3) = dic2(i + num1)
Else
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations