एक्सेल में वैकल्पिक मानों के साथ दो कॉलमों को एक में कैसे मर्ज करें?
यहां एक वर्कशीट में दो कॉलम हैं, नीचे दिए गए स्क्रीनशॉट में दिखाए गए मान विकल्प के साथ इन दोनों कॉलमों को एक कॉलम में मर्ज करना क्या काम है। आप कार्य को एक-एक करके पुनर्व्यवस्थित किए बिना शीघ्रता से कैसे संभाल सकते हैं?
VBA कोड द्वारा वैकल्पिक मानों के साथ दो स्तंभों को एक में मिलाएं
एक्सेल के लिए कुटूल्स द्वारा वैकल्पिक मानों के साथ दो कॉलमों को एक में मिलाएं
VBA कोड द्वारा वैकल्पिक मानों के साथ दो स्तंभों को एक में मिलाएं
वैकल्पिक मानों के साथ दो कॉलमों को एक में मिलाने के लिए एक्सेल में VBA कोड के अलावा कोई अंतर्निहित फ़ंक्शन नहीं है।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। क्लिक सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल बनाने के लिए।
2. नीचे दिए गए कोड को मॉड्यूल में कॉपी और पेस्ट करें।
वीबीए: मूल्य विकल्प के साथ दो कॉलमों को एक में मिलाएं
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub
3। दबाएँ F5 कुंजी और दो कॉलम चुनें जिन्हें आप पॉपिंग डायलॉग में मर्ज करना चाहते हैं।
4। क्लिक करें OK, दूसरे संवाद में, परिणाम रखने के लिए एक सेल का चयन करें।
5। क्लिक करें OK. अब चयनित दो कॉलमों को एक में मिला दिया गया है, और मान विकल्प के साथ।
एक्सेल के लिए कुटूल्स द्वारा वैकल्पिक मानों के साथ दो कॉलमों को एक में मिलाएं
यदि आपके पास एक्सेल के लिए कुटूल एक्सेल में स्थापित, इसकी Transform Range यूटिलिटी इस काम को केवल 3 आसान चरणों से हल कर सकती है।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:(अब एक्सेल के लिए नि:शुल्क कुटूल डाउनलोड करें!)
1. उन कॉलम (दो या अधिक) का चयन करें जिन्हें आप मर्ज करना चाहते हैं, क्लिक करें कुटूल > Transform Range.
2। में Transform Range संवाद, जांचें Range to single column विकल्प, और क्लिक करें Ok.
3. परिणाम को पॉपिंग डायलॉग में रखने के लिए एक सेल का चयन करें। क्लिक OK.
अब कॉलमों को एक में मिला दिया गया है और मान वैकल्पिक क्रम में हैं।
ट्रांसपोज़ रेंज
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!