字典法解决一对多的查询(学狼版主字典初作)

lj1226189

查询函数vlookup可以实现由一表关键字对应另一表关键字的查询,但有一个前提条件是必须另一表关键字不能重复,但实际工作中有些关键字肯定是有重复的,比如根据姓名查地址,就是一个一对多关系,一个姓名就有多个地址对应!因此用字典法解决这一问题很方便!

ARZvvfA5.rar (10.68 KB, 下载次数: 2772)

2007-11-3 16:57 上传

点击文件名下载附件
字典法解决一对多的查询(学狼版主字典初作)

hhzjxss

最近都在学字典呀，啥时我也得学学！

superljy1

很好的例子,慢慢研究!

northwolves

稍做修改:

Sub lj()
Dim arr, ds As Object, j As Long, k As Long, i As Long
Application.ScreenUpdating = False
Sheet2.[b1:b200] = ""
Set ds = CreateObject("scripting.dictionary")
k = Sheet2.[a5555].End(xlUp).Row
arr = Sheet2.Range("a1:a" & k)
For i = 1 To k
ds.Add arr(i, 1), ""
Next
j = Sheet1.[a5555].End(xlUp).Row
arr = Sheet1.Range("a1:b" & j)
For i = 1 To j
If ds.Exists(arr(i, 1)) Then ds(arr(i, 1)) = ds(arr(i, 1)) & " ↑ " & arr(i, 2)
Next
Sheet2.[b1].Resize(k, 1) = WorksheetFunction.Transpose(ds.Items)
Set ds = Nothing
Application.ScreenUpdating = True
End Sub

lj1226189

好象运行结果都是一样的!

For i = 1 To j
        ds(arr(i, 1)) = i
    Next
看懂了狼版主的代码就是好!

[此贴子已经被作者于2007-11-3 18:58:05编辑过]

northwolves

改与不改区别在哪里

-----------------------

大量数据,比如大几万时,数组赋值与CELLS()逐个赋值的速度相比,是几何级增长的,你可以自己编制随机数据试试

Sheet2.[b1].Resize(k, 1) = WorksheetFunction.Transpose(ds.Items)

ljdqe_456

做个记号，方便以后来才找的到

huiz999

请问狼版，ds(arr(i, 1)) 就是 ds.item(arr(i,1))的缩写吧？谢谢。

在QEE用版主的教程里找到了答案：

Item 属性是字典对象的默认成员，dct.Item(“ABC”)

可以简写为dct(“ABC”)。

[此贴子已经被作者于2007-11-4 1:27:20编辑过]

gusuitang

楼主，能写个自定义函数，也是查找一对多值的，例如：a 对应1 、2、3，该函数能将1.2.3都能找出来。

有办法吗？ 

northwolves

QUOTE:

以下是引用gusuitang在2007-11-15 13:44:10的发言：

楼主，能写个自定义函数，也是查找一对多值的，例如：a 对应1 、2、3，该函数能将1.2.3都能找出来。

有办法吗？ 

Function getit(ByVal s As String)
Dim d As Object, b(), i As Long, j As Long, n As Long
Set d = CreateObject("scripting.dictionary")
For i = 1 To 20
n = Int(Rnd * 20 + 1)
ReDim b(1 To n)
For j = 1 To n
b(j) = j
Next
d.Add Chr(i + 96), b
Next
If d.exists(s) Then getit = d(s)
Set d = Nothing
End Function

Sub macro1()
Dim i As Byte
For i = 1 To 10
Debug.Print Chr(i + 96); vbTab; Join(getit(Chr(i + 96)), ",")
Next
End Sub

返回:

a    1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
b    1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
c    1,2,3,4,5,6,7,8,9,10,11,12,13,14
d    1,2,3,4,5,6,7
e    1
f    1,2,3,4,5,6,7,8,9,10,11,12,13
g    1,2,3,4,5,6,7,8,9,10,11,12,13,14
h    1,2,3,4
i    1,2,3,4,5
j    1,2,3,4,5,6,7