Excel VBA问题：提取用户名大写字符（首字母）返回空白

问题场景 #

需要构建动态宏，通过Environ("Username")获取用户名后提取其中所有大写字符（例如将JohnSmith转为JS），但当前宏返回空白结果，代码如下：

' Macro1 Macro
'
Dim Username As String
Dim UserInits As String
Username = Environ("UserName")
Dim i As Integer
Dim spltStr() As String
spltStr = Split(Username)

UserInits = ""

i = 1
Do While i <= Len(Username)

    If UCase(spltStr(i)) = spltStr(i) Then
        UserInits = UserInits & spltStr(i)
    End If
    
i = i + 1
Loop

MsgBox UserInits

End Sub

错误原因分析 #

• 错误使用Split函数：Split(Username)默认按空格分割字符串，如果用户名无空格（如JohnSmith），生成的数组spltStr仅含1个元素（索引为0），后续循环中用i=1访问spltStr(i)会直接越界；且Split的作用是分割单词，并非拆分单个字符，完全不符合提取单个大写字符的需求。
• 混淆字符串索引与数组索引：VBA中字符串的字符索引从1开始，但数组索引从0开始，代码同时混用两种索引逻辑，导致无法正确访问目标内容。
• 判断逻辑对象错误：代码试图判断数组元素是否为大写，但数组元素是整个单词（或完整用户名），而非单个字符，自然无法提取到目标大写字符。

修正后的代码 #

直接遍历原用户名的每个字符，判断是否为大写后拼接：

' Macro1 Macro
'
Dim Username As String
Dim UserInits As String
Dim i As Integer

Username = Environ("UserName")
UserInits = ""

' 遍历用户名的每个字符（VBA字符串索引从1开始）
For i = 1 To Len(Username)
    ' 判断当前字符是否为大写
    If Mid(Username, i, 1) = UCase(Mid(Username, i, 1)) Then
        UserInits = UserInits & Mid(Username, i, 1)
    End If
Next i

MsgBox UserInits
End Sub

补充说明 #

如果实际需求是提取每个单词的首字母（比如用户名是John Smith时取JS），可以调整为按空格分割后取每个单词的首字符：

' Macro1 Macro
'
Dim Username As String
Dim UserInits As String
Dim spltStr() As String
Dim i As Integer

Username = Environ("UserName")
spltStr = Split(Username)
UserInits = ""

' 遍历分割后的单词数组
For i = LBound(spltStr) To UBound(spltStr)
    ' 取每个单词的首字符并转为大写
    If Len(spltStr(i)) > 0 Then
        UserInits = UserInits & UCase(Left(spltStr(i), 1))
    End If
Next i

MsgBox UserInits
End Sub

内容的提问来源于stack exchange，提问作者timorgano