एक्सेल: सीमांकित पाठ को पंक्तियों में कैसे विभाजित करें

मान लीजिए कि यहां वर्कशीट में तीन कॉलम वाली एक तालिका है, पहला मूल्य स्तर सूचीबद्ध करता है, दूसरा सेल में अल्पविराम के साथ फलों के नाम सूचीबद्ध करता है, और तीसरा कॉलम फलों की कीमतें सूचीबद्ध करता है। कार्य सीमांकित फलों के नामों को पंक्तियों में विभाजित करना है, और नीचे दिखाए गए स्क्रीनशॉट के अनुसार संबंधित मूल्य स्तर और मूल्य पंक्तियों को दोहराना है:

इस कार्य को हल करने के लिए यहां दो तरीकों का परिचय दें।

VBA का उपयोग करके सीमांकित पाठ को पंक्तियों में विभाजित करें

का उपयोग करके सीमांकित पाठ को पंक्तियों में विभाजित करें Power Query

यहां एक वीबीए कोड है जो सीमांकित पाठ को तुरंत पंक्तियों में विभाजित कर सकता है।

1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें टैब> मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए।

3. नीचे दिए गए कोड को कॉपी करके रिक्त मॉड्यूल में पेस्ट करें।

वीबीए: सीमांकित पाठ को पंक्तियों में विभाजित करें

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4। दबाएँ F5 रन बटन पर क्लिक करने की कुंजी  कोड को सक्रिय करने के लिए, आपके लिए कॉलम का चयन करने के लिए एक संवाद पॉप आउट होता है जिसमें हेडर शामिल नहीं होता है जिसमें पंक्तियों में विभाजित होने के लिए आवश्यक सीमांकित पाठ शामिल होता है। क्लिक OK.

5. फिर दूसरा डायलॉग आपके द्वारा उपयोग किए जाने वाले डिलीमीटर को दर्ज करने के लिए पॉप होता है। यहां अल्पविराम (,) टाइप करें। क्लिक OK.

अब सीमांकित पाठों को पंक्तियों में विभाजित कर दिया गया है और अन्य संबंधित कॉलम दोहराए गए हैं।

  वीबीए मूल डेटा को बदल देगा, बेहतर होगा कि आप पहले इसकी एक प्रति सहेज लें।

यदि आप Excel 2013 या बाद के संस्करणों में हैं, तो Power Query इस कार्य को हल करने के लिए एक अच्छा विकल्प होगा।

1. क्लिक करने के लिए डेटा रेंज का चयन करें जानकारी > टेबल/रेंज से.

2. पॉपिंग में तालिका बनाएं संवाद, जांचें मेरी टेबल में हेडर हैं जैसा आपको चाहिए, और क्लिक करें OK.

तो Power Query संपादक (एडिटर) विंडो प्रदर्शित होती है, और उसमें डेटा दिखाया गया है।

3. उस कॉलम पर क्लिक करें जिसे आप सीमांकित टेक्स्ट को पंक्तियों में विभाजित करना चाहते हैं, और क्लिक करें बदालना टैब> विभाजित स्तंभ > डिलीमिटर द्वारा.

या आप संदर्भ मेनू में इस सुविधा को चुनने के लिए कॉलम का चयन भी कर सकते हैं और कॉलम हेडर पर राइट-क्लिक कर सकते हैं।

4। में डिलीमिटर द्वारा कॉलम को विभाजित करें विंडो में से अपनी आवश्यकतानुसार डिलीमीटर चुनें सीमांकक चुनें या दर्ज करें अनुभाग, फिर चुनें सीमांकक की प्रत्येक घटना विकल्प, और फिर विस्तृत करें उन्नत विकल्प चुनने के लिए अनुभाग पंक्तियाँ विकल्प। क्लिक करें OK.

अब सीमांकित पाठ पंक्तियों में विभाजित हो गए हैं।

5. फिर विंडो बंद करें, एक डायलॉग खुलेगा, क्लिक करें रखना बटन.

फिर तालिका के साथ एक नई शीट बनाई जाएगी।

---

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

एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है

• सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
• कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
• डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
• सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
• पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
• पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
• सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
• वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
• पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना... 

---

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

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना...