我想动态增加字典的条数，但不知道什么原因，只能保留最后一条记录,请大侠帮忙！！

eutu

我想动态增加字典的条数，但不知道什么原因，只能保留最后一条记录，请大侠帮我修改下

首先我定义了一个全局字典（Public dic As Object），便于其它程序调用，由于字典有可能被 其它程序调用时，要临时增加条数，所以我就把字典做成了带参数的函数Function Workeng(rf As String, rg As String)  【或者说不能用函数呢？如果不能用，那参数不好传啊】

再用Sub tts程序给它赋值，增加其基本字典，但后来发现始终 只得到最后一个key（通过sheet2的 Sub Worionhange()发现）

Function Workeng(rf As String, rg As String  和 Sub tts 在sheet1 Sub Worionhange()在sheet2，请大侠帮我修改下！！
因为我有可能要在 运行 Sub Worionhange() 时，可能增加字典条数

工作簿1.rar (16.22 KB, 下载次数: 3)

2019-12-19 22:18 上传

点击文件名下载附件

Datous

Function Workeng(rf As String, rg As String)
    Dim ar
    Set dic = CreateObject("scripting.dictionary")
    Debug.Print rf & "/" & rg
    dic.Add rf, rg
End Function

把  Set dic = CreateObject("scripting.dictionary")  这一句移到 tts 过程里，或者放到 ThisWorkbook.Workbook_Open 里

set 每运行一次重置一次。

eutu

组数达到了，有18组，但每组都是第一组的数据

山菊花

eutu 发表于 2019-12-19 23:09
组数达到了，有18组，但每组都是第一组的数据

问题出在输出到工作表这一句：
   [e1].Resize(1, dic.Count) = a ' Application.Transpose(a)

a是一个水平数组，把它输出到1行N列的区域，不用转置。
把它输出到一个垂直区域时，需要转置：
   [e1].Resize( dic.Count,1) =  Application.Transpose(a)