[已解决]求VBA关键语句解释

ybchxj2010

有以下代码：作用是利用字典过滤区域内重复出现的记录：

Sub 过滤重复记录()   
Dim d As New Dictionary,t
    For i = 2 To 5
        Set d(Cells(i, 1) .Value)= Range(Cells(i, 1), Cells(i, 4))
Next
t=d.items        
[A11].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(t))
End Sub

问题一：Set语句在字典中运用详解。
问题二：转置函数二次叠用的语句解释。
拜托各位老师！

最佳答案

月排行榜 / 总排行榜

Benol

2012-1-6 10:09

SET语句
SET语句在字典中和不在字典中的使用可以说并无区别，通常是把一个对象存储到变量中，你代码中的SET是将RANGE对象存储到字典的ITEM中，你把d(Cells(i, 1) .Value)也看作一个变量的话，就不难理解了。
二次转置
通常的，转置用于将二维数组的一列或一行转为一维数组以方便join、filter等处理。但你这里的却不是。你这里的数组t是一个存有一堆RANGE对象的一维数组，一次转置后得到一个由这些RANGE对象的值组成的二维数组，但行列被“转置”了，因此需要第二次转置。

跳转到最佳答案楼层

菜鸟锐

http://www.yesky.com/imagesnew/software/tsql/ts_set-set_40c4.htm

ybchxj2010

菜鸟锐 发表于 2012-1-6 09:01
http://www.yesky.com/imagesnew/software/tsql/ts_set-set_40c4.htm

老师！你可不可以就这个示例讲的通俗的？我很菜。没发现这里面和SQL扯上什么关系。

sunjing-zxl

我觉得这里用set 和两次转职没有什么意义。
我一般也不这么用。下面这个帖子对字典的代码解释的很全面了。可以去看看

常见字典用法集锦及代码详解
http://www.excelpx.com/thread-145901-1-1.html

ybchxj2010

我就从《蓝桥玄霜》老师那里摘抄的代码,看不太懂才问，另外蓝桥老师这篇文章也有不少错误的地方。

ybchxj2010

问题中的代码来源于蓝桥老师《实例5  前期绑定的字典实例》,我原来理解的Transpose函数简单的认为是行列互换而已。

windimi007

ybchxj2010 发表于 2012-1-6 09:20
问题中的代码来源于蓝桥老师《实例5  前期绑定的字典实例》,我原来理解的Transpose函数简单的认为是行列互换 ...

1. Dim d As Object
   
2. Set d = CreateObject("scripting.dictionary")

复制代码

这是后期绑定，楼主的是前期绑定，蓝桥老师的代码中应该有写吧！{:3912:}
至于你说的两次transpose，我只知道他能把二维数组转换为一维数组。{:4212:}

6913

进来学习一下~~~~~~厉害

ybchxj2010

代码我曾经演示过，完全ok！，可是这转置二次把我弄懵了。

ybchxj2010

此代码中KEY关键字是第一列单元格的值，条目是一个一行四列的单元格区域,Set语句我还好理解一点，就这个转置？？？拜托。