आम तौर पर, आप सेल सामग्री को एक विशिष्ट सीमांकक, जैसे अल्पविराम, बिंदु, अर्धविराम, स्लैश इत्यादि द्वारा एकाधिक कॉलम में विभाजित करने के लिए टेक्स्ट टू कॉलम सुविधा का उपयोग कर सकते हैं। लेकिन, कभी-कभी, आपको सीमांकित सेल सामग्री को कई पंक्तियों में विभाजित करने की आवश्यकता हो सकती है और नीचे दिखाए गए स्क्रीनशॉट के अनुसार अन्य कॉलम से डेटा दोहराएं। क्या आपके पास Excel में इस कार्य से निपटने का कोई अच्छा तरीका है? यह ट्यूटोरियल एक्सेल में इस कार्य को पूरा करने के लिए कुछ प्रभावी तरीकों का परिचय देगा।

वीडियो: टेक्स्ट स्ट्रिंग्स को डिलीमीटर द्वारा कई पंक्तियों में विभाजित करें

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

इस अनुभाग में, मैं सेल सामग्री को विभाजित करने में मदद के लिए दो वीबीए कोड पेश करूंगा जो एक निश्चित सीमांकक द्वारा अलग किए गए हैं।

पाठ को अल्पविराम, स्थान, अर्धविराम आदि से अलग करें।

टेक्स्ट स्ट्रिंग्स को विभाजित करने के लिए जो कुछ सामान्य सीमांकक, जैसे अल्पविराम, स्पेस, अर्धविराम, स्लैश इत्यादि से अलग हो जाते हैं, निम्नलिखित कोड आपके लिए उपयोगी हो सकता है। कृपया नीचे दिए गए चरणों का पालन करें:

 नोट: यह कोड नहीं करता समर्थन पूर्ववत करें, बेहतर होगा कि आप इस कोड को लागू करने से पहले डेटा का बैकअप ले लें।

चरण 1: वीबीए मॉड्यूल संपादक खोलें और कोड कॉपी करें

1. उस शीट को सक्रिय करें जिसका आप उपयोग करना चाहते हैं। और फिर, दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. खुली हुई विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए।

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

वीबीए कोड: विशिष्ट सीमांकक (अल्पविराम, बिंदु, स्थान, आदि) द्वारा पाठ को विभाजित करें

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    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)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        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(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub   

चरण 2: परिणाम प्राप्त करने के लिए कोड निष्पादित करें

1. कोड पेस्ट करने के बाद कृपया दबाएं F5 इस कोड को चलाने की कुंजी. फिर, एक प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए पॉप अप होगा कि उन कक्षों का चयन करें जिनमें सीमांकित पाठ है जिसे आप विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:

2. फिर, क्लिक करें OK, एक अन्य प्रॉम्प्ट बॉक्स आपको उस विभाजक को टाइप करने की याद दिलाने के लिए पॉप आउट होता है जिसके आधार पर आप डेटा को विभाजित करना चाहते हैं। यहां, मैं एक अल्पविराम और एक स्थान (,) टाइप करता हूं, स्क्रीनशॉट देखें:

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

विभाजित पाठ को लाइन ब्रेक द्वारा अलग किया गया

यदि आपकी सेल सामग्री को लाइन ब्रेक द्वारा अलग किया गया है, तो उन्हें कई पंक्तियों में विभाजित करने के लिए, यहां एक और वीबीए कोड है जो आपकी मदद कर सकता है।

 नोट: यह कोड नहीं करता समर्थन पूर्ववत करें बेहतर होगा कि आप इस कोड को लागू करने से पहले डेटा का बैकअप ले लें।

चरण 1: वीबीए मॉड्यूल संपादक खोलें और कोड कॉपी करें

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

2. खुली हुई विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए।

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

वीबीए कोड: लाइन ब्रेक द्वारा टेक्स्ट को विभाजित करें

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    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 = Chr(10)
    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)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        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(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub 

चरण 2: परिणाम प्राप्त करने के लिए कोड निष्पादित करें

1. कोड पेस्ट करने के बाद कृपया दबाएं F5 इस कोड को चलाने की कुंजी. पॉप-आउट बॉक्स में, कृपया उन कोशिकाओं का चयन करें जिन्हें आप विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:

2. फिर, क्लिक करें OK बटन, चयनित कक्षों में डेटा को नीचे स्क्रीनशॉट में दिखाए गए अनुसार पंक्तियों में विभाजित किया गया है:

विधि बी: एक्सेल के लिए कुटूल द्वारा सीमांकित पाठ को कई पंक्तियों में विभाजित करने के लिए 10s

यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, के साथ अपने डेटा को पंक्तियों में विभाजित करें सुविधा, आप अपने द्वारा निर्दिष्ट किसी भी सीमांकक द्वारा टेक्स्ट स्ट्रिंग्स को कई पंक्तियों में विभाजित कर सकते हैं। कृपया निम्नलिखित चरणों का पालन करें:

चरण 1: डेटा को पंक्तियों में विभाजित करने की सुविधा का चयन करें

क्लिक करें कुटूल > विलय और विभाजन > डेटा को पंक्तियों में विभाजित करें, स्क्रीनशॉट देखें:

चरण 2: विभाजन के लिए डेटा सेल और सीमांकक निर्दिष्ट करें

पॉप-आउट संवाद बॉक्स में, निम्नलिखित विकल्पों का उपयोग करें:

• 1). उन कक्षों की सूची का चयन करें जिन्हें आप विभाजित करना चाहते हैं रेंज (एकल स्तंभ) पाठ बॉक्स;
• 2). फिर, वह सीमांकक चुनें जो आपके डेटा को अलग करता है, यहां, मैं चुनूंगा अन्य और टेक्स्टबॉक्स में अल्पविराम और एक स्थान (,) टाइप करें;
• 3). अंत में क्लिक करें OK बटन.

अब, सीमांकित टेक्स्ट स्ट्रिंग्स वाली चयनित कोशिकाओं को विशिष्ट विभाजक के आधार पर कई पंक्तियों में परिवर्तित कर दिया गया है, स्क्रीनशॉट देखें:

 टिप्स: यदि आप मूल डेटा को पुनर्स्थापित करना चाहते हैं, तो आपको बस दबाना होगा Ctrl + Z पूर्ववत करने के लिए.

प्रयोग करने में आसान? कृपया इस सुविधा में रुचि रखें 30 दिनों के लिए निःशुल्क परीक्षण प्राप्त करने के लिए डाउनलोड करने के लिए क्लिक करें.

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

यदि आप Office 365 या Excel 2016 और बाद के संस्करण चला रहे हैं, Power Query एक शक्तिशाली उपकरण है जो आपको सीमांकित पाठ को कई पंक्तियों या स्तंभों में विभाजित करने में मदद कर सकता है। यदि आप चाहते हैं कि आपका मूल डेटा बदल जाए तो विभाजित डेटा ताज़ा हो जाए तो यह उपयोगी है। कृपया इसे समाप्त करने के लिए निम्नलिखित चरण अपनाएँ:

चरण 1: डेटा तालिका प्राप्त करें Power Query

1. वह डेटा श्रेणी चुनें जिसका आप उपयोग करना चाहते हैं, फिर क्लिक करें जानकारी > टेबल से, स्क्रीनशॉट देखें:

 टिप्स: Excel 2019 और Office 365 में, क्लिक करें जानकारी > टेबल/रेंज से.

2. पॉप-आउट में तालिका बनाएं संवाद बॉक्स पर क्लिक करें OK तालिका बनाने के लिए बटन, स्क्रीनशॉट देखें:

3। अब Power Query संपादक (एडिटर) विंडो डेटा के साथ प्रदर्शित होती है, स्क्रीनशॉट देखें:

चरण 2: इसमें परिवर्तन करें Power Query

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

2। में डिलीमिटर द्वारा कॉलम को विभाजित करें संवाद बकस:

टेक्स्ट स्ट्रिंग को अल्पविराम, स्थान, अर्धविराम आदि द्वारा विभाजित करने के लिए कृपया यह करें:

• 1). वह सीमांकक चुनें जिसके द्वारा आपका डेटा अलग किया गया है सीमांकक चुनें या दर्ज करें ड्रॉप डाउन सूची;
• 2). चुनना सीमांकक की प्रत्येक घटना से पर विभाजित करें अनुभाग;
• 3). तब दबायें उन्नत विकल्प अनुभाग का विस्तार करने के लिए, और चयन करें पंक्तियाँ नीचे में विभाजित;
• 4). अंत में क्लिक करें OK इस डायलॉग बॉक्स को बंद करने के लिए.

लिंक ब्रेक द्वारा टेक्स्ट स्ट्रिंग को कई पंक्तियों में विभाजित करने के लिए, कृपया यह करें:

• 1). चुनना रिवाज से सीमांकक चुनें या दर्ज करें ड्रॉप डाउन सूची;
• 2). से विशेष वर्ण डालें नीचे छोड़ें, क्लिक करें रेखा भरण, और वर्ण #(एलएफ) के अंतर्गत टेक्स्ट बॉक्स में डाला जाएगा रिवाज खुद ब खुद;
• 3). चुनना सीमांकक की प्रत्येक घटना स्प्लिट एट अनुभाग से;
• 4). तब दबायें उन्नत विकल्प अनुभाग का विस्तार करने के लिए, और चयन करें पंक्तियाँ नीचे में विभाजित;
• 5). अंत में क्लिक करें OK इस डायलॉग बॉक्स को बंद करने के लिए.

3. अब, चयनित डेटा को नीचे स्क्रीनशॉट में दिखाए गए अनुसार कई पंक्तियों में विभाजित किया गया है:

चरण 3: आउटपुट करें Power Query किसी Excel तालिका में

1. और फिर, आपको डेटा को अपनी वर्कशीट में आउटपुट करना चाहिए। फिर से लॉगिन करने के लिए होम > बंद करें और लोड करें > बंद करें और लोड करें / बंद करें और लोड करें, (यहां, मैं क्लिक करूंगा बंद करें और लोड करें), स्क्रीनशॉट देखें:

 टिप्स: क्लिक करें बंद करें और लोड करें डेटा को एक नई वर्कशीट में आउटपुट करेगा; क्लिक बंद करें और लोड करें विकल्प, डेटा आपके लिए आवश्यक किसी अन्य शीट पर आउटपुट होगा।

2. अंत में, डेटा एक नई वर्कशीट में लोड किया जाएगा, स्क्रीनशॉट देखें:

 टिप्स: यदि आपको मूल तालिका में अपना डेटा बार-बार अपडेट करने की आवश्यकता है, तो कृपया चिंता न करें, आपको बस परिणाम तालिका पर राइट क्लिक करना होगा और क्लिक करना होगा ताज़ा करना नया परिणाम गतिशील रूप से प्राप्त करने के लिए।

संबंधित आलेख: