小白看“蓝桥玄霜”老师的实例学字典

renahu

蓝桥玄霜 发表于 2014-8-17 08:31
可以写成  Range("g2",Range("g1“)).End(xlDown)
自己多试试进步会很快。

Sub 测试()
  Dim arr1() As Variant, arr2() As Variant
  arr1 = [a1:a10].Value
  MsgBox "转置前的最大上界：" & UBound(arr1)
  For i = 1 To UBound(arr1)
    MsgBox (arr1(i, 1))
  Next
  
  arr2 = WorksheetFunction.Transpose(arr1)
  MsgBox "转置后的最大上界：" & UBound(arr2)
  For i = 1 To UBound(arr2)
    MsgBox (arr2(i))   '这是一维还是二维？是一维怎么上限是1而不是0？ 改成0就报错：下标越界
  Next
  
End Sub

renahu

jiminyanyan 发表于 2014-8-16 21:12
继续努力。。。。。。。。。

老师帮我看看，学习中又遇到问题了，一列单元格区域赋值给数组，转置前应该是二维，转置后，这是一维数组还是二维数组呀？

蓝桥玄霜

转置后的数组arr2是一维数组，但是一维数组也可以任意指定起始下标的，比如可以声明：arr(3 to 16)
在没有指定的情况下，大都是从0开始的。
可以在本地窗口中看到。

renahu

蓝桥玄霜 发表于 2014-8-17 10:55
转置后的数组arr2是一维数组，但是一维数组也可以任意指定起始下标的，比如可以声明：arr(3 to 16)
在没有 ...

可是这个arr2并没有声明：arr(1 to 10) 呀？它下限怎么从1而不是从0开始了？而且UBound(arr2)显示是10而不是9，显然它已经把下限定为1了，是不是转置后的数组，如果是一维数组的话，下限一定是1而不是0？

renahu

呵呵，本来学字典，现在先学学数组

renahu

jiminyanyan 发表于 2014-8-16 21:12
继续努力。。。。。。。。。

您好，18楼中山菊花版主的代码有些疑问，您能帮看看吗？

renahu

unsamesky 发表于 2014-8-16 13:10

您好，18楼中山菊花版主的代码有些疑问，您能帮看看吗？

renahu

实例5  前期绑定的字典实例
一、问题的提出：
有多列多行数据，其中有重复的行，要求编写一段代码，求得不重复的行数据。
如图实例5-1所示。

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

复制代码

三、代码详解
1、Dim d As New Dictionary, t  ：本段代码需要先引用微软的脚本运行时库Microsoft Scripting Runtime，可在VBE窗口，从菜单－工具－引用，然后勾选Microsoft Scripting Runtime，或者点击浏览，在添加引用对话框中选择c:\windows\system32\scrrun.dll，并打开，确定。完成引用。在本声明语句中把字典d声明为New Dictionary。这就是”前期绑定”了。上面的实例用的是创建对象语句：
Set d = CreateObject("Scripting.Dictionary")，称为”后期绑定”。不需要先引用脚本运行时库。
2、Set d(Cells(i, 1) & "") = Range(Cells(i, 1), Cells(i, 4)) ：把单元格对象加入字典，它对应的项是同一行的单元格区域。注意，这里用了Set，和前面的几例不一样哦。如果用Typename(d(Cells(i, 1) & ""))，得到的是一个Range对象。这里的Cells(i, 1) & ""也可以用Cells(i, 1).Value来代替。
3、t=d.items   ：把字典d中存在的所有的关键字对应的项赋给变量t。得到的是一个一维数组，下限为0，上限为d.Count-1。
4、[A11].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(t)) ：这句用了两次工作表转置函数Transpose之后赋给A11单元格开始的区域中。没明白两次置换是何目的？

jiminyanyan

renahu 发表于 2014-8-18 20:55
实例5  前期绑定的字典实例
一、问题的提出：
有多列多行数据，其中有重复的行，要求编写一段代码，求得 ...

http://club.excelhome.net/thread-1063511-1-1.html

jiminyanyan

renahu 发表于 2014-8-18 20:55
实例5  前期绑定的字典实例
一、问题的提出：
有多列多行数据，其中有重复的行，要求编写一段代码，求得 ...

将一维数组t  变为二维