如何在 Excel 中从姓名中提取首字母？

当您处理客户记录或进行邮件合并时，从给定的名字中获取首字母可能会对您有所帮助。例如，HG 代表 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 是您的姓名列表的第一个单元格），按 Enter 键，然后拖动填充柄以填充区域。现在您会看到每个名字的首字母都已从姓名列表中提取出来。

使用自定义函数在 Excel 中提取首字母

除了公式之外，您可以使用自定义函数轻松地从指定名称中提取首字母。

1. 选择要操作的列中的某个单元格，然后按 Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。

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)，然后按 Enter 键，并拖动填充柄以填充所需的范围。之后，您可以看到每个名字的首字母已被提取。

提示：您可以根据需要更改上述 VBA 中首字母的分隔符“.”。

相关文章：

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