從 Excel 中的文字字串快速提取電子郵件地址 - 完整指南

在 Excel 中處理匯入的資料或混合文字字串時，您可能會發現自己需要快速且準確地提取電子郵件地址。無論您是使用與其他文字混合的電子郵件地址列表，還是需要從大型資料集中提取電子郵件，都有多種有效的方法可以完成這項工作。本指南將引導您了解從文字字串中提取電子郵件地址的各種技術，包括使用快速填充、Kutools for Excel、公式、使用者定義函數和 VBA 程式碼。根據您的需求和資料的複雜性，每種方法都有不同的優點。

使用快速填充從文字字串中提取電子郵件地址

Excel的 Flash填充 該功能提供了一種快速有效的方法來根據您定義的模式自動格式化或提取資料。在本部分中，我們將介紹如何使用快速填充從混合資料列中提取電子郵件地址。當處理包含各種類型文字的清單並且您只需要提取電子郵件地址時，此方法特別有用。

1. 按一下相鄰列中的第一個儲存格（例如， B2) 您希望電子郵件地址出現的位置。
2. 手動鍵入 A 列中對應行的電子郵件地址，然後按 Enter.
   例如，如果 A2 包含“安娜·瓦雷拉@gmail.com，“ 類型 ” 安娜·瓦雷拉@gmail.com ”進入B2。

   

3. 留在儲存格 B3 中，按 按Ctrl + 埃特Ø 激活 Flash填充.
   Excel 將自動使用擷取的電子郵件地址填入 B 列的其餘部分。

   

一鍵點擊即可使用 Kutools 從文字字串中批次提取電子郵件地址

當涉及從資料集中提取電子郵件地址時， Excel的Kutools“ 提取電子郵件地址 功能提供了 Excel 快速填充的強大替代方案。雖然快速填充提供了一種手動模式識別方法，但 Kutools for Excel 只需單擊即可自動執行該過程，使其成為高效處理大量資料的理想選擇。該工具不僅簡化了提取過程，還確保了準確性和速度，特別是在處理複雜或不一致的資料集時。

下載並安裝 Kutools for Excel 後，請執行以下操作：

1. 選擇要從中提取電子郵件地址的儲存格範圍。然後去選擇 庫工具 > 文本 > 提取電子郵件地址
2. 在彈出 提取電子郵件地址 在對話方塊中，選擇一個儲存格來輸出電子郵件地址，然後按一下 OK

   

結果

然後立即提取所選範圍的每個儲存格中的所有電子郵件地址。

使用公式從文本字符串中提取電子郵件地址

在這裡，我向您介紹一個很長的公式，僅從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。 然後點擊 OK，並且已從所選文本字符串中提取電子郵件地址。 查看屏幕截圖：

注意：

1.如果單元格沒有電子郵件地址，它將顯示空白單元格。

2.如果一個單元中有多個電子郵件地址，則將提取所有電子郵件。

3.提取的電子郵件將覆蓋原始數據，因此，如果需要，最好先備份數據。

演示：使用Kutools for Excel從文本字符串中提取電子郵件地址

相關文章：

如何從Excel中的多個電子郵件地址中提取域？