[已解决]学习字典遇到困难

mn860429 · 发表于 2011-1-21 15:19

本帖最后由 mn860429 于 2011-1-21 15:21 编辑

二、代码：

Sub 保留原数据() ‘by:ldy888
‘前期绑定，需先引用c:\windows\system32\scrrun.dll
Dim d As New Dictionary,t
For i = 2 To 5
Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))
Next
t=d.items
[A11].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(t))
End Sub

复制代码

代码中的两次Transpose有什么用呢？两次不是等于没转？{:081:}
还有Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))和d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))效果一样吗？{:081:}

帖子地址：
常见字典用法集锦及代码详解
http://www.excelpx.com/forum.php?mod=viewthread&tid=145901&fromuid=280638

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-21 15:35

1、Set是对象的赋值，字典中实质存储的是Range对象
2、t是一个一维数组，0~3，横向，其中存放Range对象
你可以逐步执行一下transpose看结果

Sub sss()
Dim d As New Dictionary, t
For i = 2 To 5
Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))
Next
Stop
t = d.items
t = Application.Transpose(t)
t = Application.Transpose(t)
[A11].Resize(d.Count, 4) = t
End Sub

复制代码

跳转到最佳答案楼层

Dj_soo · 发表于 2011-1-21 15:27

不一样的,transpose转Excel中一行的数据,转第一次是变一列,再转一次虽然是转成一行,但此时这一行不是二维数组了.而之前的一行是二维的,可以从本地窗口看数组变化.

Dj_soo · 发表于 2011-1-21 15:29

第二个问题,你试试咧?

Dj_soo · 发表于 2011-1-21 15:32

用set就是对象,不用set只是对值进行赋值

amulee · 发表于 2011-1-21 15:35

这个最佳答案由 amulee 给出，感谢 amulee 的回答。

单击隐藏图章

1、Set是对象的赋值，字典中实质存储的是Range对象
2、t是一个一维数组，0~3，横向，其中存放Range对象
你可以逐步执行一下transpose看结果

Sub sss()
Dim d As New Dictionary, t
For i = 2 To 5
Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4))
Next
Stop
t = d.items
t = Application.Transpose(t)
t = Application.Transpose(t)
[A11].Resize(d.Count, 4) = t
End Sub

复制代码

上清宫主 · 发表于 2011-1-21 16:12

楼主的代码非常非常有意思，简简单单的几行透出的东西却不少{:021:}

上清宫主 · 发表于 2011-1-21 16:14

越想想觉得有意思，再来{:1112:}{:1112:}{:1112:}{:1112:}

mn860429 · 发表于 2011-1-21 17:23

自己做了个简单的例子可以还是不怎么明白，数组的结果没有转化前怎么有两个括号，表示数组的数组？
未命名.jpg

工作簿1.rar (10.37 KB, 下载次数: 18)

liuguansky · 发表于 2011-1-21 18:08

{:251:}我也一知半解，就那么在用。

mn860429 · 发表于 2011-1-21 18:10

{:211:}{:211:}先用着吧

		自动登录	找回密码
密码			注册

[已解决]学习字典遇到困难

评分