ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

   
高效办公必会的Office实战技巧 永久免费,网表让Excel秒变数据库 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! 国内首部Excel函数公式学习大典 职场充电黑科技, Office微视频教程 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 突破Excel限制,用活字格提高效率 12门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 189|回复: 10

[求助] 字典scripting.dictionary为什么只能存65536的key

[复制链接]

TA的精华主题

TA的得分主题

发表于 2017-5-19 09:26 | 显示全部楼层 |阅读模式
各路大神,请教一个问题,为什么下面的65536一旦换成比65536大的数字,虽然代码会执行成功,可是运行后的结果是错误的,百思不得其解。是不是字典key存在容量限制,不能超过65536??
Sub test()
Dim d As Variant, k As Variant, t As Variant
Dim r As Long

Set d = CreateObject("scripting.dictionary")

For r = 1 To 65536
    d(r) = r * 2
Next

k = d.keys
t = d.items

Columns(1).ClearContents
Columns(2).ClearContents

[a1].Resize(d.Count, 1) = Application.Transpose(k)
[b1].Resize(d.Count, 1) = Application.Transpose(t)

End Sub

TA的精华主题

TA的得分主题

发表于 2017-5-19 09:28 | 显示全部楼层
主要问题是  Application.Transpose  只支持65536行转置

TA的精华主题

TA的得分主题

发表于 2017-5-19 09:31 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-19 09:34 | 显示全部楼层
哇,感谢huang1314wei和未忘初心,两位大神,茅塞顿开。
现在问题来了,如果不用Transpose,那有什么办法快速输出数据吗?=.=

TA的精华主题

TA的得分主题

发表于 2017-5-19 09:40 | 显示全部楼层
llaby 发表于 2017-5-19 09:34
哇,感谢huang1314wei和未忘初心,两位大神,茅塞顿开。
现在问题来了,如果不用Transpose,那有什么办法 ...

用数组,先定义一个范围足够大的数组,再往里面装数据。

TA的精华主题

TA的得分主题

发表于 2017-5-19 09:48 | 显示全部楼层
llaby 发表于 2017-5-19 09:34
哇,感谢huang1314wei和未忘初心,两位大神,茅塞顿开。
现在问题来了,如果不用Transpose,那有什么办法 ...

把结果放入数组,再放到单元格
redim arr(1 to d.count,1 to 2)
for each k in d.keys
           arr(k,1) = k
           arr(k,2) = d(k)
next
[a1].resize(ubound(arr),2) = arr

TA的精华主题

TA的得分主题

发表于 2017-5-19 11:08 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-19 11:45 | 显示全部楼层
谢谢yeminqiang和幽鼬,果然还是大神多啊。搞定了,非常感谢。还学到里新知识。。。^-^

TA的精华主题

TA的得分主题

发表于 2017-5-19 13:50 | 显示全部楼层
本帖最后由 paciguard 于 2017-5-19 14:25 编辑

脑洞大开,不行硬拆分,实际测试1000000条数据,比循环节省近50秒:
Sub test()
Dim d As Variant, k As Variant, T As Variant
Dim r As Long
Dim t1
t1 = Timer
Set d = CreateObject("scripting.dictionary")
Columns(1).ClearContents
Columns(2).ClearContents
For r = 1 To 1000000
     d(r) = r * 2
     
     If (r Mod 30000) = 0 Then
        If r = 30000 Then
      k = Application.Transpose(d.keys())
      T = Application.Transpose(d.items())
      Range("A" & [a1000000].End(3).Row).Resize(UBound(k), 1) = k
      Range("B" & [b1000000].End(3).Row).Resize(UBound(T), 1) = T
      d.RemoveAll
      Else
      k = Application.Transpose(d.keys())
      T = Application.Transpose(d.items())
      Range("A" & [a1000000].End(3).Row + 1).Resize(UBound(k), 1) = k
      Range("B" & [b1000000].End(3).Row + 1).Resize(UBound(T), 1) = T
      d.RemoveAll
      End If
     ElseIf r = 1000000 Then
     k = Application.Transpose(d.keys())
      T = Application.Transpose(d.items())
            Range("A" & [a1000000].End(3).Row + 1).Resize(UBound(k), 1) = k
      Range("B" & [b1000000].End(3).Row + 1).Resize(UBound(T), 1) = T
     End If
     
Next
MsgBox Timer - t1
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-5-26 14:00 | 显示全部楼层
paciguard 发表于 2017-5-19 13:50
脑洞大开,不行硬拆分,实际测试1000000条数据,比循环节省近50秒:
Sub test()
Dim d As Variant, k As ...

。。。服了。。。。果然脑洞大开。。。不过确实是个新想法,谢谢了^^
您需要登录后才可以回帖 登录 | 免费注册 新浪微博登陆

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天坐享新鲜教程

手机版|关于我们|联系我们|ExcelHome   

GMT+8, 2017-9-21 20:03 , Processed in 0.093053 second(s), 20 queries , Gzip On, MemCache On.

Powered by Discuz! X3.3

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表