vba拆分单元格中首字母

以下是一个示例VBA代码，可以将单元格中的文本拆分为单词，并提取每个单词的首字母：

Sub SplitFirstLetter()
    
    Dim cell As Range
    Dim words As Variant
    Dim word As Variant
    Dim firstLetter As String
    Dim i As Long, j As Long
    
    For Each cell In Selection
        words = Split(cell.Value, " ")
        firstLetter = ""
        For i = LBound(words) To UBound(words)
            word = words(i)
            If Len(word) > 0 Then
                firstLetter = firstLetter & Left(word, 1)
            End If
        Next i
        cell.Value = firstLetter
    Next cell
    
End Sub

使用方法：

1. 选择要拆分的单元格范围。
2. 在Excel菜单栏中选择“开发工具” -> “Visual Basic”。
3. 在VBA编辑器中，将上述代码粘贴到新建的代码模块中。
4. 按F5键运行代码，或者在VBA编辑器中点击“运行”按钮。

代码将循环遍历选定范围中的每个单元格，将单元格中的文本按空格分割成单词，并提取每个单词的首字母。最后，将所有首字母拼接在一起，并将结果写入单元格中。