您是否有一个工作表,其中包含一堆电子邮件地址,以及一系列的超链接?如果是这样,您可能会对提取这些地址并将其作为纯文本放入单元格的方法感兴趣。您可以通过几种方法执行此任务。

第一种方法是记住电子邮件地址的超链接都以文本“ 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)

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(2897)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: