कभी-कभी हमें किसी कारण से अपने डेटासेट को संशोधित करने की आवश्यकता होती है। और जब हम एकाधिक वर्कशीट और वर्कबुक से निपट रहे होते हैं तो यह काम वास्तव में कठिन हो जाता है। लेकिन अगर आप Excel के Find and Replace टूल और VBA कोड के सही उपयोग को जानते हैं तो यह कठिन कार्य काफी आसान हो जाता है। इस लेख में, हम आपको दिखाएंगे कि Find and Replace टूल और VBA मैक्रो के साथ Excel में एकाधिक शीट्स और फाइलों में वैल्यू कैसे ढूंढें और बदलें।
वर्कबुक डाउनलोड करें
आप यहां से मुफ्त प्रैक्टिस Excel वर्कबुक डाउनलोड कर सकते हैं।
Excel में एकाधिक वर्कशीट और वर्कबुक में वैल्यू ढूंढने और बदलने के 3 तरीके
आगामी अनुभागों में, आप सीखेंगे कि Find and Replace फीचर और Excel में VBA मैक्रो के साथ एकाधिक Excel शीट्स और फाइलों में कुछ वैल्यू कैसे ढूंढें और बदलें।
1. एक Excel फाइल में एकाधिक वर्कशीट में वैल्यू ढूंढें और बदलें
आप मौजूदा वर्कबुक की सभी वर्कशीट से एक निश्चित वैल्यू ढूंढ सकते हैं और उन सभी को एक बार में किसी भी वैल्यू से बदल सकते हैं जो आप चाहते हैं। आइए आपको दिखाते हैं कि आप Excel के Find & Replace टूल से यह कैसे कर सकते हैं।
निम्न छवि में, आप देख सकते हैं कि हमारे पास One नाम की एक Excel शीट है।
उसी वर्कबुक में, हमारे पास Two नाम की एक और शीट है।
अब हम यहां जो करने जा रहे हैं वह है, हम Excel में Find & Replace फीचर के साथ एक विशिष्ट शब्द ढूंढेंगे और उसे दूसरे शब्द से बदलेंगे। हमारे मामले में, हम शब्द "Ambrose" को "Moxley" से बदलेंगे।
चरण:
- Home टैब से, Find & Select → Replace चुनें…
- उसके बाद, एक Find and Replace पॉप-अप बॉक्स दिखाई देगा। Options>> पर क्लिक करें (नीचे छवि में दिखाया गया है)।
- उसके बाद, पॉप-अप बॉक्स में नए विकल्प दिखाई देंगे। वह शब्द लिखें जिसे आप ढूंढना चाहते हैं (हमारे मामले में, यह "Ambrose" है) Find what सेक्शन में।
- फिर, वह शब्द लिखें जिससे आप पिछले शब्द को बदलना चाहते हैं (हमारे मामले में शब्द "Moxley" है) Replace with सेक्शन में।
- उसके बाद, Within के बगल में ड्रॉप-डाउन सूची से, Workbook चुनें। यह उस वर्कबुक में सभी शीट्स में दिए गए शब्द को ढूंढेगा और उन सभी को बदल देगा।
- अंत में, Replace All पर क्लिक करें।
आपको एक कन्फर्मेशन बॉक्स मिलेगा जिसमें हुए सभी रिप्लेसमेंट बताए जाएंगे। चूंकि हमारे वर्कबुक में केवल 2 वर्कशीट हैं इसलिए हमारे मामले में केवल 2 रिप्लेसमेंट हुए। यदि आपके पास अधिक शीट्स हैं, तो अधिक रिप्लेसमेंट होंगे।
अब आइए देखते हैं कि रिप्लेसमेंट वास्तव में हुए या नहीं!
उपरोक्त और निम्नलिखित दोनों छवियों पर विचार करें।
हमारी दोनों शीट्स से शब्द "Ambrose" अब शब्द "Moxley" से बदल दिया गया है।
और पढ़ें: VBA के साथ Excel में एकाधिक वैल्यू कैसे ढूंढें और बदलें (3 उदाहरण)
2. एकाधिक वर्कबुक की एकाधिक शीट्स में वैल्यू ढूंढें और बदलें
क्या आप जानते हैं कि एक निश्चित वर्कशीट के लिए Find & Replace ऑपरेशन करने के बाद, Find and Replace पॉप-अप बॉक्स तब तक बंद नहीं होगा जब तक आप इसे मैन्युअल रूप से बंद नहीं करते? इसलिए, जब आपको एकाधिक वर्कबुक में वैल्यू बदलने की आवश्यकता हो तो आप इस सुविधा का लाभ उठा सकते हैं।
निम्नलिखित छवियों को देखें। हमने दो Excel वर्कबुक खोली हैं। एक का नाम Find and Replace Value है (नीचे छवि देखें)।
दूसरा Transpose Multiple Columns नाम का है (नीचे तस्वीर में दिखाया गया है)।
अब, ऊपर चर्चा किए गए अनुभाग से वैल्यू बदलने के बाद, आप देखेंगे कि Find and Replace पॉप-अप बॉक्स अभी भी वहीं है।
- वहां से, आपको बस इतना करना है, Close बटन पर क्लिक करने के बजाय, बस अगली वर्कबुक पर होवर करें और Replace All दबाएं। यह उन वैल्यू को ढूंढेगा जो आप चाहते हैं और उन्हें उस वैल्यू से बदल देगा जो आप उस वर्कबुक की सभी वर्कशीट से भी प्रदान करते हैं।
आप जितनी वर्कबुक की आवश्यकता हो उतनी पर यह ऑपरेशन कर सकते हैं।
और पढ़ें: Excel में फॉर्मूला का उपयोग करके Find and Replace कैसे करें (4 उदाहरण)
समान लेख:
- Excel फॉर्मूला में टेक्स्ट कैसे बदलें (7 आसान तरीके)
- Excel में एस्टेरिस्क (*) कैरेक्टर कैसे ढूंढें और बदलें
- Excel VBA (मैक्रो और UserForm) के साथ रेंज में टेक्स्ट ढूंढें और बदलें
- Excel कॉलम में Find and Replace कैसे करें (6 तरीके)
- Excel में चयन के भीतर Find and Replace कैसे करें (7 तरीके)
3. खुली वर्कबुक में वैल्यू ढूंढने और बदलने के लिए VBA एम्बेड करें
आप पिछले अनुभागों में चर्चा की गई सभी चीजों को केवल एक VBA कोड से कर सकते हैं। यदि आप एक उन्नत Excel उपयोगकर्ता हैं, तो यह अनुभाग आपके लिए है। VBA लागू करना Excel में किसी भी ऑपरेशन को चलाने का सबसे प्रभावी, तेज़ और सुरक्षित तरीका है। आप Excel में वर्कबुक की सभी वर्कशीट से वैल्यू ढूंढ और बदल सकते हैं। आइए देखते हैं कि VBA मैक्रो के साथ यह कैसे करें।
चरण:
- शुरुआत में, अपने कीबोर्ड पर Alt + F11 दबाएं या Developer → Visual Basic टैब पर जाकर Visual Basic Editor खोलें।
- अगला, पॉप-अप कोड विंडो में, मेनू बार से, Insert → Module पर क्लिक करें।
- फिर, निम्न कोड कॉपी करें और कोड विंडो में पेस्ट करें।
Sub MultipleFindAndReplace() Dim iSheet As Worksheet Dim OldValue As Variant Dim NewValue As Variant Dim i As Long OldValue = Array("John", "Roman", "Dean", "Seth", "Finn") NewValue = Array("Ben", "Alex", "Joe", "Chris", "Josh") For i = LBound(OldValue) To UBound(OldValue) For Each iSheet In ActiveWorkbook.Worksheets iSheet.Cells.Replace What:=OldValue(i), Replacement:=NewValue(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next iSheet Next i End Subआपका कोड अब चलाने के लिए तैयार है।
कोड का यह टुकड़ा वैल्यू के सरणी "John, Roman, Dean, Seth, Finn" को वैल्यू "Ben, Alex, Joe, Chris, Josh" से बदल देगा।
- अब, अपने कीबोर्ड पर F5 दबाएं या मेनू बार से Run → Run Sub/UserForm चुनें। आप सब-मेनू बार में छोटे Run आइकन पर क्लिक करके भी मैक्रो चला सकते हैं।
कोड निष्पादन के बाद, नीचे दी गई छवि को देखें ताकि परिणाम देख सकें।
आपके कोड में दर्ज सभी वैल्यू ("John, Roman, Dean, Seth, Finn") जिन्हें वैल्यू ("Ben, Alex, Joe, Chris, Josh") से बदलना था, अब सफलतापूर्वक बदल दिए गए हैं।
आप इस कोड को एकाधिक वर्कबुक की एकाधिक वर्कशीट से एकाधिक वैल्यू ढूंढने और बदलने के लिए भी निष्पादित कर सकते हैं।
- एक वर्कबुक पर मैक्रो चलाने के बाद, बस दूसरी वर्कबुक पर होवर करें। फिर वहां से, Developer → Macros पर जाएं।
- एक Macro पॉप-अप बॉक्स दिखाई देगा। वहां मैक्रो नाम चुनें और Run पर क्लिक करें।
आप देखेंगे कि वही परिणाम बाद में खोली गई वर्कबुक पर लागू होगा। कोड में दर्ज Find and Replace वैल्यू उन शब्दों को ढूंढने और उन्हें बदलने में सफलतापूर्वक अपना काम करेंगे।
VBA कोड व्याख्या
Dim iSheet As Worksheet Dim OldValue As Variant Dim NewValue As Variant Dim i As Longवेरिएबल परिभाषित करना।
OldValue = Array("John", "Roman", "Dean", "Seth", "Finn") NewValue = Array("Ben", "Alex", "Joe", "Chris", "Josh")OldValue वेरिएबल में ढूंढने के लिए वैल्यू सेट करें और NewValue वेरिएबल में बदलने के लिए वैल्यू सेट करें।
For i = LBound(OldValue) To UBound(OldValue) For Each iSheet In ActiveWorkbook.Worksheets iSheet.Cells.Replace What:=OldValue(i), Replacement:=NewValue(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next iSheet Next iकोड का यह टुकड़ा पहले Array सूचियों में प्रत्येक आइटम के माध्यम से लूप करेगा। फिर ActiveWorkbook में प्रत्येक वर्कशीट के माध्यम से लूप करेगा। स्कैन करने के बाद, जब यह मैच ढूंढेगा तो OldValue को NewValue से बदल देगा। एक शीट में पुनरावृत्ति के बाद, यह अगली शीट पर चला जाएगा और लूप को फिर से निष्पादित करना शुरू कर देगा।
और पढ़ें: Excel में एकाधिक वैल्यू Find And Replace करें (6 त्वरित तरीके)
निष्कर्ष
अंत में, इस लेख ने आपको Excel में Find and Replace टूल और VBA मैक्रो के साथ एकाधिक शीट्स और फाइलों में वैल्यू ढूंढने और बदलने के विभिन्न तरीके दिखाए। मुझे उम्मीद है कि यह लेख आपके लिए बहुत फायदेमंद रहा होगा। विषय के संबंध में कोई भी प्रश्न पूछने के लिए स्वतंत्र महसूस करें।
संबंधित लेख
- Excel में डेटा क्लीन-अप तकनीक: सेल्स में टेक्स्ट जोड़ना
- Excel में फॉर्मूला से पहले टेक्स्ट कैसे जोड़ें (4 सरल तरीके)
- Excel में वाइल्डकार्ड का उपयोग करके Find And Replace वैल्यू
- Excel VBA में Substitute फंक्शन का उपयोग कैसे करें (3 उदाहरण)
- Excel में स्पेशल कैरेक्टर कैसे बदलें (6 तरीके)
