मुख्य सामग्री पर जाएं

एक्सेल में डिलीमीटर द्वारा विभाजित और कोशिकाओं को स्थानांतरित कैसे करें?

लेखक: रवि अंतिम संशोधित: 2022-06-30

इस आलेख में, मैं किसी श्रेणी को विशिष्ट सीमांकक द्वारा विभाजित करने और फिर नीचे दिखाए गए स्क्रीनशॉट के अनुसार इसे एक्सेल में स्थानांतरित करने के तरीकों का परिचय देता हूं। यदि आप इस कार्य में रुचि रखते हैं, तो कृपया नीचे दिए गए विवरण पर जाएँ।
डॉक स्प्ली ट्रांसपोज़ 1

वीबीए के साथ विभाजित करें और स्थानांतरित करें

एक्सेल के लिए कुटूल के साथ विभाजित और ट्रांसपोज़ करें


तीर नीला दायां बुलबुला वीबीए के साथ विभाजित करें और स्थानांतरित करें

किसी विशिष्ट सीमांकक द्वारा डेटा को विभाजित और स्थानांतरित करने का कोई सीधा तरीका नहीं है, लेकिन मैं इस समस्या को तुरंत हल करने में आपकी सहायता के लिए एक वीबीए कोड पेश कर सकता हूं।

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

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को नए में पेस्ट करें मॉड्यूल खिड़की.

वीबीए: स्प्लिट और ट्रांसपोज़

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3। दबाएँ F5 कोड को चलाने के लिए कुंजी, विभाजित करने और स्थानांतरित करने के लिए एक सीमा का चयन करने के लिए एक संवाद पॉप आउट होता है।
डॉक स्प्ली ट्रांसपोज़ 2

4। क्लिक करें OK. डेटा रखने के लिए स्थान का चयन करने के लिए एक संवाद पॉप आउट होता है।
डॉक स्प्ली ट्रांसपोज़ 3

5। क्लिक करें OK, और चयन को अल्पविराम द्वारा विभाजित और स्थानांतरित कर दिया गया है।
डॉक स्प्ली ट्रांसपोज़ 4

नोट: कोड में, अल्पविराम strTxt और "," और एरी = स्प्लिट(strTxt, ",") वे सीमांकक हैं जिनके आधार पर आप डेटा को विभाजित करेंगे, आप उन्हें आवश्यकतानुसार बदल सकते हैं।


तीर नीला दायां बुलबुला एक्सेल के लिए कुटूल के साथ विभाजित और ट्रांसपोज़ करें

- एक्सेल के लिए कुटूल, आप इसे लागू कर सकते हैं विभाजन कोशिकाओं सबसे पहले कोशिकाओं को सीमांकक द्वारा विभाजित करें, और फिर लागू करें ट्रांसफ़ॉर्म रेंज कोशिकाओं को एक कॉलम में बदलने की उपयोगिता।

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। 

स्थापित करने के बाद Excel के लिए Kutools, कृपया नीचे दिए अनुसार कार्य करें:(एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें!)

1. उन कक्षों का चयन करें जिन्हें आप विभाजित करना चाहते हैं, और क्लिक करें कुटूल > विलय और विभाजन > विभाजन कोशिकाओं. स्क्रीनशॉट देखें:
डॉक स्प्ली ट्रांसपोज़ 5

2। में विभाजन कोशिकाओं संवाद, जांचें स्तंभों में विभाजित करें विकल्प, फिर उस सीमांकक को निर्दिष्ट करें जिसके आधार पर आप विभाजित करना चाहते हैं, क्लिक करें Ok. और परिणाम को दूसरे में रखने के लिए एक रिक्त कक्ष का चयन करें विभाजन कोशिकाओं संवाद. स्क्रीनशॉट देखें:
डॉक स्प्ली ट्रांसपोज़ 6

3। क्लिक करें OK, फिर कोशिकाओं को स्तंभों में विभाजित किया गया है, और फिर क्लिक करें कुटूल > रेंज > ट्रांसफ़ॉर्म रेंज. स्क्रीनशॉट देखें:
डॉक स्प्ली ट्रांसपोज़ 7

4। में ट्रांसफ़ॉर्म रेंज संवाद, जांचें एकल स्तंभ तक का दायराक्लिक करें, Ok, और परिणाम रखने के लिए एक सेल का चयन करें। स्क्रीनशॉट देखें:
डॉक स्प्ली ट्रांसपोज़ 8

5। क्लिक करें OK, अब रेंज को एक कॉलम में स्थानांतरित कर दिया गया है।
डॉक स्प्ली ट्रांसपोज़ 9

टिप। यदि आप इसका निःशुल्क परीक्षण करना चाहते हैं विभाजन कोशिकाओं और ट्रांसफ़ॉर्म रेंज काम करता है, कृपया एक्सेल के लिए नि:शुल्क कुटूल आज़माएं पर जाएं पहले, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।

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

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations