求助 Excel VBA 字典用法

wdjwt

Excelhome 的各位大神好，本人是VBA 菜鸟，最近在学习蓝桥玄霜老师的字典用法讲解，关于案列7排序，即然 d(CStr(rng(i, 1)))  已经等于i, 为什么在if 语句后面跟随的操作仍然需用d(CStr(rng(i, 1))) 而不可以直接使用 i 代替，本人看了几遍代码，觉得i 就是 d(CStr(rng(i, 1))) 的值，但替换为i 代码却不能运行，请大神赐教，不能用i 替换的原因

案例中的标准代码：
Public Sub test1()
'by:oobird
Dim d As Object, rng, i%, j%, arr
Set d = CreateObject("Scripting.Dictionary")
rng = Range("a3:f" & [a65536].End(xlUp).Row)
ReDim arr(1 To UBound(rng), 1 To 4)
For i = 1 To UBound(rng)
    d(CStr(rng(i, 1))) = i
Next i
For j = 3 To 5 Step 2
For i = 1 To Cells(65536, j).End(xlUp).Row - 2
If d(CStr(rng(i, j))) <> "" Then
    arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
    arr(d(CStr(rng(i, j))), j - 1) = rng(i, j + 1)
End If
Next i
Next j
[c3].Resize(UBound(rng), 4) = arr
End Sub

jiangxiaoyun

没看懂你要干什么.......好混乱的感觉......

wdjwt

就是上述代码中的：
arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
arr(d(CStr(rng(i, j))), j - 1) = rng(i, j + 1)
为什么不能用
arr(i, j - 2) = rng(i, j)
arr(i, j - 1) = rng(i, j + 1)
来代替

wdjwt

jiangxiaoyun 发表于 2017-7-19 16:07
没看懂你要干什么.......好混乱的感觉......

你好，就是上述代码中的：
arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
arr(d(CStr(rng(i, j))), j - 1) = rng(i, j + 1)
为什么不能用
arr(i, j - 2) = rng(i, j)
arr(i, j - 1) = rng(i, j + 1)
来代替

jiaxinl

wdjwt 发表于 2017-7-19 16:15
就是上述代码中的：
arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
arr(d(CStr(rng(i, j))), j - 1) = rng ...

要求是排列与A列相同的股票代码要在同一行里
For i = 1 To UBound(rng)
    d(CStr(rng(i, 1))) = i  '这里的i是记录A列中股票代码在数组rng的位置
Next i

下面的i是有顺序的序号，而d(CStr(rng(i, j)))是返回C列和D列中股票代码在rng数组中用字典所记录的位置
For j = 3 To 5 Step 2
For i = 1 To Cells(65536, j).End(xlUp).Row - 2
If d(CStr(rng(i, j))) <> "" Then
    arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
    arr(d(CStr(rng(i, j))), j - 1) = rng(i, j + 1)
End If
Next i
Next j

arr(d(CStr(rng(i, j))), j - 2) = rng(i, j)
arr(d(CStr(rng(i, j))), j - 1) = rng(i, j + 1)

所以不能用i(是有顺序的序号)
代替d(CStr(rng(i, j)))  股票代码在rng数组中用字典所记录的位置

arr(i, j - 2) = rng(i, j)
arr(i, j - 1) = rng(i, j + 1)

wdjwt

jiaxinl 发表于 2017-7-19 17:38
要求是排列与A列相同的股票代码要在同一行里
For i = 1 To UBound(rng)
    d(CStr(rng(i, 1))) = i  ' ...

明白了，d(cstr(rng(i,1)))返回的是关键字的位置值，与循环到的i值是不相等的，非常感谢！