Excel VBA 字典/数组示例

A 将数组作为字典的ValuePrivate Sub CommandButton3_Click()
Dim arr, arr1, i&, d As Object
arr = Sheets(3).[a1].CurrentRegion
arr1 = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)d(arr(i, 1)) = ""
Next i
For i = 2 To UBound(arr1)If d.exists(arr1(i, 1)) Then d(arr1(i, 1)) = Array("", arr1(i, 3), "", arr1(i, 5), arr1(i, 6))
Next i
Sheets(3).[b2].Resize(d.Count, UBound(arr, 2) - 1) = Application.Transpose(Application.Transpose(d.items))
End SubB法
Private Sub CommandButton1_Click()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)d(arr(i, 1)) = i
Next i
brr = Sheet3.Range("a1").CurrentRegion
For i = 2 To UBound(brr)n = d(brr(i, 1))brr(i, 3) = arr(n, 3)brr(i, 5) = arr(n, 5)brr(i, 6) = arr(n, 6)
Next
Sheet3.Range("a1").CurrentRegion = brr
End Subc = Array(3, 5, 6)
For i = 2 To UBound(brr)n = d(brr(i, 1))For j = 0 To 2brr(i, c(j)) = arr(n, c(j))Next
Next
原贴
http://club.excelhome.net/thread-1057654-1-1.html
http://club.excelhome.net/thread-698873-1-1.html

Excel VBA 字典/数组示例相关推荐

excel VBA 字典与集合（Dictionary与Collection）
Dictionary对象将替换Collection对象,并提供附加的语言从而使增加和删除记录的速度比以前提高三倍,虽然Visual Basic 6.0只有很少的新特点,但是具有某些功能强大的新的对象模 ...
VBA 字典数组运用查询系统
Sub find() '找 Set d = CreateObject("scripting.dictionary") With Sheets("data") ...
VBA 字典嵌套字典 + 数组
VBA 字典嵌套字典 + 数组功能展示为Excel VBA字典中嵌套字典,内层字典值为一个数组 Public Sub arrayInDictWithInDict()myarr = Array(&qu ...
学习Excel VBA（一）——VBA理论初步
学习Excel VBA(一)--VBA理论初步一.Excel VBA的数据类型 1.基本数据类型 2.枚举类型(类似于C语言的enum) 3.自定义类型(类似于C语言的typedef struct) ...
【Excel VBA和Python对照学习】创建字典
Excel VBA和Python双语对照学习我们从小学习语文,都用过字典.查字典时可以从第一页开始,一页一页地往下找,直到找到为止.这样做明显效率低下,特别是字的位置比较靠后的时候.所以查字典时不这 ...
excel vba真正的动态数组实例-按需定义数组大小
excel vba真正的动态数组实例一.动态数组的定义动态数组的定义,一开始不需要给数组标明上界和下界.直接定义即可,如下面的代码: Dim MyStr() As String 这样,就定义了一个 ...
Xlookup函数、VBA字典和哈希数组“竞速“
公司的报表用了很多vlookup函数,每次打开和编辑就跟蜗牛一样,极大影响效率.对此有一些不同的解决方案,比如设置公式手动刷新,用sql查找.vba编写函数查找等.这里我做了Xlookup函数.VBA ...
Excel·VBA数组行列转换函数
目录 1,二维数组与一维嵌套数组互相转换函数 2,二维数组转换为指定行数/列数的函数 3,数组行列转置函数 1,二维数组与一维嵌套数组互相转换函数 <Excel·VBA数组组合函数.组合求和&g ...
zemax 宏怎么编写数组_编写Excel VBA程序的10个技巧
学习Excel技术,关注微信公众号: excelperfect 学会一些有趣的技巧或想法,能够有效地提高ExcelVBA编程水平.下面是chandoo.org总结的编写Excel VBA程序的10个技 ...

Excel VBA 字典/数组示例

Excel VBA 字典/数组示例相关推荐

最新文章

热门文章

Excel VBA 字典/数组 示例

Excel VBA 字典/数组 示例相关推荐

最新文章

热门文章

Excel VBA 字典/数组示例

Excel VBA 字典/数组示例相关推荐