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

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

在Excel中使用公式提取缩写

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

在Excel中使用公式提取缩写

第一种方法是使用公式从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

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

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

相关文章：

• 在Excel中提取唯一值
• 在Excel中提取粗体文本