上海大众销售培训:字典与数组 vba(第一例)

来源：百度文库 编辑：中财网 时间：2024/05/06 03:45:32
字典与数组 vba(第一例) 

Sub 矩形5_单击()
Range("L2:S4").ClearContents
arr = [K2:S4]
arr1 = [A2:I246]
Set d = CreateObject("scripting.dictionary") '创建字典
For i = 1 To 3
m = m + 1
d.Add arr(i, 1), m '创建需要统计的颜色名称
Next
For i = 1 To UBound(arr1) '循环查找区域竖向最大下标
If d.exists(arr1(i, 1)) Then '如果值为真

For j = 2 To UBound(arr, 2) '循环查找区域横向最大下标就是几维
arr(d.Item(arr1(i, 1)), j) = arr(d.Item(arr1(i, 1)), j) + arr1(i, j)
Next
End If
Next
Set d = Nothing
[k2].Resize(UBound(arr), UBound(arr, 2)) = arr
Set arr = Nothing
Set arr1 = Nothing
End Sub

 

 

中国第一本字典是???? 指针与数组 数组传递与接收 指针与数组问题。 结构与数组的区别 指针与数组的区别? 谁是第一个发明字典的人？ 我国第一部首编排的字典是什么? 请问VBA与VB有什么不同？ 马里奥与路易vba金手指 gsoap 只有第一个数组元素有值? listCtrl与数组得对应如何实现？ C语言中的数组与指针问题 数组与结构体的区别 c++与java数组有什么区别？ C语言指针与数组问题，不明白。 指针与数组、字符串的问题。 asp数组与数据库查询问题 我国的第一本字典和词典各是什么？ 请问：字典、词典与辞典的区别？ VBA哈利波特与密室的全部金手指(急) 求马里奥与路易vba的金手指 c#里string 与char数组怎么转换 CString与char字符数组怎么样才能相互转化使用?