VBA每个单词首字母大写

在VBA中，有时需要将字符串文本的每个单词的首字母大写。这在格式化输出或特定需求时非常有用。

实现方法

以下是一个简单的VBA函数，用于将指定字符串中每个单词的首字母大写。该函数使用了VBA的内置函数StrConv和UCase。

Function CapitalizeWords(ByVal str As String) As String
    Dim words() As String
    Dim i As Integer
    
    words = Split(str, " ")
    
    For i = 0 To UBound(words)
        words(i) = StrConv(words(i), vbProperCase)
    Next i
    
    CapitalizeWords = Join(words, " ")
End Function

该函数将参数str分成单词数组，使用StrConv将每个单词的首字母大写，最后将单词重新组合为一个字符串并返回。

示例

Sub Example()
    Debug.Print CapitalizeWords("hello world")
End Sub

输出：

Hello World

总结

以上函数可以在VBA中使用，将指定字符串中的每个单词的首字母大写。如果需要在Excel工作表中使用该函数，可以将其复制到模块中，并使用WorksheetFunction类在Excel公式中调用。

注意：该函数只能处理空格分隔的单词。如果需要处理其他类型的文本格式，请自行修改代码。