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

एक्सेल में एक कॉलम को हर दूसरी पंक्ति में कैसे विभाजित करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-17
दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 1

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

सूत्रों के साथ एक कॉलम को हर दूसरी पंक्ति में विभाजित करें

VBA कोड के साथ एक कॉलम को हर दूसरी पंक्ति में विभाजित करें

एक्सेल के लिए कुटूल के साथ हर दूसरी पंक्ति में एक कॉलम को विभाजित करें

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

निम्नलिखित सूत्र आपको किसी कॉलम को हर दूसरी पंक्ति द्वारा दो कॉलमों में शीघ्रता से विभाजित करने में मदद कर सकते हैं, कृपया निम्नानुसार कार्य करें:

1. इस सूत्र को एक रिक्त कक्ष, C2 में दर्ज करें, उदाहरण के लिए, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), स्क्रीनशॉट देखें：

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 2

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

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 3

3. फिर सेल D2 में एक और सूत्र दर्ज करें, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), और भरण हैंडल को तब तक नीचे की ओर खींचें जब तक कि त्रुटि मान प्रकट न हो जाएं, और स्तंभ मान हर दूसरी पंक्ति में दो स्तंभों में विभाजित हो जाएं, स्क्रीनशॉट देखें:

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 4

तीर नीला दायां बुलबुला VBA कोड के साथ एक कॉलम को हर दूसरी पंक्ति में विभाजित करें

यदि आप वीबीए कोड में रुचि रखते हैं, तो यहां, मैं इस समस्या को हल करने के लिए आपके लिए एक कोड के बारे में बात कर सकता हूं।

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

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

वीबीए कोड: एक कॉलम को हर दूसरी पंक्ति में दो कॉलम में विभाजित करें

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub

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

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 5

4. और क्लिक करें OK, एक अन्य प्रॉम्प्ट बॉक्स पॉप होता है जिससे आप परिणाम डालने के लिए एक सेल का चयन कर सकते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 6

5। तब दबायें OK, और स्तंभ को हर दूसरी पंक्ति द्वारा दो स्तंभों में विभाजित किया गया है। स्क्रीनशॉट देखें:

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 7

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

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

एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. 
डाउनलोड पर जाएं
नि:शुल्क परीक्षण 30 दिनखरीद फरोख्त
पेपैल/माईकॉमर्स

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

1. उस कॉलम डेटा का चयन करें जिसे आप हर दूसरी पंक्ति द्वारा दो कॉलम में विभाजित करना चाहते हैं।

2। तब दबायें कुटूल > रेंज > ट्रांसफ़ॉर्म रेंज, स्क्रीनशॉट देखें:

3. में ट्रांसफ़ॉर्म रेंज संवाद बॉक्स में, चयन करें श्रेणी के लिए एकल स्तंभ नीचे रूपांतरण प्रकार, उसके बाद चुनो निर्धारित मूल्य और दर्ज करें 2 बॉक्स में प्रति रिकॉर्ड पंक्तियाँ अनुभाग, स्क्रीनशॉट देखें:

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 9

4। तब दबायें Ok बटन, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस सेल का चयन करें जहां आप परिणाम आउटपुट करना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ ने हर दूसरी पंक्ति को विभाजित कर दिया 10

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

इस ट्रांसफ़ॉर्म रेंज उपयोगिता के बारे में अधिक जानने के लिए क्लिक करें।

एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें

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

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

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

Description

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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
Jas
Jas
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
Reply
0
0
skyyang
skyyang     Jas
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
Reply
Report
0
0
Jeff
Jeff
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations