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

एक्सेल में एकाधिक कॉलमों को एक सूची में कैसे संयोजित करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-05-25

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

VBA कोड के साथ अनेक स्तंभों को एक सूची में संयोजित करें

Excel के लिए Kutools के साथ अनेक स्तंभों को एक सूची में संयोजित करें

कॉलम डेटा को कॉपी और पेस्ट करने के लिए दोहराए बिना, निम्नलिखित वीबीए कोड आपको इस काम को जल्दी और आसानी से निपटाने में मदद कर सकता है।

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

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

VBA कोड: एकाधिक स्तंभों को एक सूची में संयोजित या मर्ज करें

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

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

दस्तावेज़ कॉलमों को एक में संयोजित करें 1

4। और फिर क्लिक करें OK बटन, और चयनित कॉलमों को केवल एक कॉलम में मर्ज कर दिया गया है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है:

दस्तावेज़ कॉलमों को एक में संयोजित करें 2 2 दस्तावेज़ कॉलमों को एक में संयोजित करें 3

टिप्स: इस वीबीए को चलाने के बाद, रेंज का मूल डेटा साफ़ हो जाएगा, बेहतर होगा कि आप पहले उन्हें कॉपी करके किसी अन्य स्थान पर सहेज लें।

यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, आईटी इस ट्रांसफ़ॉर्म रेंज उपयोगिता आपको एकाधिक स्तंभों को एक एकल स्तंभ या एकल पंक्ति में संयोजित करने में मदद कर सकती है।

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

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

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

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

3. में ट्रांसफ़ॉर्म रेंज संवाद बॉक्स में, चयन करें एकल स्तंभ तक का दायरा विकल्प, और क्लिक करें Ok बटन, स्क्रीनशॉट देखें:

दस्तावेज़ कॉलमों को एक में संयोजित करें 5

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

दस्तावेज़ कॉलमों को एक में संयोजित करें 6

5। तब दबायें OK बटन, आपके चयनित कॉलम आपके इच्छित निर्दिष्ट स्थान पर एक एकल कॉलम में संयोजित हो गए हैं। स्क्रीनशॉट देखें:

दस्तावेज़ कॉलमों को एक में संयोजित करें 7

डाउनलोड करें और निःशुल्क परीक्षण करें Excel के लिए अभी कुटूल!

एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

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

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

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

Description

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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (7)
No ratings yet. Be the first to rate!
Kevin
Kevin
This comment was minimized by the moderator on the site
This works great if you need to combine all of one column, then move to the next column, etc. What if you need to combine them in the row order? Such as...
A1
B1
A2
B2
Reply
0
0
skyyang
skyyang     Kevin
This comment was minimized by the moderator on the site
Hello, Kevin,
To combine the data from rows into one single column based on the row order, please apply the following code:
Sub ConvertRangeToColumn()
'Updateby Extendoffice
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 have a try, hope it can help you!
Reply
Report
0
0
Денис
Денис
This comment was minimized by the moderator on the site
Доброго вечера, благодарю Вас за помощь, Вы сэкономили часы времени. Спасибо, желаю Вам счастья!
Reply
0
0
skyyang
skyyang     Денис
This comment was minimized by the moderator on the site
Hello,
Glad it can help you! 😀
Reply
Report
0
0
Мария
Мария
This comment was minimized by the moderator on the site
Спасибо большое, все сработало!!!
Reply
0
0
Aster
Aster
This comment was minimized by the moderator on the site
This has been very helpful. It saved me hours of copying and pasting columns from A to ANY.
Reply
Report
0
0
Mike
Mike
This comment was minimized by the moderator on the site
This worked perfect and was very helpful! Thanks!
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