分类汇总-字典-条目数组问题

e表格学习

为什么字典的条目是数组时，分类汇总语句：
d(Arr(i, 1)) = d(Arr(i, 1)) + Array(Arr(i, 2), Arr(i, 3), Arr(i, 4))
会显示“类型不匹配”错误？
字典“条目“.rar (17.87 KB, 下载次数: 76)

2015-11-8 12:18 上传

点击文件名下载附件

huang1314wei

数组与数组是不能相加的，要相加也是每个元素之间相加

huang1314wei

1. Sub 数组()
   
2.     Dim d As Object, arr, brr, i%, j%, x%
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     arr = Range("a2:d" & Range("a65536").End(3).Row).Value
   
5.     ReDim brr(1 To 1000, 1 To 4)
   
6.     For i = 1 To UBound(arr)
   
7.         If Not d.exists(arr(i, 1)) Then
   
8.             j = j + 1
   
9.             d(arr(i, 1)) = j
   
10.             brr(j, 1) = arr(i, 1)
    
11.             For x = 2 To 4
    
12.                 brr(j, x) = arr(i, x)
    
13.             Next
    
14.         Else
    
15.             For x = 2 To 4
    
16.                brr(d(arr(i, 1)), x) = brr(d(arr(i, 1)), x) + arr(i, x)
    
17.             Next
    
18.         End If
    
19.     Next
    
20.     Range("F2").Resize(j, 4) = brr
    
21. End Sub

复制代码

huang1314wei

附件参考：

字典“条目“.rar (17.93 KB, 下载次数: 129)

2015-11-8 12:50 上传

点击文件名下载附件

e表格学习

huang1314wei 发表于 2015-11-8 12:50
附件参考：

谢谢！huang1314wei老师的解法是完全正确的。
但是，问题还是存在：
条目可以装数组、字典等等。
但是条目里的数组、字典“不能”参与运算，
这岂不意味着，条目里的数组、字典的作用有限，至少它们在四则运算中无能为力？

e表格学习

huang1314wei 发表于 2015-11-8 12:42
数组与数组是不能相加的，要相加也是每个元素之间相加

“数组与数组是不能相加的”----此句难以理解！！

e表格学习

huang1314wei 发表于 2015-11-8 12:42
数组与数组是不能相加的，要相加也是每个元素之间相加

“要相加也是每个元素之间相加”----对啊，我的条目数组元素是一一对应的，它们应该可以相加：
之前，我测试过d.add 关键字，条目数组      （当关键字第一次出现时）
但是，不行！也是“类型不匹配”。

e表格学习

huang1314wei 发表于 2015-11-8 12:42
数组与数组是不能相加的，要相加也是每个元素之间相加

如果条目数组是可以参与“对应运算”的，那么，我的解题程序将会显得相当简洁。
（当然，此类分类汇总题目在实际应用中最简洁的解法是直接使用“数据透视图表”。此处纯粹是理论性求教-----菜鸟须知）

huang1314wei

e表格学习 发表于 2015-11-8 14:20
如果条目数组是可以参与“对应运算”的，那么，我的解题程序将会显得相当简洁。

想法是好的，现实是残酷的，VBA你要按照它的脾气来，否则他就不听你的话

e表格学习

huang1314wei 发表于 2015-11-8 14:25
想法是好的，现实是残酷的，VBA你要按照它的脾气来，否则他就不听你的话

呵呵，是的。何止是VBA的学习！
但是，“脾气”应该稳定，不能此起彼伏（否则，人们怎么与其和睦相处？）。包括VBA字典，呵呵。