एक्सेल स्प्रेडशीट पर ईमेल एड्रेस कैसे निकालें

एक एक्सेल ईमेल पता सूची में खुद के पते के अलावा कुछ नहीं होना चाहिए। फिर भी यदि स्प्रैडशीट ने बाहरी रूप से अपना डेटा प्राप्त किया, तो कॉलम में अप्रासंगिक पाठ हो सकता है। एक सेल "मेरा पता [email protected] है, " पढ़ सकता है और दूसरा "[email protected] पर संपर्क" कह सकता है। आप ईमेल पतों को एक नए कॉलम में निकाल सकते हैं ताकि एक्सेल उन्हें मेल मर्ज जैसे अनुप्रयोगों के लिए उपयोग कर सके। ऐसा करने का एक तरीका विजुअल बेसिक स्क्रिप्ट लिखना है।
फ़ंक्शन लिखें
1।
Excel का Visual Basic Editor खोलने के लिए "Alt" और "F11" कुंजियों को दबाएँ।
2।
नया फ़ंक्शन खोलने के लिए निम्न कोड टाइप करें:
स्ट्रिंग के रूप में समारोह ExtractCellEmail (सेल रेंज के रूप में)
3।
दिए गए सेल से सभी पाठ निकालने के लिए निम्न कोड जोड़ें:
स्ट्रिंग सामग्री के रूप में मंद सामग्री = cell.Text
4।
पाठ में "@" प्रतीक की स्थिति की पहचान करने के लिए निम्नलिखित कोड जोड़ें:
AtPosition = InStr (1, सामग्री, "@")
5।
"@" प्रतीक की स्थिति का उपयोग करके ईमेल पते की शुरुआत और अंत की स्थिति की पहचान करने के लिए निम्नलिखित दो पंक्तियों को जोड़ें:
AddressStartingPosition = InStrRev (सामग्री, "", AtPosition) AddressEndingPosition = InStr (AtPosition, सामग्री, "")
6।
आरंभ और समाप्ति स्थितियों का उपयोग करके ईमेल पता निकालने के लिए निम्नलिखित पंक्ति जोड़ें:
emailAddress = ट्रिम (मध्य (सामग्री, AddressStartingPosition, AddressEndingPosition - AddressStartingPosition))
7।
निकाले गए पते को आसन्न कक्ष में मुद्रित करने के लिए निम्न पंक्ति जोड़ें:
ActiveCell.Offset (0, 1)। ईमेल = ईमेल करें
8।
फ़ंक्शन को बंद करने के लिए निम्न कोड टाइप करें:
अंत समारोह
सेल रेंज में फ़ंक्शन लागू करें
1।
नया मैक्रो खोलने के लिए फ़ंक्शन के बाद निम्न कोड टाइप करें:
उप mcrExtractColumnAddresses ()
2।
लूप खोलने के लिए निम्न कोड टाइप करें:
करना
3।
आपके द्वारा लिखे गए फ़ंक्शन को कॉल करने के लिए लूप लाइन के बाद निम्न कोड टाइप करें:
ExtractEmails (ActiveCell) को कॉल करें
4।
कॉलम में अगली सेल का चयन करने के लिए पिछली पंक्ति के बाद निम्न कोड टाइप करें:
ActiveCell.Offset (1, 0)। चयन करें
5।
लूप बंद करने के लिए निम्न पंक्ति जोड़ें:
IsEmpty (ActiveCell) तक लूप
6।
मैक्रो बंद करने के लिए निम्न कोड जोड़ें:
अंत उप
7।
स्प्रेडशीट विंडो पर स्विच करें।
8।
पहला सेल चुनें जिसका ईमेल पता आप निकालना चाहते हैं।
9।
Visual Basic विंडो पर वापस जाएँ। यदि यह पहले से ही नहीं है, तो mcrExtractColumnAddresses () ब्लॉक में माउस कर्सर रखें।
10।
मैक्रो को चलाने और मेल पतों को निकालने के लिए "F5" कुंजी दबाएं।
चेतावनी
- यह प्रक्रिया तब तक काम करती है जब तक कि ईमेल पते में केवल "@" प्रतीक ही न हों। आप सुरक्षित रूप से मान सकते हैं कि यह अधिकांश कोशिकाओं के लिए सही होगा, लेकिन किसी भी त्रुटि को मैन्युअल रूप से पकड़ने के लिए निकाले गए ईमेल पतों की सूची के माध्यम से स्क्रॉल करने पर विचार करें।