[分享]DICTIONARY(字典)对象 补遗（一）

ldy888

QUOTE:

以下是引用白天睡觉在2007-9-29 8:28:39的发言：

ldy888兄,

04:10AM发贴,精神可嘉.

我是白天睡觉,你好像是晚上不睡觉嘛^_^

呵呵 同好 都是夜猫子

extyg

对 补遗（n） 期待ing!

smhf_6

谢谢楼上各位老师的回答，我又仔细看了一遍，仍感觉难以理解，例子中的数组都是纵向的，与同一行数据无关，楼主的解释好像是生成了一个复合KEY，不明白。

说得清楚一点：比如楼主的例子中有三列，分别是姓名、电话、手机，现在要以姓名为KEY,剔除重复的姓名及所在行的数据，我的理解，此时的ITEM：是电话＆手机，生成字典时，总得把整行数据带去啊。字典再返回表格时，还得将“电话＆手机”split.

实际中远远不止三列,所以我有此提问。

ldy888

QUOTE:

以下是引用smhf_6在2007-9-29 20:21:24的发言：

谢谢楼上各位老师的回答，我又仔细看了一遍，仍感觉难以理解，例子中的数组都是纵向的，与同一行数据无关，楼主的解释好像是生成了一个复合KEY，不明白。

说得清楚一点：比如楼主的例子中有三列，分别是姓名、电话、手机，现在要以姓名为KEY,剔除重复的姓名及所在行的数据，我的理解，此时的ITEM：是电话＆手机，生成字典时，总得把整行数据带去啊。字典再返回表格时，还得将“电话＆手机”split.

实际中远远不止三列,所以我有此提问。

这是你想要表达的吗？

northwolves

QUOTE:

以下是引用ldy888在2007-9-29 21:45:19的发言：

这是你想要表达的吗？

这种情况感觉使用ADO+SQL(DISTINCT关键词)更方便些

smhf_6

这下子总算对上号了，14楼说的就是我要说的意思，因为我在工作碰到的肯定是多列的表格，如果字典只能用2列，局限性太大,以前我虽然也用过字典，但总被这个问题困忧，今天按狼兄的意思，看样子还是用ADO+SQL(DISTINCT关键词)吧。

eagleyzw

哦，原来字典还可以装字典。真是很灵活。

ldy888

ecxcel中使用ADo调用自身表的数据时有个危险的Bug--- 不能释放内存（MSDN上有文章说明）

当你运行 下面的代码N次时会内存溢出 excel关闭。 N的大小与 数据的大小和内存的大小 成反比

请观察任务管理器中excel内存的占用情况，一直增加，不会减少

当发现这个bug后，对VBa+ADO 的热情减弱了许多，不过还好，只要不调用自身的表就没事

ps：2007不知道有没有修正这个bug，有2007的朋友请测试一下

Sub Tryado()
    Dim cn As New ADODB.Connection
    Dim rc As New ADODB.Recordset
    cn = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;';Data Source=" & ThisWorkbook.FullName
    cn.Open
    rc.Open "select * from [sheet2$]", cn
    rc.Close
    cn.Close
    Set rc = Nothing
    Set cn = Nothing
End Sub

ldy888

用字典处理也可以方便的完成任务

Sub 保留原数据()
    Dim d As New Dictionary
    For i = 2 To 5
        Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))
    Next
    For i = 1 To d.Count
        d(d.Keys(i - 1)).Copy Cells(i + 10, 1)
    Next
End Sub

Sub 保留原数据1()
    Dim d As New Dictionary
    For i = 2 To 5
         d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))
    Next
    For i = 1 To d.Count
        Range(Cells(15 + i, 1), Cells(15 + i, 4)) = d(d.Keys(i - 1))
    Next
End Sub

这个应该就是smhf_6兄所表达的意思了

Sub 就地删除()
    Dim d As New Dictionary
    For i = 2 To 5
        d(Cells(i, 1) & "") = i
    Next
    For Each k In d
        d.Key(k) = d(k)
    Next
    For i = 5 To 2 Step -1
        If Not d.Exists(i) Then Rows(i).Delete Shift:=xlUp
    Next
End Sub

[此贴子已经被作者于2007-9-30 12:37:51编辑过]

smhf_6

谢谢ldy888：

最早使用字典，是从龙三老师那里学的，因字典速度快，学习也有积极性，但只会使用最基本的，所以也没有进步，今天你在这里一讲解，大开眼界了，您这样才叫活学活用。

谢谢了。