यदि एक्सेल में किसी अन्य कॉलम में समान मान मौजूद है तो कोशिकाओं को कैसे संयोजित करें?
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, यदि आप पहले कॉलम में समान मानों के आधार पर दूसरे कॉलम में कोशिकाओं को जोड़ना चाहते हैं, तो आप कई तरीकों का उपयोग कर सकते हैं। इस लेख में, हम इस कार्य को पूरा करने के तीन तरीके पेश करेंगे।
यदि सूत्र और फ़िल्टर के साथ समान मान हो तो कोशिकाओं को संयोजित करें
निम्नलिखित सूत्र एक कॉलम में संबंधित कोशिकाओं की सामग्री को दूसरे कॉलम में समान मान के आधार पर संयोजित करने में मदद करते हैं।
1. दूसरे कॉलम के अलावा एक रिक्त सेल का चयन करें (यहां हम सेल C2 का चयन करते हैं), सूत्र दर्ज करें =आईएफ(ए2<>ए1,बी2,सी1 और "," और बी2) सूत्र पट्टी में, और फिर दबाएँ दर्ज कुंजी।
2. फिर सेल C2 का चयन करें, और भरण हैंडल को उन सेल तक नीचे खींचें जिन्हें आपको जोड़ना है।
3. सूत्र दर्ज करें =IF(A2<>A3,CONCATENATE(A2,'','''',C2,'''''''','') सेल D2 में, और फ़िल हैंडल को बाकी सेल तक नीचे खींचें।
4. सेल D1 चुनें और क्लिक करें जानकारी > फ़िल्टर. स्क्रीनशॉट देखें:
5. सेल D1 में ड्रॉप-डाउन तीर पर क्लिक करें, अनचेक करें (रिक्त स्थान) बॉक्स, और फिर क्लिक करें OK बटन.
यदि पहले कॉलम का मान समान है तो आप देख सकते हैं कि कोशिकाएँ संयोजित हो गई हैं।
नोट: उपरोक्त सूत्रों का सफलतापूर्वक उपयोग करने के लिए, कॉलम ए में समान मान निरंतर होना चाहिए।
Excel के लिए Kutools के साथ समान मान होने पर आसानी से कोशिकाओं को संयोजित करें (कई क्लिक)
ऊपर वर्णित विधि में दो सहायक कॉलम बनाने की आवश्यकता होती है और इसमें कई चरण शामिल होते हैं, जो असुविधाजनक हो सकते हैं। यदि आप कोई आसान तरीका ढूंढ रहे हैं, तो इसका उपयोग करने पर विचार करें उन्नत संयोजन पंक्तियाँ से उपकरण एक्सेल के लिए कुटूल. बस कुछ ही क्लिक के साथ, यह उपयोगिता आपको एक विशिष्ट सीमांकक का उपयोग करके कोशिकाओं को संयोजित करने की अनुमति देती है, जिससे प्रक्रिया त्वरित और परेशानी मुक्त हो जाती है।
टिप: इस टूल को अप्लाई करने से पहले कृपया इंस्टॉल कर लें एक्सेल के लिए कुटूल पहले तो। अभी मुफ्त डाउनलोड पर जाएं.
- वह श्रेणी चुनें जिसे आप संयोजित करना चाहते हैं;
- कॉलम को समान मानों के साथ सेट करें प्राथमिक कुंजी स्तंभ.
- कोशिकाओं को संयोजित करने के लिए एक विभाजक निर्दिष्ट करें।
- क्लिक करें OK.
परिणाम
- कृपया इस सुविधा को लागू करने के लिए एक्सेल के लिए कुटूल डाउनलोड और इंस्टॉल करें पहले।
- इस सुविधा के बारे में अधिक जानने के लिए इस लेख पर एक नज़र डालें: Excel में समान मानों या डुप्लिकेट पंक्तियों को त्वरित रूप से संयोजित करें
यदि VBA कोड के साथ समान मान हो तो कोशिकाओं को संयोजित करें
यदि किसी अन्य कॉलम में समान मान मौजूद है तो आप किसी कॉलम में कोशिकाओं को संयोजित करने के लिए वीबीए कोड का भी उपयोग कर सकते हैं।
1। दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक एप्लीकेशन खिड़की.
2। में माइक्रोसॉफ्ट विज़ुअल बेसिक एप्लीकेशन खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए कोड को कॉपी करके पेस्ट करें मॉड्यूल खिड़की.
VBA कोड: समान मान होने पर कोशिकाओं को संयोजित करें
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End Sub
नोट्स:
3। दबाएं F5 कोड को चलाने के लिए कुंजी, फिर आपको निर्दिष्ट सीमा में संक्षिप्त परिणाम मिलेंगे।
Excel के लिए Kutools के साथ समान मान होने पर आसानी से कोशिकाओं को संयोजित करें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!