Excel में किसी सेल के भीतर संख्याओं को कैसे क्रमबद्ध करें?
हमारे लिए किसी कॉलम की सूची में संख्याओं को क्रमबद्ध करना आसान और सामान्य है, लेकिन क्या आपने कभी संख्याओं को एक ही सेल में क्रमबद्ध करने का प्रयास किया है? हो सकता है कि आपके लिए उन्हें एक-एक करके व्यवस्थित करने के अलावा कोई अच्छा तरीका न हो, यहां, मैं एक्सेल में कोशिकाओं के भीतर संख्याओं को कैसे क्रमबद्ध करें, इसके बारे में बात करूंगा।
सूत्र के साथ कोशिकाओं के भीतर संख्याओं को क्रमबद्ध करें
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ कोशिकाओं के भीतर संख्याओं को क्रमबद्ध करें
VBA कोड वाले कक्षों के भीतर अल्पविराम द्वारा अलग की गई संख्याओं को क्रमबद्ध करें
सूत्र के साथ कोशिकाओं के भीतर संख्याओं को क्रमबद्ध करें
किसी कार्यपत्रक में कक्षों के भीतर संख्याओं को क्रमबद्ध करने के लिए, आप निम्नलिखित लंबे सूत्र को लागू कर सकते हैं, कृपया इस प्रकार करें:
1. अपने डेटा के आगे, कृपया निम्नलिखित सूत्र दर्ज करें, इस उदाहरण में, मैं इसे सेल C1 में टाइप करूंगा, स्क्रीनशॉट देखें:
=TEXT(SUM(SMALL(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1)))
2. फिर दबायें Ctrl + Shift + Enter कुंजियाँ एक साथ, फिर भरण हैंडल को उस सीमा तक खींचें जहां आप इस सूत्र को लागू करना चाहते हैं, और आप पाएंगे कि संख्याएं छोटे से बड़े तक क्रमबद्ध हो गई हैं। स्क्रीनशॉट देखें:
टिप्पणियाँ:
1. यदि सेल में संख्या का अंक 15 से अधिक है तो इस फॉर्मूले से सही परिणाम नहीं मिलेगा।
2. यदि आप संख्याओं को अवरोही क्रम में क्रमबद्ध करना चाहते हैं, तो आप इस सूत्र का उपयोग कर सकते हैं: =TEXT(SUM(LARGE(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),ROW(INDIRECT("1:"&LEN(A1))))*10^(LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))))),REPT("0",LEN(A1))).
3. उपरोक्त सूत्रों में, A1 उस सेल को इंगित करता है जिसमें वे संख्याएँ हैं जिन्हें आप सॉर्ट करना चाहते हैं, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं।
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ कोशिकाओं के भीतर संख्याओं को क्रमबद्ध करें
चूँकि सूत्र की कुछ सीमाएँ हैं, आप निम्नलिखित का उपयोग कर सकते हैं उपयोगकर्ता परिभाषित फ़ंक्शन 15 अंकों से अधिक लंबी कोशिकाओं में संख्याओं को क्रमबद्ध करने के लिए।
1. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: कोशिकाओं के भीतर संख्याओं को क्रमबद्ध करें
Function SortNumsInCell(pNum As String, Optional pOrder As Boolean) As String
'Update 20140717
Dim xOutput As String
For i = 0 To 9
For j = 1 To UBound(VBA.Split(pNum, i))
xOutput = IIf(pOrder, i & xOutput, xOutput & i)
Next
Next
SortNumsInCell = xOutput
End Function
3. फिर इस कोड को सहेजें और बंद करें, अपनी वर्कशीट पर वापस जाएं और इस सूत्र को दर्ज करें =सॉर्टनमसिंसेल(ए1) अपने डेटा के बगल में एक खाली सेल में, स्क्रीनशॉट देखें:
4. और फिर भरण हैंडल को उन कक्षों तक खींचें जिनमें आप इस सूत्र को शामिल करना चाहते हैं, और कक्षों में सभी संख्याओं को स्क्रीनशॉट में दिखाए गए अनुसार आरोही क्रम में क्रमबद्ध किया गया है:
नोट: यदि आप संख्याओं को अवरोही क्रम में क्रमबद्ध करना चाहते हैं, तो कृपया यह सूत्र दर्ज करें =सॉर्टनमसिंसेल(ए1,1).
VBA कोड वाले कक्षों के भीतर अल्पविराम द्वारा अलग की गई संख्याओं को क्रमबद्ध करें
यदि आपके नंबर निम्न स्क्रीनशॉट के अनुसार कुछ वर्णों जैसे अल्पविराम, अर्धविराम, अवधि इत्यादि से अलग किए गए हैं, तो आप उन्हें कोशिकाओं में कैसे क्रमबद्ध कर सकते हैं? अब, मैं उन्हें क्रमबद्ध करने के लिए आपके लिए एक VBA कोड प्रस्तुत करता हूँ।
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक।
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: क्रमबद्ध संख्याओं को कोशिकाओं के भीतर अल्पविराम द्वारा अलग किया जाता है
Sub SortNumsInRange()
'Update 20140717
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set objArrayList = CreateObject("System.Collections.ArrayList")
For Each Rng In WorkRng
Arr = VBA.Split(Rng.Value, ",")
For i = 0 To UBound(Arr)
xMin = i
For j = i + 1 To UBound(Arr)
If Arr(xMin) > Arr(j) Then
xMin = j
End If
Next j
If xMin <> i Then
temp = Arr(i)
Arr(i) = Arr(xMin)
Arr(xMin) = temp
End If
Next i
Rng.Value = VBA.Join(Arr, ",")
Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और फिर अपने सेल का चयन करें जिसमें पॉप आउट प्रॉम्प्ट बॉक्स में नंबर शामिल हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, कक्षों में सभी संख्याओं को मूल श्रेणी में आरोही क्रम में क्रमबद्ध किया गया है।
नोट: आप उपरोक्त कोड में आवश्यकतानुसार अल्पविराम "," को किसी अन्य वर्ण में बदल सकते हैं। और यह कोड केवल डेटा को आरोही क्रम में क्रमबद्ध कर सकता है।
संबंधित आलेख:
एक्सेल में हाइफ़न के साथ संख्याओं को कैसे क्रमबद्ध करें?
Excel में सर्वाधिक बारंबार मान के आधार पर डेटा को कैसे क्रमबद्ध करें?
Excel में डोमेन के अनुसार ईमेल पता कैसे क्रमबद्ध करें?
Excel में रिक्त कक्षों को शीर्ष पर रखने के लिए पंक्तियों को कैसे क्रमबद्ध करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!