MS Excel macro - find Replace a log list of items
18 views
Skip to first unread message
V S Rawat
Sep 9, 2021, 1:36:33 AM9/9/21
to th
नीचे दिए लिंक पर एक एक्सेल मैक्रो (वीबीए) दे रखा है जो आपके डेटा में एक
लम्बी लिस्ट से आइटम-दर-आइटम को उसके बगल में लिखे आइटम से बदल देगा
मान लीजिए कि आपका कई-रोज़-कॉलम्स में डेटा है जिसमें आपको कई चीजें बदलनी
हैं, रिप्लेस से बदलने में बहुत टाइम लगेगा।
आप फ़ाइण्ड रिप्लेस की टेबल बना लीजिए, एक्सेल की उसी शीट में किसी सुरक्षित
अलग जगह पर जिसमें पहले कॉलम में फ़ाइण्ड वाला आइटम दिया हो, और उसके राइट
में जिससे रिप्लेस करना है वो आइटम लिखा हो।
फिर इस माइक्रो को चलाएँगे तो एक्सेल पहले आपका डेटा रैंज पूछेगा जिसमें
बदलना है, और फिर ऊपर वाली टेबल का पूछेगा। दोनों देने पर एक्सेल एक एक
करके इन आइटम्स को बदल देगा।
मेरी ट्रान्सलेशन मेमोरी में हिन्दी-अंग्रेज़ी के अंक मिश्रित थे, तो मैं
पहले कॉलम में 10 हिन्दी अंक, और उसके बगल में उनका अंग्रेज़ी अंक लिख दिया।
इस मैक्रो को चलाया और इसने दसियों हज़ारों कॉलम्स में कुछ सेकण्ड में एकदम सटीक बदल दिया।
धन्यवाद।
रावत
https://basicexceltutorial.com/find/find-and-replace-using-multiple-values
Find and Replace Using Multiple Values
Sub MultiFindNReplace()
'Update 20140722
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
लम्बी लिस्ट से आइटम-दर-आइटम को उसके बगल में लिखे आइटम से बदल देगा
मान लीजिए कि आपका कई-रोज़-कॉलम्स में डेटा है जिसमें आपको कई चीजें बदलनी
हैं, रिप्लेस से बदलने में बहुत टाइम लगेगा।
आप फ़ाइण्ड रिप्लेस की टेबल बना लीजिए, एक्सेल की उसी शीट में किसी सुरक्षित
अलग जगह पर जिसमें पहले कॉलम में फ़ाइण्ड वाला आइटम दिया हो, और उसके राइट
में जिससे रिप्लेस करना है वो आइटम लिखा हो।
फिर इस माइक्रो को चलाएँगे तो एक्सेल पहले आपका डेटा रैंज पूछेगा जिसमें
बदलना है, और फिर ऊपर वाली टेबल का पूछेगा। दोनों देने पर एक्सेल एक एक
करके इन आइटम्स को बदल देगा।
मेरी ट्रान्सलेशन मेमोरी में हिन्दी-अंग्रेज़ी के अंक मिश्रित थे, तो मैं
पहले कॉलम में 10 हिन्दी अंक, और उसके बगल में उनका अंग्रेज़ी अंक लिख दिया।
इस मैक्रो को चलाया और इसने दसियों हज़ारों कॉलम्स में कुछ सेकण्ड में एकदम सटीक बदल दिया।
धन्यवाद।
रावत
https://basicexceltutorial.com/find/find-and-replace-using-multiple-values
Find and Replace Using Multiple Values
Sub MultiFindNReplace()
'Update 20140722
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
हरिराम पंसारी
Oct 2, 2021, 10:26:07 AM10/2/21
to technic...@googlegroups.com
रावत जी,
क्या इस मैक्रो को MS Word में किसी लंबे पाठ में find and replace के लिए प्रयोग किया जा सकता है?
या
MS word में लंबे पाठ में किसी Excel sheet में दर्ज पहले कॉलम के टेक्स्ट को दूसरे कॉलम के टेक्स्ट से बदलने के लिए को मैक्रो बनाकर देने की मदद कर सकें तो आभारी रहेंगे।
MS word में लंबे पाठ में किसी Excel sheet में दर्ज पहले कॉलम के टेक्स्ट को दूसरे कॉलम के टेक्स्ट से बदलने के लिए को मैक्रो बनाकर देने की मदद कर सकें तो आभारी रहेंगे।
सादर।
--
आपको यह संदेश इसलिए मिला, क्योंकि आपने Google समूह "Scientific and Technical Hindi (वैज्ञानिक तथा तकनीकी हिन्दी)" समूह की सदस्यता ली है.
इस समूह की सदस्यता खत्म करने और इससे ईमेल पाना बंद करने के लिए, technical-hin...@googlegroups.com को ईमेल भेजें.
वेब पर इस चर्चा को देखने के लिए https://groups.google.com/d/msgid/technical-hindi/03f9c408-bc43-2a96-d62e-d9d1b3af9a9f%40gmail.com पर जाएं.
Reply all
Reply to author
Forward
0 new messages