Excel में केस के आधार पर टेक्स्ट स्ट्रिंग को शीघ्रता से कैसे विभाजित करें?
एक्सेल में, हम आमतौर पर टेक्स्ट को टेक्स्ट टू कॉलम फ़ंक्शन के साथ निश्चित चौड़ाई या सीमांकक द्वारा विभाजित करते हैं, लेकिन क्या आपने कभी टेक्स्ट को अपरकेस और लोअरकेस द्वारा विभाजित करने का प्रयास किया है? उदाहरण के लिए, आपके पास डेटा की एक सूची है, और आपको उन्हें केस के आधार पर दो कॉलम में विभाजित करने की आवश्यकता है: एक कॉलम में लोअरकेस स्ट्रिंग है, और दूसरे में अपरकेस स्ट्रिंग है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। टेक्स्ट टू कॉलम फ़ंक्शन इस ऑपरेशन का समर्थन नहीं करता है, हालांकि, मैं एक्सेल में केस के अनुसार टेक्स्ट स्ट्रिंग को जल्दी से विभाजित करने के लिए एक तरकीब पेश कर सकता हूं।
VBA के साथ पाठ को केस के अनुसार विभाजित करें
एक्सेल के लिए कुटूल के साथ विभाजक द्वारा पाठ को पंक्तियों/स्तंभों में विभाजित करें
VBA के साथ पाठ को केस के अनुसार विभाजित करें
एक्सेल में, लोअरकेस और अपरकेस के आधार पर स्ट्रिंग को जल्दी से विभाजित करने के लिए केवल मैक्रो कोड होता है।
1। दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को रिक्त स्थान पर चिपकाएँ मॉड्यूल लिपियों.
वीबीए: स्ट्रिंग को केस के अनुसार विभाजित करें।
Sub CamelCase()
'UpdatebyExtendoffice20160711
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xCount As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Nothing
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
With CreateObject("vbscript.regexp")
.Pattern = "(\S)([A-Z]+[^A-Z])"
.Global = True
For Each xCell In xRg
xCount = .Execute(xCell).Count
If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
Next
End With
Application.ScreenUpdating = True
End Sub
3। दबाएँ F5 कुंजी, और एक संवाद आपको विभाजित करने के लिए पाठों का चयन करने की याद दिलाने के लिए प्रकट होता है। स्क्रीनशॉट देखें:
4। क्लिक करें OK, और चयनित टेक्स्ट को दो कॉलम में विभाजित किया गया है, और एक में लोअरकेस है, और दूसरे में अपरकेस है।
एक्सेल के लिए कुटूल के साथ विभाजक द्वारा पाठ को पंक्तियों/स्तंभों में विभाजित करें
कई मामलों में, आप किसी विशिष्ट वर्ण के आधार पर किसी सेल को कई पंक्तियों या स्तंभों में विभाजित करना चाह सकते हैं। एक्सेल में, अंतर्निहित टेक्स्ट टू कॉलम फ़ंक्शन केवल सेल को सीधे कॉलम में बदलने में आपकी मदद कर सकता है, लेकिन पंक्तियों में रूपांतरण में काम नहीं करता है। हालाँकि, साथ एक्सेल के लिए कुटूल - एक आसान और उपयोगी उपकरण, आप इसका उपयोग कर सकते हैं विभाजन कोशिकाओं विभाजक या निश्चित चौड़ाई के आधार पर स्ट्रिंग को पंक्तियों या स्तंभों में त्वरित रूप से विभाजित करने की उपयोगिता।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. उस सेल का चयन करें जिसे आप विभाजित करना चाहते हैं, और क्लिक करें कुटूल > विलय और विभाजन > विभाजन कोशिकाओं. स्क्रीनशॉट देखें:
2। में विभाजन कोशिकाओं संवाद, उस विभाजन प्रकार की जाँच करें जिसे आप चाहते हैं प्रकार अनुभाग, और उस विशिष्ट सीमांकक की जांच करने के लिए जाएं जिसके आधार पर आप विभाजित करना चाहते हैं द्वारा विभाजित अनुभाग। स्क्रीनशॉट देखें:
3। क्लिक करें Ok, एक संवाद आपको विभाजित सामग्री को रखने के लिए एक सेल का चयन करने की याद दिलाने के लिए पॉप आउट होता है। स्क्रीनशॉट देखें:
4. सेलेक्ट करने के बाद क्लिक करें OK, और चयनित सेल को स्थान के आधार पर पंक्तियों में विभाजित किया गया है। स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!