एक्सेल में एक साथ कई मान कैसे खोजें और बदलें?
जैसा कि हम सभी जानते हैं, हम कई समान सेल ढूंढने और उन्हें आपकी आवश्यकता के अनुसार मान के साथ बदलने के लिए फाइंड और रिप्लेस फ़ंक्शन का उपयोग कर सकते हैं। लेकिन कभी-कभी, आपको एक साथ अनेक-से-अनेक प्रतिस्थापन लागू करने की आवश्यकता होती है। उदाहरण के लिए, मेरे पास डेटा की एक श्रृंखला है, और अब मैं सभी सेब को लाल सेब, संतरे को हरे संतरे, केले को पीले केले और इसी तरह से बदलना चाहता हूं जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है, क्या आपके पास इस कार्य को हल करने के लिए कोई अच्छा विचार है? एक्सेल?
VBA कोड के साथ एक साथ कई मान ढूंढें और बदलें
यदि आप बार-बार मूल्यों को ढूंढने और बदलने से थक गए हैं, तो निम्नलिखित वीबीए कोड आपको एक साथ कई मूल्यों को आपके आवश्यक पाठ के साथ बदलने में मदद कर सकता है।
1. कृपया अपनी शर्तें बनाएं जिनका आप उपयोग करना चाहते हैं जिनमें मूल मान और नए मान शामिल हों। स्क्रीनशॉट देखें:
2. फिर दबा कर रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक।
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।
वीबीए कोड: एक साथ कई मान ढूंढें और बदलें
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, पॉप आउट प्रॉम्प्ट बॉक्स में, कृपया डेटा श्रेणी निर्दिष्ट करें जिसे आप नए मानों के साथ प्रतिस्थापित करना चाहते हैं।
5। क्लिक करें OK, और एक अन्य प्रॉम्प्ट बॉक्स आपको यह याद दिलाने के लिए प्रदर्शित किया जाता है कि चरण 1 में आपके द्वारा बनाए गए मानदंड का चयन करें। स्क्रीनशॉट देखें:
6। तब दबायें OK, सभी विशिष्ट मानों को आपकी तत्काल आवश्यकता के अनुसार नए मानों से बदल दिया गया है।
संबंधित आलेख:
टेक्स्ट बॉक्स में विशिष्ट टेक्स्ट को कैसे ढूंढें और बदलें?
एक्सेल में चार्ट शीर्षकों में टेक्स्ट कैसे खोजें और बदलें?
एक्सेल में टिप्पणियों के भीतर टेक्स्ट को कैसे ढूंढें और बदलें?
Excel में एक साथ एकाधिक हाइपरलिंक पथ कैसे बदलें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!