एक्सेल में सभी आंशिक मिलान कैसे निकालें?
यदि आप किसी कॉलम से उन सभी मिलानों को निकालना चाहते हैं जिनमें एक विशिष्ट कुंजी शब्द शामिल है और उन्हें एक कॉलम में या एक सीमांकक द्वारा अलग किए गए सेल में सूचीबद्ध करना चाहते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, तो आप एक्सेल में इस कार्य को कैसे हल कर सकते हैं?
सूत्र के साथ सभी आंशिक मिलानों को लंबवत रूप से निकालें
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ सभी आंशिक मिलानों को एक एकल कक्ष में निकालें
सूत्र के साथ सभी आंशिक मिलानों को लंबवत रूप से निकालें
आंशिक पाठ के आधार पर एक कॉलम में सभी मिलानों को लंबवत रूप से निकालने के लिए, निम्नलिखित सरणी सूत्र आपकी मदद कर सकता है:
Step1: कृपया नीचे दिए गए फॉर्मूले को कॉपी करके एक खाली सेल में पेस्ट करें जहां आप परिणाम डालना चाहते हैं:
नोट: उपरोक्त सूत्र में, A2: A14 क्या कोशिकाओं में वह कुंजी शब्द हो सकता है जिससे आप मिलान वापस करना चाहते हैं, C2 कुंजी शब्द शामिल है, E1 सूत्र के ऊपर की कोशिका है.
Step2: फिर प्रेस Ctrl + Shift + Enter पहला परिणाम प्राप्त करने के लिए कुंजियाँ एक साथ रखें, और फिर त्रुटि मान प्रकट होने तक सभी मिलान प्राप्त करने के लिए भरण हैंडल को नीचे खींचें। अंत में, त्रुटि मान हटाएं, स्क्रीनशॉट देखें:
उपयोगकर्ता परिभाषित फ़ंक्शन के साथ सभी आंशिक मिलानों को एक एकल कक्ष में निकालें
यदि आपको सभी मिलानों को एक एकल कक्ष में निकालने और एक विशिष्ट सीमांकक द्वारा अलग करने की आवश्यकता है, तो शायद ऐसा कोई सूत्र नहीं है जो इसे हल कर सके। यहां, आपको नीचे दिए गए उपयोगकर्ता परिभाषित फ़ंक्शन को लागू करने की आवश्यकता है:
Step1: दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
Step2: में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, फिर निम्नलिखित कोड को मॉड्यूल में कॉपी करें।
वीबीए कोड: सभी आंशिक मिलानों को एक सेल में निकालें
Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function
Step3: कोड चिपकाने के बाद, कृपया वर्कशीट पर वापस जाएँ जहाँ आप परिणाम देखना चाहते हैं, फिर यह सूत्र दर्ज करें: =ExtractPartMatch(C2,$A$2:$A$14), और फिर, दबाएँ दर्ज नीचे दिखाए गए स्क्रीनशॉट के अनुसार परिणाम प्राप्त करने की कुंजी:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!