如何将数组中的字符拼接成字符串？VBA海绵宝宝嘲讽文本实现求助

嘿，我看你已经把字符的大小写转换核心逻辑搞定了，就差最后把零散字符拼成完整字符串这一步啦！其实超简单，只需要加一个变量来逐步攒结果就行，我帮你修改了代码，还顺便优化了边界问题：

修改后的代码（基于你的原有实现） #

Private Sub CommandButton1_Click()
    Dim Word As String
    Dim i As Integer
    Dim Letters() As String
    Dim Result As String ' 新增：用来保存拼接后的最终字符串
    
    Word = Sheet1.Range("A1").Value
    Letters = Split(StrConv(Word, 64), Chr(0))
    
    Result = "" ' 初始化结果为空
    For i = 0 To Len(Word) - 1 Step 2
        ' 把转换后的字符追加到Result里，替代原来的直接打印
        Result = Result & StrConv(Letters(i), 1)
        ' 加个判断避免字符串长度为奇数时下标越界
        If i + 1 <= UBound(Letters) Then
            Result = Result & StrConv(Letters(i + 1), 2)
        End If
    Next i
    
    ' 现在可以输出完整结果啦！
    Debug.Print Result
    Sheet1.Range("B1").Value = Result ' 可选：把结果写入B1单元格
End Sub

更简洁的替代实现 #

其实你不需要拆分成字节数组这么绕，直接遍历每个字符转换拼接更直观：

Private Sub CommandButton1_Click()
    Dim Word As String
    Dim i As Integer
    Dim Result As String
    
    Word = Sheet1.Range("A1").Value
    Result = ""
    
    For i = 1 To Len(Word)
        If i Mod 2 = 1 Then
            ' 奇数位置的字符转大写
            Result = Result & UCase(Mid(Word, i, 1))
        Else
            ' 偶数位置的字符转小写
            Result = Result & LCase(Mid(Word, i, 1))
        End If
    Next i
    
    Debug.Print Result
    Sheet1.Range("B1").Value = Result
End Sub

关键说明 #

• 核心思路就是用一个字符串变量（比如Result）作为“容器”，每次把转换后的字符用&运算符追加进去，循环结束后这个变量就是完整的目标字符串。
• 第一种方法里加的If判断是为了处理原字符串长度为奇数的情况，防止i+1超出数组下标导致报错。
• 第二种方法直接用Mid逐个取字符，结合位置判断大小写，代码更易读，也不容易出错。

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