آیا یک کاربرگ دارید که دارای یک سری آدرس ایمیل به عنوان یک سری لینک باشد؟ اگر چنین است، ممکن است به راهی برای بیرون کشیدن آن آدرس ها و قرار دادن آنها در سلول ها به عنوان متن ساده علاقه داشته باشید. چند راه برای انجام این کار وجود دارد.
روش اول این است که به یاد داشته باشید که پیوندهای آدرس های ایمیل همه با متن "mailto" و سپس یک دونقطه شروع می شوند. بنابراین، می توانید از فرمولی استفاده کنید که قسمت اول هایپرلینک را حذف می کند. به عنوان مثال، اگر لینک ایمیل در سلول A1 باشد، می توانید از این فرمول استفاده کنید:
=RIGHT(A1,LEN(A1)-7)
این طول محتویات سلول را بررسی می کند و سپس همه آن را به جز هفت کاراکتر اول که قسمت "mailto:" است، استخراج می کند. همچنین می توانید از فرمولی استفاده کنید که بر تابع SUBSTITUTE متکی است:
=SUBSTITUTE(A1,"mailto:","")
اگر ترجیح می دهید، می توانید از یک ماکرو برای انجام تبدیل از لینک به آدرس ایمیل فقط متنی استفاده کنید. ماکرو تک خطی زیر یک تابع تعریف شده توسط کاربر است که لینک تبدیل شده را برمی گرداند:
Function ExtractEmailAddress(rCell As Range)
ExtractEmailAddress = _
Mid(rCell.Hyperlinks(1).Address, 8)
End Function
برای استفاده از ماکرو، تنها کاری که باید انجام دهید این است که از تابع در برخی از سلول های کاربرگ خود به این صورت استفاده کنید:
=ExtractEmailAddress(A1)
