Excel में सेल मानों को लंबवत रूप से कैसे विभाजित करें?
एक्सेल में, आप इसे लागू कर सकते हैं कॉलम से टेक्स्ट सेल मानों को क्षैतिज रूप से कई स्तंभों में विभाजित करने की सुविधा, लेकिन, यह आपको सेल सामग्री को लंबवत रूप से कई पंक्तियों में विभाजित करने में मदद नहीं करती है। और इस लेख में, मैं एक्सेल में विशिष्ट विभाजक द्वारा सेल मानों को पंक्तियों में लंबवत रूप से विभाजित करने के कुछ त्वरित तरीकों के बारे में बात करूंगा।
वीबीए कोड के साथ विभाजक द्वारा सेल मानों को लंबवत रूप से पंक्तियों में विभाजित करें
एक्सेल के लिए कुटूल के साथ विभाजक द्वारा सेल मानों को लंबवत रूप से पंक्तियों में विभाजित करें
वीबीए कोड के साथ विभाजक द्वारा सेल मानों को लंबवत रूप से पंक्तियों में विभाजित करें
निम्नलिखित वीबीए कोड आपको किसी भी विभाजक द्वारा सेल मानों को पंक्तियों में लंबवत रूप से विभाजित करने में मदद कर सकता है, कृपया निम्नानुसार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: विशिष्ट विभाजक द्वारा सेल मानों को लंबवत रूप से पंक्तियों में विभाजित करें
Sub splitvertically()
'updatebyExtendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xStr As String
Dim xOutArr As Variant
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xStr = "" Then
xStr = xCell.Value
Else
xStr = xStr & ";" & xCell.Value
End If
Next
xOutArr = VBA.Split(xStr, ";")
xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उन सेल मानों का चयन करें जिन्हें आप लंबवत रूप से विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, एक अन्य बॉक्स आपको याद दिलाने के लिए निकलेगा कि परिणाम डालने के लिए एक सेल का चयन करें, स्क्रीनशॉट देखें:
5। क्लिक करें OK बटन, और सेल मानों को एक विभाजक द्वारा एक सूची में विभाजित किया गया है, स्क्रीनशॉट देखें:
नोट: उपरोक्त कोड में, आप अर्धविराम बदल सकते हैं ; किसी अन्य सीमांकक के लिए जिसकी आपको आवश्यकता है।
एक्सेल के लिए कुटूल के साथ विभाजक द्वारा सेल मानों को लंबवत रूप से पंक्तियों में विभाजित करें
एक्सेल के लिए कुटूलहै विभाजन कोशिकाओं फीचर एक शक्तिशाली उपयोगिता है, यह आपको आवश्यकतानुसार किसी भी विभाजक द्वारा सेल मानों को कई कॉलम या पंक्तियों में विभाजित करने में मदद कर सकता है।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1. उन कक्षों का चयन करें जिन्हें आप विशिष्ट सीमांकक द्वारा पंक्तियों में विभाजित करना चाहते हैं।
2। तब दबायें कुटूल > विलय और विभाजन > विभाजन कोशिकाओं, स्क्रीनशॉट देखें:
3. में विभाजन कोशिकाओं संवाद बॉक्स में, चयन करें पंक्तियों में विभाजित करें नीचे प्रकार अनुभाग, और फिर जाँच करें अन्य से द्वारा विभाजित अनुभाग, और विभाजक दर्ज करें जिसके आधार पर आप सेल मानों को विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें Ok बटन, पॉपिंग आउट बॉक्स में, परिणाम आउटपुट करने के लिए एक सेल का चयन करें, स्क्रीनशॉट देखें:
5. और क्लिक करें OK बटन, सेल मानों को विशिष्ट विभाजक के आधार पर पंक्तियों में विभाजित किया गया है जैसा कि स्क्रीनशॉट में दिखाया गया है:
एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
डेमो: एक्सेल के लिए कुटूल के साथ विभाजक द्वारा सेल मानों को लंबवत रूप से पंक्तियों में विभाजित करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!