Excel में एक साथ एकाधिक पंक्तियों या स्तंभों को स्वतंत्र रूप से कैसे क्रमबद्ध करें?
एक्सेल में, आप कॉलम की श्रेणी में केवल एक पंक्ति या कॉलम को सॉर्ट करने के लिए सॉर्ट सुविधा लागू कर सकते हैं, लेकिन, यदि आपको निम्नलिखित स्क्रीनशॉट दिखाने के लिए एक साथ कई पंक्तियों या कॉलम को स्वतंत्र रूप से सॉर्ट करने की आवश्यकता है। क्या एक्सेल में इस कार्य को हल करने का कोई त्वरित तरीका है?
वीबीए कोड के साथ एक साथ कई कॉलमों को स्वतंत्र रूप से क्रमबद्ध करें
VBA कोड के साथ एक साथ कई पंक्तियों को स्वतंत्र रूप से क्रमबद्ध करें
वीबीए कोड के साथ एक साथ कई कॉलमों को स्वतंत्र रूप से क्रमबद्ध करें
एकाधिक स्तंभों को स्वतंत्र रूप से आरोही क्रम में क्रमबद्ध करने के लिए, निम्नलिखित VBA कोड आपकी सहायता कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: एक साथ कई कॉलमों को स्वतंत्र रूप से क्रमबद्ध करें:
Sub SortIndividualJR()
'Updateby Extendoffice
Dim xRg As Range
Dim yRg As Range
Dim ws As Worksheet
Set ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
Application.ScreenUpdating = False
For Each yRg In xRg
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, Order:=xlAscending
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = False
.Apply
End With
Next yRg
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए पॉप आउट होता है कि आप प्रत्येक कॉलम के आधार पर उस डेटा रेंज का चयन करें जिसे आप सॉर्ट करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK, प्रत्येक कॉलम को एक ही बार में निर्भरता से क्रमबद्ध किया गया है, स्क्रीनशॉट देखें:
VBA कोड के साथ एक साथ कई पंक्तियों को स्वतंत्र रूप से क्रमबद्ध करें
यदि आप एकाधिक पंक्तियों को स्वतंत्र रूप से क्रमबद्ध करना चाहते हैं, तो यहां आपके लिए एक VBA कोड भी है।
1. वह डेटा चुनें जिसे आप प्रत्येक पंक्ति के आधार पर सॉर्ट करना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: एक साथ कई पंक्तियों को स्वतंत्र रूप से क्रमबद्ध करें:
Sub SortIndividualR()
'Updateby Extendoffice
Dim xRg As Range, yRg As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set xRg = Selection
If xRg.Count = 1 Then
MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Application.ScreenUpdating = False
For Each yRg In xRg.Rows
yRg.Sort Key1:=yRg.Cells(1, 1), _
Order1:=xlAscending, _
Header:=xlNo, _
Orientation:=xlSortRows
Next yRg
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Application.ScreenUpdating = True
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, प्रत्येक पंक्ति में डेटा को एक ही बार में क्रमबद्ध किया गया है, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!