快速从Excel中的文本字符串提取电子邮件地址 - 完整指南

在处理导入的数据或混合文本字符串时，您可能需要快速且准确地提取电子邮件地址。无论您是在处理与其它文本混杂的电子邮件地址列表，还是需要从大型数据集中提取电子邮件，都有多种高效的方法可以完成这项任务。本指南将向您介绍从文本字符串中提取电子邮件地址的各种技术，包括使用快速填充、Kutools for Excel、公式、用户定义函数和VBA代码。每种方法根据您的需求和数据复杂性提供不同的优势。

使用快速填充从文本字符串中提取电子邮件地址

Excel的快速填充功能提供了一种快速而有效的方法，可以根据您定义的模式自动格式化或提取数据。在本节中，我们将逐步指导如何使用快速填充从一列混合数据中提取电子邮件地址。当处理包含各种类型文本的列表并且只需要提取电子邮件地址时，这种方法特别有用。

1. 单击相邻列的第一个单元格（例如B2），您希望电子邮件地址出现在那里。
2. 手动输入A列对应行中的电子邮件地址，然后按Enter键。
   例如，如果A2包含“ana varela@gmail.com”，则在B2中输入“ ana varela@gmail.com ”。

   

3. 保持在B3单元格中，按下“Ctrl + E”激活快速填充。
   Excel会自动填充B列其余部分的提取出的电子邮件地址。

   

一键使用Kutools批量提取电子邮件地址

当涉及到从数据集中提取电子邮件地址时，Kutools for Excel的“提取邮箱地址”功能提供了比Excel快速填充更强大的替代方案。虽然快速填充提供了一种手动的模式识别方法，但Kutools for Excel通过一次点击即可自动化该过程，使其成为高效处理大量数据的理想选择。这个工具不仅简化了提取过程，还确保了准确性与速度，特别是在处理复杂或不一致的数据集时。

下载并安装Kutools for Excel后，请按照以下步骤操作：

1. 选择要从中提取电子邮件地址的单元格区域。然后转到选择“Kutools” > “文本” > “提取邮箱地址”。
2. 在弹出的“提取邮箱地址”对话框中，选择一个单元格输出电子邮件地址并单击确定。

   

结果

然后立即提取所选区域每个单元格中的所有电子邮件地址。

使用公式从文本字符串中提取电子邮件地址

在这里我向您介绍一个长公式，用于仅从Excel中的文本中提取电子邮件地址。请按照以下步骤操作：

1. 在相邻的单元格B1中，输入以下公式：

=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ",FIND("@",A1))-1)," ", REPT(" ",LEN(A1))),LEN(A1)))

2. 然后按Enter键，选择单元格B1，并将填充柄拖动到您希望包含此公式的范围。这样就从文本字符串中提取出了范围内的电子邮件地址。参见截图：

注意事项：

1. 电子邮件地址后的标点符号也会被提取出来。

2. 如果单元格中不包含电子邮件地址，公式将显示错误值。

3. 如果一个单元格中有多个电子邮件地址，公式只会提取第一个地址。

使用用户定义函数从文本字符串中提取电子邮件地址

除了上述公式外，用户定义函数也可以帮助您从文本字符串中获取电子邮件地址。

1. 按住“ALT + F11”键，打开“Microsoft Visual Basic for Applications”窗口。

2. 单击“插入” > “模块”，并将以下宏粘贴到模块窗口中。

Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
OutStr = ""
Index = 1
Do While True
    Index1 = VBA.InStr(Index, extractStr, "@")
    getStr = ""
    If Index1 > 0 Then
        For p = Index1 - 1 To 1 Step -1
            If Mid(extractStr, p, 1) Like CheckStr Then
                getStr = Mid(extractStr, p, 1) & getStr
            Else
                Exit For
            End If
        Next
        getStr = getStr & "@"
        For p = Index1 + 1 To Len(extractStr)
            If Mid(extractStr, p, 1) Like CheckStr Then
                getStr = getStr & Mid(extractStr, p, 1)
            Else
                Exit For
            End If
        Next
        Index = Index1 + 1
        If OutStr = "" Then
            OutStr = getStr
        Else
            OutStr = OutStr & Chr(10) & getStr
        End If
    Else
        Exit Do
    End If
Loop
ExtractEmailFun = OutStr
End Function

3. 然后保存代码并在相邻的空白单元格中输入公式 =ExtractEmailFun(A1)，参见截图：

4. 然后按Enter键，选择单元格B1，并将填充柄拖动到您需要公式的范围。这样就从单元格文本中提取出了所有电子邮件地址。参见截图：

注意事项：

1. 如果单元格中没有电子邮件地址，它将显示为空白单元格。

2. 如果一个单元格中有多个电子邮件地址，所有电子邮件都将被提取。

使用VBA代码从文本字符串中提取电子邮件地址

如果上述公式感觉繁琐，以下VBA代码可以帮助您快速提取电子邮件地址。

1. 按住“ALT + F11”键，打开“Microsoft Visual Basic for Applications”窗口。

2. 单击“插入” > “模块”，并将以下宏粘贴到模块窗口中。

VBA：从文本字符串中提取电子邮件地址

Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        extractStr = arr(i, j)
        outStr = ""
        Index = 1
        Do While True
            Index1 = VBA.InStr(Index, extractStr, "@")
            getStr = ""
            If Index1 > 0 Then
                For p = Index1 - 1 To 1 Step -1
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = Mid(extractStr, p, 1) & getStr
                    Else
                        Exit For
                    End If
                Next
                getStr = getStr & "@"
                For p = Index1 + 1 To Len(extractStr)
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = getStr & Mid(extractStr, p, 1)
                    Else
                        Exit For
                    End If
                Next
                Index = Index1 + 1
                If outStr = "" Then
                    outStr = getStr
                Else
                    outStr = outStr & Chr(10) & getStr
                End If
            Else
                Exit Do
            End If
        Loop
        arr(i, j) = outStr
    Next
Next
WorkRng.Value = arr
End Sub

3. 然后按F5键运行此代码，您应该在弹出的对话框中选择要使用VBA的范围，参见截图：

4. 然后单击确定，电子邮件地址已从选定的文本字符串中提取出来。参见截图：

注意事项：

1. 如果单元格中没有电子邮件地址，它将显示为空白单元格。

2. 如果一个单元格中有多个电子邮件地址，所有电子邮件都将被提取。

3. 提取的电子邮件将覆盖原始数据，因此建议先备份您的数据。

演示：使用Kutools for Excel从文本字符串中提取电子邮件地址

相关文章：

如何在Excel中从多个电子邮件地址中提取域名？