如何从单元格中提取每个单词的首字母？

假设您的工作表中有一系列国家名称，您希望提取这些名称中每个单词的首字母。Excel 并未直接提供用于提取单元格中每个单词首字母的功能。不过，我将介绍一些实用的方法，帮助您高效完成此任务，让整个过程简单而有效。

• 使用公式从单元格中提取每个单词的首字母
• 使用 Kutools AI 助手从单元格中提取每个单词的首字母
• 通过用户定义函数从单元格中提取每个单词的首字母

使用公式从单元格中提取每个单词的首字母

要获取单元格内每个单词的首字母，以下数组公式可以帮助您实现。

1. 请将以下公式复制到您希望获取结果的空白单元格中，然后同时按下 Ctrl + Shift + Enter 键以获取第一个结果。

=CONCAT(LEFT(FILTERXML("<a><b>"&SUBSTITUTE(A2," ","</b><b>")&"</b></a>","//b"),1))

2. 接下来，向下拖动公式填充其他单元格。此操作将一次性自动提取每个单元格中每个单词的首字母。请参见截图：

使用 Kutools AI 助手从单元格中提取每个单词的首字母

借助 Kutools AI 助手快速提取单元格中每个单词的首字母。无需复杂公式，AI 助手为您自动化处理任务，使数据处理变得简单高效。优化您的 Excel 工作流程，让工作更轻松。立即试用 Kutools AI 助手，体验智能化的 Excel 操作！

安装 Kutools for Excel 后，请点击 Kutools AI > AI 助手 打开 Kutools AI 助手面板：

1. 选择数据列表，然后在聊天框中输入您的需求，点击 发送 按钮或按 Enter 键发送问题；
2. 分析完成后，点击 执行 按钮运行。Kutools AI 助手将使用 AI 处理您的请求，并直接在 Excel 中返回结果。

通过用户定义函数从单元格中提取每个单词的首字母

从单元格中提取每个单词的首字母是一项可以通过在 Excel 中使用用户定义函数 (UDF) 来大幅优化的任务。本节探讨如何创建和使用 UDF 来高效完成此任务。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将以下代码粘贴到模块窗口中。

Function GetFirstLetters(rng As Range) As String
'Updateby Extendoffice
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. 然后保存并关闭此代码，返回工作表，在空白单元格中输入公式 =GetFirstLetters(A2)。接着，拖动填充柄应用公式到其他需要的单元格。所有单词的首字母都已从一系列单词中提取出来，请参见截图：

相关文章：