将字典赋值给数组

xzh_yzcn

各位老师：
       我想将字典值（运用字典方法，获取一组数据的唯一值），赋值给数组变量，以下是学编的代码，其结果数组是空值，请帮看一下问题错在哪儿
       arr = Range("a2:i" & rwb - 1)
        Set sbclqwmcdic = CreateObject("scripting.dictionary")
        For k = 1 To UBound(arr, 1)
'            sbclqwmcdic(arr(k, 1) & ";" & arr(k, 9)) = ""
            sbclqwmcdic(arr(k, 1) & arr(k, 9)) = ""
        Next
        Debug.Print sbclqwmcdic.Count   此句结果正确
        sbclqwmcarr = sbclqwmcdic.keys
        Debug.Print UBound(sbclqwarr)         赋值后，数组 sbclqwarr为空值，
       请帮看一下错在何处，谢谢老师

不知道为什么

先看下 rwb 这个变量你是如何赋值的？

LWQHLWQH

sbclqwmcarr  <> sbclqwarr

mythqiu

这样赋值是错误的，根据字典大小定义数组大小循环赋值给数组。

lenghonghai601

1. sbclqwmcarr = sbclqwmcdic.keys
   
2.         Debug.Print UBound(sbclqwarr)
   
3. 这两句数组名称不一样啊!!!!!!!

复制代码

xzh_yzcn

我找了一个晚上也没看出来，谢谢老师

tudarong

Set sbclqwmcdic = CreateObject("scripting.dictionary")
这自定义的命名太长了，后续调用的时候非常容易搞混（写错），建议简短些。