VBA脚本调试疑问：变量tt有值但ttl为何为空？

问题根源 #

你遇到的问题核心在于VBA字典存储数组的特性：
当你用data.Add name, Array("", "")将数组存入字典时，字典中保存的是数组的值副本。直接通过data(name)(0) = tt修改数组元素的操作不会真正作用于字典内的数组——你只是修改了临时取出的数组元素，并没有把修改后的数组重新存回字典。

因此执行data(name)(0) = tt后，字典里的数组元素还是初始的空字符串，ttl = data(name)(0)自然取到空值；而tt是直接从单元格读取的，所以能正常显示内容。

修复代码 #

要解决这个问题，需要先将字典中的数组取出，修改后再重新存入字典：

Set ws = ThisWorkbook.Sheets("STEPS") ' 替换为你的实际工作表名称

' 获取A列最后一行行号
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' 创建字典存储唯一名称及对应拼接文本
Set data = CreateObject("Scripting.Dictionary")

' 遍历A列所有行
For i = 1 To lastRow
    Dim name As String
    name = ws.Cells(i, "A").Value

    If Not data.exists(name) Then
        data.Add name, Array("", "") ' 初始化G、H列对应的空字符串数组
    End If
    
    ' 拼接G列内容
    If data(name)(0) = "" Then
        Dim tt As String
        tt = ws.Cells(i, "G").Value
        ' 取出字典中的数组
        Dim tempArr As Variant
        tempArr = data(name)
        ' 修改数组元素
        tempArr(0) = tt
        ' 将修改后的数组存回字典
        data(name) = tempArr
        ' 此时再读取就能拿到正确值
        Dim ttl As String
        ttl = data(name)(0)
    Else
        ' 拼接操作同样需要先取数组再存回
        Dim tempArr2 As Variant
        tempArr2 = data(name)
        tempArr2(0) = tempArr2(0) & ", " & ws.Cells(i, "G").Value
        data(name) = tempArr2
    End If
Next i ' 补充原代码遗漏的循环结束语句

额外建议 #

原代码中把Dim变量声明放在循环内部，虽然VBA允许，但变量会被自动提升到模块顶部，容易造成混淆。建议将所有变量声明移到代码开头，让结构更清晰。

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