如何在Excel中提取第二個空格或逗號之前/之後的文字？

在Excel中處理文字資料時，您可能會經常遇到包含多個空格、逗號或其他分隔符的字串。雖然Excel中的「文字轉欄」功能可以根據選擇的分隔符將單元格內容拆分到不同的欄位中，但有時候您需要更特定的解決方案——例如提取單元格中第二個空格或逗號之前或之後的所有內容。本文概述了幾種實用的方法來完成此操作，包括針對第二個空格/逗號前後文字的公式、使用VBA宏進行自動化或處理大型數據集的強大解決方案，以及使用Power Query進行高級數據預處理的多功能選項。

使用公式提取第二個空格或逗號之前的文字

使用公式提取第二個空格或逗號之後的文字

使用VBA代碼提取第二個分隔符（空格/逗號）之前或之後的文字

使用公式提取第二個空格或逗號之前的文字

如果您想分離出出現在第二個空格之前的單元格部分，您可以結合使用Excel函數。

1. 在您希望顯示結果的空白單元格中輸入以下公式（例如，C2單元格）：

=IF(ISERROR(FIND(" ",A2,FIND(" ",A2,1)+1)),A2,LEFT(A2,FIND(" ",A2,FIND(" ",A2,1)+1)))

2. 按下Enter鍵。然後使用填充柄將公式向下拖動以處理所有需要的行。結果將顯示每行對應的第二個空格之前的所有文字——請參見下面的截圖：

=IF(ISERROR(FIND(",",A2,FIND(",",A2,1)+1)),A2,LEFT(A2,FIND(",",A2,FIND(",",A2,1)+1)))

這種方法對於一次性提取或處理中等大小的數據集快速且高效。然而，如果文字高度不規則或行之間的分隔符數量差異很大，則可能需要進行額外的公式調整。此外，請注意額外的空格或空單元格，這可能會影響結果。在應用於關鍵數據時，請始終仔細檢查輸出。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

使用公式提取第二個空格或逗號之後的文字

要提取出出現在單元格中第二個空格分隔符之後的文字，您可以一起使用MID和FIND函數。

1. 將以下公式輸入目標單元格（例如，D2單元格）：

=MID(A2, FIND(" ", A2, FIND(" ", A2)+1)+1,256)

2. 按下Enter鍵。將填充柄向下拖動以處理所有需要提取的行。這將呈現每行第二個空格之後的所有內容，如截圖所示：

=MID(A2, FIND(",", A2, FIND(",", A2)+1)+1,256)

使用VBA代碼提取第二個分隔符（空格/逗號）之前或之後的文字

對於大型數據集、重複提取或自動化場景，使用VBA宏是一個有效的解決方案。VBA允許您提取第二個空格、逗號或任何其他分隔符之前或之後的文字——在處理不同數據結構或需要可重複例程時提高效率。

1. 選擇開發工具 > Visual Basic。在彈出的Microsoft Visual Basic for Applications窗口中，點擊插入 > 模塊，並將以下代碼輸入到模塊窗口中：

Sub ExtractTextSecondDelimiter()
    Dim rng As Range
    Dim cell As Range
    Dim sep As String
    Dim direction As String
    Dim arr As Variant
    Dim result As String
    Dim pos1 As Long
    Dim pos2 As Long
    Dim xTitleId As String
    Dim outputCell As Range
    Dim i As Long
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set rng = Application.Selection
    Set rng = Application.InputBox("Select text range to extract from", xTitleId, rng.Address, Type:=8)
    If rng Is Nothing Then Exit Sub
    sep = Application.InputBox("Enter delimiter (e.g. space or comma)", xTitleId, " ", Type:=2)
    If sep = "" Then Exit Sub
    direction = Application.InputBox("Type 'before' for text before, 'after' for text after the 2nd delimiter", xTitleId, "before", Type:=2)
    If direction = "" Then Exit Sub
    Set outputCell = Application.InputBox("Select the first cell to output the result", xTitleId, Type:=8)
    If outputCell Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    i = 0
    For Each cell In rng
        If Not IsEmpty(cell.Value) Then
            pos1 = InStr(1, cell.Value, sep)
            If pos1 > 0 Then
                pos2 = InStr(pos1 + 1, cell.Value, sep)
                If pos2 > 0 Then
                    If LCase(direction) = "before" Then
                        result = Left(cell.Value, pos2 - 1)
                    ElseIf LCase(direction) = "after" Then
                        result = Mid(cell.Value, pos2 + Len(sep))
                    Else
                        result = cell.Value
                    End If
                Else
                    result = cell.Value
                End If
            Else
                result = cell.Value
            End If
            outputCell.Offset(i, 0).Value = result
        End If
        i = i + 1
    Next
    Application.ScreenUpdating = True
    MsgBox "Extraction completed.", vbInformation, xTitleId
End Sub

2粘貼代碼後，點擊 運行 按鈕，或按下 F5 執行。一個對話框將提示您選擇數據範圍，然後輸入分隔符，指定您希望提取的是第二個出現的分隔符之前的文字還是之後的文字，最後選擇一個單元格輸出結果。該宏將在您指定的單元格中輸出提取的結果。