किसी कॉलम में रिक्त सेल मिलने तक सेल मानों को कैसे संयोजित करें?
उदाहरण के लिए, मेरे पास मानों की एक सूची है जिसमें कुछ रिक्त कक्ष शामिल हैं, और अब, मैं रिक्त स्थान के बीच डेटा के प्रत्येक सेट को एक कक्ष में जोड़ना चाहता हूं और संयुक्त मानों को दूसरे कॉलम में सूचीबद्ध करना चाहता हूं जैसा कि स्क्रीनशॉट में दिखाया गया है। किसी कॉलम में रिक्त सेल मिलने तक मैं कोशिकाओं को कैसे संयोजित कर सकता हूँ?
सेल मानों को तब तक संयोजित करें जब तक वीबीए कोड वाले कॉलम में एक खाली सेल न मिल जाए
Excel के लिए Kutools वाले कॉलम में एक रिक्त सेल मिलने तक सेल मानों को संयोजित करें
सेल मानों को तब तक संयोजित करें जब तक वीबीए कोड वाले कॉलम में एक खाली सेल न मिल जाए
आपके लिए रिक्त स्थान के बीच कोशिकाओं के एक सेट को संयोजित करने का कोई सीधा तरीका नहीं है, लेकिन, आप इससे निपटने के लिए निम्नलिखित VBA कोड लागू कर सकते हैं। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सेल मानों को तब तक संयोजित करें जब तक कि कोई रिक्त सेल न मिल जाए
Sub Concatenatecells()
'updateby Extendoffice
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xTStr As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
Exit Sub
End If
Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell <> "" Then
xTStr = xTStr & xCell & " "
Else
xSaveToRg.Value = xTStr
Set xSaveToRg = xSaveToRg.Offset(1)
xTStr = ""
End If
Next
If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
Application.ScreenUpdating = True
End Sub
3. फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और आपको उस डेटा श्रेणी का चयन करने की याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स पॉप आउट होता है जिसे आप संयोजित करना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK, और एक अन्य प्रॉम्प्ट बॉक्स पॉप आउट हो गया है, कृपया सम्मिलित परिणाम को आउटपुट करने के लिए एक सेल का चयन करें, स्क्रीनशॉट देखें:
5. और फिर क्लिक करें OK बटन, और कॉलम सूची डेटा को रिक्त स्थान के बीच संयोजित किया गया है, स्क्रीनशॉट देखें:
Excel के लिए Kutools वाले कॉलम में एक रिक्त सेल मिलने तक सेल मानों को संयोजित करें
यदि आपके पास एक्सेल के लिए कुटूल, इसका संयोजन ट्रांसफ़ॉर्म रेंज और मिलाना फीचर्स, आप इस काम को जल्द से जल्द पूरा भी कर सकते हैं। ट्रांसफ़ॉर्म रेंज उपयोगिता आपको एकल कॉलम को एक श्रेणी में बदलने में मदद कर सकती है, और मिलाना सुविधा आपको परिवर्तित श्रेणी को एक कॉलम में संयोजित करने में मदद कर सकती है।
| एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1. उन कक्षों का चयन करें जिन्हें आप संयोजित करना चाहते हैं, और क्लिक करें कुटूल > रेंज > ट्रांसफ़ॉर्म रेंज, स्क्रीनशॉट देखें:
2. में ट्रांसफ़ॉर्म रेंज संवाद बॉक्स, जाँचें श्रेणी के लिए एकल स्तंभ के तहत विकल्प रूपांतरण प्रकारऔर उसके बाद का चयन रिक्त कक्ष रिकॉर्ड का परिसीमन करता है नीचे प्रति रिकॉर्ड पंक्तियाँ, स्क्रीनशॉट देखें:
3. तब क्लिक करो Ok, और परिणाम को आउटपुट करने के लिए एक सेल का चयन करने की याद दिलाने के लिए एक प्रॉम्प्ट बॉक्स पॉप आउट हो जाएगा, स्क्रीनशॉट देखें:
4। क्लिक करें OK, और एकल कॉलम डेटा को रिक्त सेल द्वारा कई पंक्तियों और कॉलमों में परिवर्तित कर दिया गया है, स्क्रीनशॉट देखें:
5. परिवर्तित डेटा कई कॉलम में है, इसलिए आपको उन्हें एक कॉलम में संयोजित करने की आवश्यकता है, कृपया डेटा श्रेणी का चयन करें और क्लिक करें कुटूल > विलय और विभाजन > डेटा खोए बिना पंक्तियों, स्तंभों या कक्षों को संयोजित करें, स्क्रीनशॉट देखें:
6. में स्तंभों या पंक्तियों को संयोजित करें संवाद बॉक्स में, निम्नलिखित विकल्प चुनें:
(1.) चयन करें स्तंभों को संयोजित करें से विकल्प निम्नलिखित विकल्पों के अनुसार चयनित कोशिकाओं को संयोजित करना;
(2.) फिर एक विभाजक निर्दिष्ट करें जिसे आप संयोजित मानों को अलग करना चाहते हैं;
(3.) चुनें कि आप संयुक्त कोशिकाओं से कैसे निपटना चाहते हैं। आप मूल डेटा को रख या हटा सकते हैं, और आप संयुक्त कोशिकाओं को मर्ज भी कर सकते हैं। स्क्रीनशॉट देखें:
7. सेटिंग्स ख़त्म करने के बाद क्लिक करें Ok or लागू करें बटन, कोशिकाओं को एक विशिष्ट विभाजक के साथ एक कॉलम में संयोजित किया गया है, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
