在处理客户记录或执行邮件合并时，从姓名中快速提取首字母（例如 Hal Greer 提取为 HG）非常实用。为此，我们为您介绍几种高效技巧，助您轻松从姓名列表中获取首字母。

第一种方法是使用公式从 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 键，然后拖动填充柄至所需区域。现在，所有姓名的首字母均已从名称列表中成功提取！

除了使用公式，您还可以在 Microsoft 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 代码中将首字母之间的分隔符“。”更改为其他符号。