如何从Excel中的名称中提取姓名缩写？

网友投稿 1796 2023-12-26

如何从Excel中的名称中提取姓名缩写？

当您处理客户记录或进行邮件合并时，从给定名称获取缩写可能对您有用，例如，HG for Hal Greer。因此，在这里我为您介绍了一些技巧，可以帮助您快速从Excel的名称列表中提取姓名缩写。

在Excel中使用公式提取缩写

在Excel中使用定义的函数提取缩写

在Excel中使用公式提取缩写

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

第一种方法是使用公式从Microsoft Excel中的名称中提取缩写。

选择一个空白单元格，例如，单元格C2，键入此公式 =LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")（A2是您的姓名列表的第一个单元格），按输入按钮，然后拖动填充手柄以填充范围。现在，您会看到每个名称的所有缩写均从名称列表中提取。

在Excel中使用定义的函数提取缩写

除公式外，您还可以使用“定义的函数”在Microsoft Excel中轻松地从指定名称中提取缩写。

1.选择要选择的列的单元格，然后按 Alt + F11键 打开 Microsoft Visual Basic应用程序 窗口。

2.在弹出窗口中，单击插页 > 模块，然后将以下VBA代码粘贴到模块中。

VBA：从名称中提取缩写

Function FirstCharacters(pWorkRng As Range) As String Updateby20140514 Dim arr As Variant Dim xValue As String Dim OutValue As String xValue = pWorkRng.Value arr = VBA.Split(Trim(xValue)) For i = 0 To UBound(arr) OutValue = OutValue & VBA.Left(arr(i), 1) & "." Next FirstCharacters = OutValue End Function

Copy

3.保存代码并关闭窗口，选择一个空白单元格并键入此公式 = FirstCharacters（A2），然后按输入按钮，然后拖动填充手柄以填充所需的范围。之后，您可以看到每个名称的缩写都已提取。

Tips:：您可以更改分隔符 “。” 您可以在上述VBA中选择首字母缩写。

相关文章： 在Excel中提取唯一值在Excel中提取粗体文本

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。