字典关键字对应的item值为什么不发生变化

猴摆手

前辈们，如下问题，代码如下，为什么字典里面的关键字“用量”对应的item明明是5，而    x = d("用量")后，x的值一直为1，

Sub selectExcelfile()
Dim Wb As Variant
Dim aFile As Variant
Dim i&, Myr&, Arr, d
aFile = Application.GetOpenFilename("Excel 文件 (*.xlsx),*.xlsx")
''如果按“取消”键，则提示选择文件
'If aFile <> True Then
'        MsgBox "请选择文件"
'End If
Set Wb = GetObject(aFile)

Set d = CreateObject("scripting.dictionary")
With Wb.Sheets("PCBA")
    Myr = .[a65536].End(xlUp).Row
    Arr = .Range("a1:p" & Myr)
    For i = 1 To UBound(Arr, 2)
        d(Arr(2, i)) = d(Arr(2, i)) + 1
    Next
    y = UBound(Arr, 1) - 1
    x = d("用量")
    Range("A1").Resize(y, 1).Value = .Cells(3, x).Resize(y, 1).Value
End With
Set d = Nothing
End Sub

猴摆手

顶一个先！

jiangxiaoyun

字典计数，计数是1就是1，没看出有神马毛病。

paciguard

你需要看一下d.items的对应值。。。

猴摆手

paciguard 发表于 2017-7-20 11:39
你需要看一下d.items的对应值。。。

你说的对啊，我看了下，都是1，我就是想得到该关键字的列数，为什么都是1呢？请赐教。

paciguard

不知道你Arr里装的什么呀。。。

lsdongjh

始终取第二行？！d(Arr(2, i)) = d(Arr(2, i)) + 1

那你前面的Myr 弄个啥里？