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

如何在 Excel 中从姓名单元格中去除称谓？

作者晓阳修改日期

在日常办公或数据清洗任务中，您经常会遇到 Excel 列表中每个人的姓名前都带有称谓（如 Mr、Miss、Mrs 等）。为准备营销活动、生成报告或仅是为了标准化数据集，您可能需要移除这些称谓，仅保留真实姓名。例如，将 Mr. John Smith 转换为 John Smith，并快速应用于整列数据。在 Excel 中高效完成此操作，可显著节省手动处理时间，尤其在处理大规模数据集或称谓格式不一致时更显优势！

显示包含称谓的原始姓名和已移除称谓的姓名的截图

从姓名公式中移除称谓
使用 VBA 宏批量移除称谓
使用 Excel 的快速填充功能移除称谓
使用公式将称谓与姓名拆分到不同列

从姓名公式中移除称谓

使用 Excel 公式是从姓名单元格中移除称谓的直接方法。此方案最适合所有姓名均采用统一格式的情况——即称谓位于最前，后接一个空格，再跟人员的全名。该方法执行迅速，无需额外加载项，适用于中小型列表，但在处理更复杂的变体（如多词称谓或格式不一致）时可能力不从心。

要从姓名单元格中移除称谓，请执行以下步骤：

1. 在紧邻您名称列表的空白单元格中（假设您的数据从 A2 单元格开始），输入以下公式：

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

该公式可定位单元格中的第一个空格，并提取其右侧的全部文本，从而高效去除称谓。

2. 按 Enter 确认公式，然后向下拖动填充柄（单元格右下角的小方块），即可将公式快速填充至所有目标单元格。

使用公式获取不含称谓的姓名的截图

提示与注意事项：如果某些姓名不含称谓（即开头无空格），该公式可能会出错。应用此方法前，请先检查您的数据是否存在不一致的情况。

使用 VBA 宏批量移除称谓

对于大型数据集，或当称谓格式不一致、长度不一时，使用 VBA 宏是一种高效解决方案。借助 VBA，您可一次性批量清除多种称谓，尤其适用于清理大型邮件列表、人力资源数据库，或任何不适合手动套用公式的情境。

以下是一个示例 VBA 脚本，可轻松从所选区域中每个姓名的开头移除常见称谓（如 Mr、Ms、Mrs、Dr、Prof、Miss）。您还可方便地扩展该列表，以包含其他头衔。

1. 点击开发工具选项卡中的 Visual Basic，以打开 VBA 编辑器。在 VBA 编辑器中，依次点击插入> 模块，并将以下代码粘贴到模块窗口中：

Sub RemoveSalutationBulk()
    Dim WorkRng As Range
    Dim Rng As Range
    Dim cellValue As String
    Dim arrSalutations As Variant
    Dim i As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the range to remove salutations from:", xTitleId, WorkRng.Address, Type:=8)
    
    arrSalutations = Array("Mr. ", "Mr ", "Mrs. ", "Mrs ", "Ms. ", "Ms ", "Miss ", "Dr. ", "Dr ", "Prof. ", "Prof ")
    
    For Each Rng In WorkRng
        cellValue = Rng.Value
        For i = LBound(arrSalutations) To UBound(arrSalutations)
            If InStr(1, cellValue, arrSalutations(i), vbTextCompare) = 1 Then
                cellValue = Mid(cellValue, Len(arrSalutations(i)) + 1)
                Exit For
            End If
        Next i
        Rng.Value = cellValue
    Next Rng
End Sub

2. 按 F5 键或点击运行按钮 运行按钮即可执行代码。此时将弹出对话框，提示您选择包含待处理姓名的区域——选中相应单元格后，点击确定。

注意：此宏仅会移除位于单元格开头的称谓（不区分大小写）。如果某些姓名包含不常见的头衔，您可在代码的 arrSalutations 数组中添加这些头衔。在使用 VBA 执行批量操作前，请务必备份数据，以防意外更改。

使用 Excel 的快速填充功能移除称谓

从 Excel 2013 起，快速填充功能可智能识别并应用数据模式，轻松剥离称谓。这一方法直观高效，特别适合偏好可视化、交互式操作且数据结构相对规整的用户。若您的数据量不大，且称谓与姓名之间存在清晰、重复的模式，快速填充尤为理想；但在数据高度不规则或存在大量不一致的情况下，效果可能不尽如人意。

1. 在姓名旁新建一列，并在第一个数据单元格旁边的单元格中输入不含称谓的姓名（例如，若 A2 为“Mr. John Smith”，则在 B2 中输入“John Smith”）。

2. 在 B3 单元格中输入下一个值。当 Excel 识别出模式后（通常只需输入 1-2 个条目），即可基于您的示例自动填充剩余单元格。

3. 只需按 Enter 键接受建议，快速填充即可自动完成整列，为您一键移除所有称谓。

如果快速填充未自动出现，您可以手动激活：点击最后一个条目下方的单元格，然后点击数据 > 快速填充，或使用快捷键 Ctrl+E。

提示：快速填充对数据不一致性较为敏感，请仔细核对结果，尤其是当部分姓名格式不符合预期时。该功能不会自动更新——若原始姓名发生更改，需重新执行快速填充操作。

优势：无需记忆公式，操作直观，轻松应对具有明显模式的列表。
局限性：不适用于超大数据集或格式不统一的数据，且仅支持 Excel 2013 及更高版本。

使用公式将称谓与姓名拆分到不同列

如果您希望将称谓与姓名分别放入两列，而非简单地删除称谓，Excel 公式同样可以轻松实现。此方法尤其适用于需要保留称谓以用于报告或其他用途的场景，例如个性化沟通或按头衔分组。当数据始终使用单一固定分隔符（如空格）分隔称谓与姓名时，这些公式效果最佳。

1. 要提取称谓，请在空白单元格中（例如，若姓名在 A 列，则在 C2）输入以下公式：

=LEFT(A2, FIND(" ",A2)-1)

此公式提取第一个空格左侧的文本，轻松分离出称谓。

向下拖动填充柄，将公式复制到其他行，所有称谓便会显示在新列中：

使用公式从给定姓名中提取称谓的截图

2. 要仅提取姓名，请在下一空白列（例如 D2）中输入以下公式：

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

该公式可提取第一个空格后的全部文本，即真实姓名。同样，请向下拖动填充柄以填充其余行。

使用另一个公式从给定姓名中提取姓名的截图

提示：您可以根据实际数据位置调整公式中的列引用（如 A2 等）。若姓名字段为空或格式不符合预期，公式可能出错，请务必留意。

最佳办公效率工具

🤖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 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱