KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何从单元格的文本字符串中删除第一个或最后一个单词？

作者晓阳修改日期

在日常 Excel 工作中，经常需要管理列表或句子并清理文本数据。一项常见任务是从单元格内的文本字符串中删除第一个或最后一个单词——例如，您可能有一列全名或详细描述，但为了分析，只需保留除首词或末词之外的内容。如下图所示，Excel 本身并未提供直接执行此操作的内置功能，但您可以通过公式、Excel 内置功能或 VBA 代码高效实现这一目标。本指南为您介绍多种实用解决方案，助您根据不同场景灵活选择最合适的方法。

一张截图，显示原始文本字符串和删除第一个或最后一个单词后的结果文本字符串

目录：

使用公式从文本字符串中删除第一个或最后一个单词

使用 Excel 公式提供了一种无需编码的直接方式，轻松删除单元格中的第一个或最后一个单词。当原文本发生变化时，该方法能自动更新结果，尤其适合需要动态处理的场景。但请注意：这些公式假设单词之间仅以单个空格分隔，且文本不含前导空格、尾随空格或连续多个空格。在应用这些解决方案前，请务必确认您的数据是否符合上述间距要求。

从文本字符串中删除第一个单词：

1. 请将此公式输入到您希望显示结果的空白单元格中（例如 B2 单元格）：

=RIGHT(A2,LEN(A2)-FIND(" ",A2))

此处，A2 是包含您原文本字符串的单元格。该公式可定位第一个空格，删除首个单词及其后的空格，仅返回剩余文本。

一张截图，展示如何使用公式从文本字符串中删除第一个单词

2. 确认公式后，向下拖动填充柄即可将其应用到列中的其他单元格。您会发现每个文本字符串的第一个单词已被删除，如下所示：

一张截图，显示所有已删除第一个单词的文本字符串

提示：如果您的文本开头可能存在多余空格（前面的空格），建议在应用上述公式前使用 TRIM 函数清理数据，例如：

=RIGHT(TRIM(A2),LEN(TRIM(A2))-FIND(" ",TRIM(A2)))

这样即使某些单元格的间距不一致，公式依然能保持准确。

从文本字符串中删除最后一个单词：

要从单元格中删除最后一个单词，请使用以下公式，并将其输入到 B2 等单元格中：

=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)

该公式通过查找最后一个空格的位置，并提取其前所有文本来实现功能。请确保单词之间没有多余空格，否则请如上所述使用 TRIM 函数。输入公式后，拖动填充柄即可将其应用到所需行数。列中所有内容的最后一个单词将被删除，如下所示：

一张截图，展示如何使用公式从文本字符串中删除最后一个单词

错误提醒：如果单元格仅包含一个单词且不含空格，这些公式将返回错误或空白值。若您的数据可能存在此类情况，建议使用 IFERROR 函数包裹公式以避免出错，例如：

=IFERROR(RIGHT(A2,LEN(A2)-FIND(" ",A2)),"")

使用“文本分列”功能删除第一个或最后一个单词（Excel 内置方法）

在某些情况下，尤其是处理较短或静态数据集时，Excel 内置的文本分列功能可提供一种直观、可视化的单词拆分方式。当您需要快速将文本字符串中的所有单词拆分为多列，并选择性地重新组合（例如排除第一个或最后一个单词）时，此方法尤为理想。尽管它不像公式那样在源单元格内容更改时自动更新（非动态），但对于一次性数据清理任务却非常便捷。

步骤：

  • 1. 选择包含待拆分文本数据的列。
  • 2. 转到数据选项卡，然后单击文本分列。
  • 3. 在向导中，选择分隔符号，然后点击下一步。
  • 4. 仅勾选空格分隔符，然后点击下一步。
  • 5. 选择分割数据的目标位置，然后单击完成。
  • 6. 拆分后，各列将填充每个单元格中的独立单词。要删除第一个单词，只需使用 CONCATENATE 或 TEXTJOIN（如果可用）重新组合除第一列外的所有列；同理，要删除最后一个单词，请组合除最后一列外的所有列。

您可以使用如下公式（假设您的分割数据现在位于 B、C、D 列中）：

=CONCATENATE(C2," ",D2)

如果您需要合并许多列，且使用的是 Excel 2016 或更高版本，请使用：

=TEXTJOIN(" ",TRUE,C2:E2)

注意事项：文本分列方法若操作不慎，会覆盖所选区域右侧的现有数据。请务必确保相邻列为**空**，或先将数据复制到空白区域以保障安全。此方法最适合快速手动处理，不适用于自动化更新。

适用场景分析：适用于对短列表进行快速手动操作，或需直观查看并即时修正结果的场景；不适用于需自动处理的大型动态数据集。

使用 VBA 宏从文本字符串中删除第一个或最后一个单词

对于更高级或重复性的批量操作（例如清理大型数据集、自动化删除或处理复杂场景），VBA 宏极为高效。借助 VBA，您只需轻点几下，即可轻松为整个单元格区域一键删除首个或末尾单词。运行宏前，请务必确保您的数据中不含异常空格或特殊不间断空格，以免影响拆分的准确性。

如何使用此 VBA 代码：

1. 单击开发工具 > Visual Basic，打开 Microsoft Visual Basic for Applications 编辑器。在新窗口中，单击插入 > 模块，并将以下任一代码粘贴到模块中。

从选定单元格中删除第一个单词：

Sub RemoveFirstWord()
    Dim WorkRng As Range
    Dim Rng As Range
    Dim arr As Variant
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select range to remove first word", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If InStr(Rng.Value, " ") > 0 Then
            arr = Split(Rng.Value, " ")
            Rng.Value = Mid(Rng.Value, InStr(Rng.Value, " ") + 1)
        End If
    Next
End Sub

2. 按 F5 或单击运行以执行代码。宏将弹出一个对话框，供您选择要处理的单元格。单击确定后，宏将立即更新所选单元格，删除其中的第一个单词。

从选定单元格中删除最后一个单词：

要删除选定单元格中的最后一个单词，请使用以下 VBA 代码。

Sub RemoveLastWord()
    Dim WorkRng As Range
    Dim Rng As Range
    Dim arr As Variant
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select range to remove last word", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If InStr(Rng.Value, " ") > 0 Then
            arr = Split(Rng.Value, " ")
            Rng.Value = Left(Rng.Value, Len(Rng.Value) - Len(arr(UBound(arr))) - 1)
        End If
    Next
End Sub

注意事项：这些宏仅删除所选单元格中以空格分隔的第一个或最后一个单词。若单元格仅含一个单词（无空格），则保持不变。运行 VBA 代码前，请务必备份数据或保存工作簿，因为更改不可撤销。

优势：VBA 能够快速批量处理数据，在自动化重复性清理任务（尤其是处理大型数据表时）方面极为高效。

故障排除：若遇到“运行时错误”提示，请确保所选区域中的所有值均为文本格式——空白单元格或错误单元格可能导致宏跳过甚至停止运行。

无论您选择哪种方法——公式、分列功能还是 VBA，都建议始终检查结果的数据一致性，尤其是在文本可能包含多余空格、标点符号或意外词序的情况下。只要条件允许，请务必备份原始数据，特别是在执行批量编辑或使用不熟悉的宏时。如果您需要更灵活、更强大的解决方案来清理或拆分 Excel 中的文本，Kutools for Excel 提供了一套全面的工具，轻松应对各种文本拆分与格式设置挑战，无需复杂的公式或代码。

按特定分隔符将单元格内容拆分为多列和多行：

使用 Kutools for Excel 的分割单元格工具，即可根据空格、逗号、换行符或您指定的任意分隔符，快速将单元格中的文本拆分为多列或多行。

一张截图，展示如何使用 Kutools for Excel 通过特定分隔符轻松将单元格拆分为多行或多列

Kutools for Excel：包含 300 多个实用 Excel 加载项，30 天内免费试用，无任何限制。立即下载并免费试用！

相关文章：

如何在 Excel 中删除文本的首字符、末尾字符或特定字符？

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 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、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱