跳至主要内容

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

如何从Excel中的名字单元格中删除称谓?

Author Xiaoyang Last modified

在日常办公或数据清洗任务中,您可能会经常遇到Excel列表中每个人的名字前都带有称谓的情况,例如先生、小姐、夫人等。为了准备营销活动、生成报告或简单地标准化您的数据集,您可能需要删除这些称谓并仅保留实际的名字。例如,将“张先生”转换为“张”在整个数据列中。在Excel中高效实现这一点可以节省大量手动工作,尤其是在处理大规模数据集或称谓格式不一致时。

a screenshot showing the original names with salutation and the names with salutation removed

使用公式从名字单元格中删除称谓
使用VBA宏批量删除称谓
使用Excel的快速填充功能删除称谓
使用公式将称谓和名字拆分到不同的列


使用公式从名字单元格中删除称谓

使用Excel公式是从名字单元格中删除称谓的直接方法。当所有名字遵循相同模式时,此解决方案最为适用:称谓在前,接着是一个空格,然后是人的全名。这种方法速度快,不需要额外的插件,并且对中小型列表非常有效。然而,它可能无法处理更复杂的变体,例如多词称谓或不一致的格式。

要从名字单元格中删除称谓,请执行以下步骤:

1. 在名称列表旁边的一个空白单元格中(假设您的数据从A2单元格开始),输入以下公式:

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

该公式定位单元格中的第一个空格,并提取其右侧的所有文本,从而有效地删除称谓。

2. 按Enter键确认公式。接下来,拖动填充柄(单元格右下角的小方块)向下填充公式以覆盖所需的列中所有单元格。

a screenshot of using the formula to get names without salutations

提示与注意事项如果有些名字不含称谓(没有空格),公式可能会返回错误。在应用此方法之前,请检查您的数据是否存在任何不一致之处。


使用VBA宏批量删除称谓

对于大型数据集,或者在称谓格式可能不一致或长度变化的情况下,使用VBA宏是一个有效的解决方案。通过VBA,您可以一次性删除各种类型的称谓,这对于清理大型邮件列表、人力资源数据库或任何手动公式不切实际的场景特别有用。

下面是一个示例VBA脚本,它会从选定范围内的每个名字开头删除一系列常见称谓(如先生、女士、夫人、博士、教授、小姐)。您可以根据需要轻松扩展列表以包含其他头衔。

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

2F5 或点击 Run button 运行 按钮来执行代码。将出现一个对话框,要求您选择包含要处理名字的范围——高亮显示适当的单元格并点击 确定.

注意此宏只会删除位于单元格最开头的称谓,不区分大小写。如果某些名字使用了不常见的头衔,您可以将它们添加到代码中的arrSalutations数组中。在使用VBA进行批量操作之前,始终备份您的数据以防止不必要的更改。


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

从Excel 2013开始,快速填充功能使得通过识别和应用数据模式来去除称谓变得容易。这是一种快速、直观的方法——特别是对于喜欢视觉化、交互式解决方案并且数据结构相对良好的用户。如果您的数据集不大并且称谓和其余部分之间有清晰重复的模式,快速填充是非常理想的。然而,在数据高度不规则或存在不一致的情况下,它可能效果不佳。

1. 在名字旁边创建一个新列。在第一个数据单元格旁边(例如,如果A2是“张先生”,在B2中输入“张”——省略称谓)。

2. 开始在B3中输入下一个值。一旦Excel识别到模式(通常在1-2个条目后),它将基于您的示例建议填充该列的其余单元格。

3. 只需按Enter接受建议,快速填充将自动完成该列的其余部分,为您删除称谓。

如果快速填充未自动出现,您可以手动激活它:点击您最后输入项下方的单元格,然后点击数据 > 快速填充 或使用快捷键Ctrl+E

提示快速填充对不一致性很敏感。请仔细检查结果是否有错误,尤其是当一些名字不符合预期模式时。此功能不会自动更新;如果您的原始名字发生变化,您需要重新执行快速填充操作。

优点 无需记忆公式,非常直观,对于具有明显模式的列表来说很快。
局限性 不适合非常大的数据集或模式不均匀的情况,仅适用于Excel 2013或更高版本。


使用公式将称谓和名字拆分到不同的列

如果您希望将称谓和名字的其余部分拆分到两个独立的列,而不是简单地删除称谓,Excel公式也可以帮助实现。当您仍需要保留称谓用于报告或其他使用场景(如个性化通信或按头衔分类)时,此方法尤其有用。公式在数据一致使用单一固定分隔符(如空格)时效果最佳。

1. 要提取称谓,请在空白单元格中输入以下公式(例如,如果您的名字在A列,则在C2中输入):

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

这将提取第一个空格左侧的文本,隔离出称谓。

拖动填充柄向下复制公式到其他行。所有称谓都将显示在新列中:

a screenshot of using a formula to extract salutations from given names

2. 要仅提取名字,请在下一个空白列(例如D2)中输入以下公式:

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

此公式检索第一个空格之后的所有文本,即实际名字。再次拖动填充柄向下填充其他行。

a screenshot of using another formula to extract names from given names

提示您可以根据数据的实际位置调整公式中的列引用(A2等)。请注意,如果名字字段为空或不符合预期格式,可能会导致公式错误。

最佳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天全功能试用——无需注册,无需信用卡
  • 超高性价比——比单独购买更实惠