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

एक्सेल में कॉलम से डेटा को एक सिंगल सेल में कैसे स्थानांतरित करें?

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

जब आपको किसी वर्कशीट में डेटा की सूची को एक एकल सेल में स्थानांतरित करने की आवश्यकता होती है, तो आम तौर पर, आप इसे लागू कर सकते हैं CONCATENATE कोशिकाओं की सूची को एक कोशिका में मर्ज करने का कार्य, लेकिन, यदि विशाल डेटा को संयोजित करने की आवश्यकता हो तो यह जटिल होगा। इस लेख में, मैं एक्सेल में इस कार्य को हल करने के लिए आपके लिए कुछ त्वरित युक्तियों के बारे में बात करूंगा।

उपयोगकर्ता परिभाषित फ़ंक्शन के साथ कॉलम से डेटा को एक एकल सेल में स्थानांतरित करें

एक्सेल के लिए कुटूल के साथ कॉलम से डेटा को एक सिंगल सेल में स्थानांतरित करें

सेल मानों की सूची को मर्ज करने के लिए कॉन्टेनेट फ़ंक्शन को छोड़कर, आप जितनी जल्दी हो सके परिणाम प्राप्त करने के लिए निम्नलिखित वीबीए कोड लागू कर सकते हैं।

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

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

वीबीए कोड: कॉलम से डेटा को एक एकल सेल में स्थानांतरित करें

Function transposeRange(Rg As Range)
'updateby Extendoffice
    Dim xCell As Range
    Dim xStr As String
    For Each xCell In Rg
        If Not IsEmpty(xCell.Value) Then
            xStr = xStr & xCell.Value & ","
        End If
    Next
    transposeRange = Left(xStr, Len(xStr) - 1)
End Function

3. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =ट्रांसपोज़रेंज(A1:A10) परिणाम डालने के लिए एक रिक्त कक्ष में रखें और दबाएँ दर्ज कुंजी, आपको एक कॉलम में सभी सेल मान एक ही सेल में स्थित मिलेंगे, स्क्रीनशॉट देखें:

दस्तावेज़ कोशिकाओं को एक कोशिका में स्थानांतरित करें 1

नोट: उपरोक्त कोड में, A1: A10 वह सूची श्रेणी है जिसे आप एक एकल कक्ष में स्थानांतरित करना चाहते हैं, और साथ ही, आप केवल स्क्रिप्ट में अल्पविराम बदलकर मर्ज की गई सामग्री को अन्य सीमांकक, जैसे अल्पविराम, डैश, स्पेस इत्यादि से अलग कर सकते हैं xStr = xStr और xCell.Value और ",".

यदि आपके पास एक्सेल के लिए कुटूल, अपने शक्तिशाली उपकरण के साथ-मिलाना, आप डेटा को एक कॉलम, पंक्ति या एक श्रेणी में एक सेल में संयोजित कर सकते हैं।

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

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

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

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

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

दस्तावेज़ कोशिकाओं को एक कोशिका में स्थानांतरित करें 3

4। तब दबायें Ok or लागू करें बटन, और आपको आवश्यकतानुसार निम्नलिखित परिणाम प्राप्त होंगे:

दस्तावेज़ कोशिकाओं को एक कोशिका में स्थानांतरित करें 4 2 दस्तावेज़ कोशिकाओं को एक कोशिका में स्थानांतरित करें 5

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

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

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

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

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

Description

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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (6)
No ratings yet. Be the first to rate!
Christian
Christian
This comment was minimized by the moderator on the site
Would anybody know how to add a conditional rule to this function? Basically I have an e-mail directory for multiple businesses. There is a column where I list either Yes or No in response to whether the E-mail is the business' main contact. I am hoping adjust the code so that only the main contacts are pulled and listed in one cell. Therefore, the condition would be that the Main Contact Column lists Yes. I have tried using if statements but I am fairly new to all of this. Any help would be much appreciated!
Reply
0
0
MandyZhou
MandyZhou     Christian
This comment was minimized by the moderator on the site
Hello friend,
Glad to help. Please read this article: https://www.extendoffice.com/documents/excel/2706-excel-vlookup-return-multiple-values-in-one-cell.html. I believe it can solve your problem. Have a nice day.

Sincerely,
Mandy
Reply
Report
0
0
DC
DC
This comment was minimized by the moderator on the site
This has been ridiculously helpful to me a number of times. Thank you so much!
Reply
0
0
Sophie
Sophie
This comment was minimized by the moderator on the site
Hi,

Thanks a lot! I'm using your following function and it works very well. I would like to include an "if" function in the transposerange. What should I add to the function in VBA? Basically, it would work like a countif. So we would read the formula =transposerangeif(range,criteria).

Thanks in advance!

Function transposeRange(Rg As Range)
'updateby Extendoffice 20151207
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
Reply
0
0
skyyang
skyyang     Sophie
This comment was minimized by the moderator on the site
Hello,Sophie,
Could you give an example for your need, you can insert a screenshot here.
Reply
Report
0
0
Eric
Eric
This comment was minimized by the moderator on the site
Thanks, this was very helpful.
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