佛山小老鼠带您走进字典(字典入门帖)

larer

群里应该设个发红包功能,能给这么好的贴子发个红包!

cunfu2010

楼主威武，太棒了

jsgj2023

shenzewen 发表于 2015-10-6 00:58
你好，我现在才开始接触字典，很感谢你的分享，我有个问题想请教，在6个方法4个属性里
Function 计数(Rg A ...

同样的疑惑，路过的老师能否解释一下？

1249994139

佛山小老鼠 发表于 2013-11-3 11:05
6个方法和4个属性起床了,起床了,太阳晒屁股了,今天我们把6个方法和4个属性学习完
1.方法add 是添加的意思  ...

谢谢分享！

awsa888

jsgj2023 发表于 2016-4-7 08:38
同样的疑惑，路过的老师能否解释一下？

你从哪里看的 ITEMS  ???

alanfly

学习了！顶顶!!!

xgbp

mark 字典入门

fjnhwwx

m = dic(arr1(x, 1)) 这句应该是返回条目值，怎么程序返回的是条目数

fjnhwwx

m = dic(arr1(x, 1)) '如果存在,把关键词arr1(x,1)的条目读出来,在原来的
       '基础上累加,通过读取关键词arr1(x,1)的条目,找到在数组arr2那一行上累加
这句不理解呀，dic(关键词）这个按理说是返回条目值，可在以下代码中返回的是条目数
Sub 二列多行()
    Dim arr1, dic, x, arr2(1 To 10, 1 To 2), m%, k% '定义变量
    Set dic = CreateObject("Scripting.dictionary") '后期绑定引用字典
    arr1 = Range("A1").CurrentRegion '把单元区域装到数组arr1
    For x = 2 To UBound(arr1, 1) '循环数组arr1的行
       If dic.exists(arr1(x, 1)) Then '判断数组元素arr1(x,1)在字典关键词里是否存在,
           m = dic(arr1(x, 1)) '如果存在,把关键词arr1(x,1)的条目读出来,在原来的
       '基础上累加,通过读取关键词arr1(x,1)的条目,找到在数组arr2那一行上累加
        MsgBox m
           arr2(m, 2) = arr2(m, 2) + arr1(x, 2) '在数组arr2第m行,第2列上累加
       Else '如果关键词arr1(x,1)不存在,那么
            k = k + 1 '计数
            dic(arr1(x, 1)) = k '把数组arr1(x,1)装到字典dic里,条目装一个k,
            '这个k的作用来给数组arr2中找到存放那一行
            arr2(k, 1) = arr1(x, 1) '把数组arr1里的第x行第1列装到数组arr2的第k行,第1列
            arr2(k, 2) = arr1(x, 2) '把数组arr1里的第x行第2列装到数组arr2的第k行,第2列
       End If
    Next x
    Range("E1:F" & Rows.Count) = "" '清空区域,用来存放新的数据
    [E1:F1] = Array("产品名称", "数量") '填充表头
    [E2].Resize(k, 2) = arr2 '把数组arr2读到单元格区域
End Sub

lsc900707

拆分实例我觉得挺好的，可以通过对话自由选择拆分列！