VBA字符串拼接问题：如何为拆分后的部门变量添加双引号

问题根源 #

原代码存在3个关键问题导致输出不符合要求：

• 双引号拼接逻辑错误：VBA里要在字符串中插入实际双引号，必须用两个连续双引号（""）表示，原代码的拼接写法完全混乱
• Mid函数语法错误：原代码里Mid, index, 3少了括号和目标字符串参数，正确写法是Mid(DeptVar, Index, 3)
• 语法遗漏：Else分支里的[Department =没写闭合的]，属于语法错误

修正后的完整代码 #

Sub CreateString()
    Dim Index As Integer
    Dim DeptVar As String
    Dim DeptString As String

    DeptVar = "E22E27E33" ' 该值来自用户表单
    Index = 1

    Do While Index <= Len(DeptVar) ' 改用Len(DeptVar)适配不同长度的部门字符串，不用硬写8
        If DeptString = "" Then
            ' 用三个双引号实现拼接：前后两个表示实际双引号，中间是拼接分隔符
            DeptString = "[Department] = """ & Mid(DeptVar, Index, 3) & """"
        Else
            ' 同样添加双引号，同时修正[Department]的语法错误
            DeptString = DeptString & ", AND [Department] = """ & Mid(DeptVar, Index, 3) & """"
        End If
        Index = Index + 3
    Loop
    
    ' 弹出消息框查看生成结果（可选）
    MsgBox DeptString
End Sub

关键修正点说明 #

1. 双引号处理：""" & Mid(...) & """"这段代码会在提取的部门值前后加上实际的双引号，最终生成"E22"格式的内容
2. 语法修复：补全Mid函数的正确参数，修正[Department]的闭合括号
3. 循环优化：把固定的Index < 8改成Index <= Len(DeptVar)，不管DeptVar是3个部门还是更多（只要是3的倍数长度），代码都能正常运行

最终输出 #

运行修正后的代码，会生成完全符合期望的字符串：

[Department] = "E22", AND [Department] = "E27", AND [Department] = "E33"

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