跳至主要内容

Kutools for Office — 一套工具，五种功能。事半功倍。

如何在Excel中提取第二个空格或逗号之前/之后的文本？ 

Author Xiaoyang Last modified

在Excel中处理文本数据时，您可能会经常遇到包含多个空格、逗号或其他分隔符的字符串。虽然Excel中的“文本到列”功能可以基于选定的分隔符将单元格的内容拆分为单独的列，但有时您需要更具体的解决方案——例如提取单元格中第二个空格或逗号之前或之后的所有内容。本文概述了几种实用的方法来实现这一点，包括针对第二个空格/逗号之前或之后的文本的公式，使用VBA宏进行自动化或处理较大数据集的强大解决方案，以及使用Power Query进行高级数据预处理的多功能选项。

a screenshot of the original text string and the two segments separated by the second space

使用公式提取第二个空格或逗号之前的文本

使用公式提取第二个空格或逗号之后的文本

使用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)))

这种方法对于一次性提取或处理中等大小的数据集快速高效。然而，如果文本高度不规则或分隔符的数量在不同行之间变化很大，则可能需要额外的公式调整。同时，请注意多余的空格或空单元格，这可能会影响结果。在应用于关键数据时，请始终仔细检查输出。

a screenshot of kutools for excel ai

使用 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. 粘贴代码后，点击 Run button 运行 按钮，或按 F5 执行。对话框将提示您选择数据范围，然后输入分隔符，指定是否要在第二次出现之前或之后提取文本，并最后选择一个单元格以输出结果。该宏将在您指定的单元格中输出提取的结果。

最佳Office办公效率工具

🤖 Kutools AI 助手：以智能执行为基础，彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
热门功能：查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
高级LOOKUP：多条件VLookup|多值VLookup|多表查找|模糊查找……
高级下拉列表：快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
列管理器： 添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
特色功能：网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库（自动文本） | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选（筛选粗体/倾斜/删除线等）……
15大工具集：12项 文本工具（添加文本、删除特定字符等）|50+种 图表 类型（甘特图等）|40+实用 公式（基于生日计算年龄等）|19项 插入工具（插入二维码、从路径插入图片等）|12项 转换工具（小写金额转大写、汇率转换等）|7项 合并与分割工具（高级合并行、分割单元格等）| ……
Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言！

通过Kutools for Excel提升您的Excel技能，体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能，助您提升效率并节省时间。 点击此处获取您最需要的功能……

Office Tab为Office带来多标签界面，让您的工作更加轻松

  • 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读。
  • 在同一个窗口的新标签页中打开和创建多个文档，而不是分多个窗口。
  • 可提升50%的工作效率，每天为您减少数百次鼠标点击！

所有Kutools加载项，一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件，以及Office Tab Pro，非常适合跨Office应用团队使用。

Excel Word Outlook Tabs PowerPoint
  • 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
  • 单一安装包、单一授权——数分钟即可完成设置（支持MSI）
  • 协同更高效——提升Office应用间的整体工作效率
  • 30天全功能试用——无需注册，无需信用卡
  • 超高性价比——比单独购买更实惠