用字典嵌套统计

dsmch

因表格是二维的，用行和列字段名完全可以用一个字典代替（以前没有发现）
当然，就这个例子也可以通过数组循环不用一个字典。打算写一个传销的金字塔人员结构，这样字典嵌套可能就会体现出它的优越性了，考虑成熟了贴上来再与大家讨论。

longming3

dsmch 发表于 2013-5-2 22:31
因表格是二维的，用行和列字段名完全可以用一个字典代替（以前没有发现）
当然，就这个例子也可以通过数组 ...

Sub Macro3()
    m1 = 2  '最小的行数
    m2 = 10 '最大的行数
    n1 = 1  '最小的列数
    n2 = 6  '最大的列数
    s = "Sheet1!R" & m1 & "C" & n1 & ":R" & m2 & "C" & n2
    Range("k1").Resize(1, n2) = Range("a1").Resize(1, n2).Value
    Range("k2").Consolidate s, xlSum, 0, 1
End Sub

这算不算一种方法

dsmch

longming3 发表于 2013-5-2 22:42
Sub Macro3()
    m1 = 2  '最小的行数
    m2 = 10 '最大的行数

目标格式中店名、月份和原始数据的格式不可能一致，感觉用一个字典处理最方便灵活。

陈国华

凑个热闹，献丑了！

1. Sub Macro2()
   
2. Dim arr, brr, crr, d As Object, i&, j&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion '原始数据
   
5. brr = Range("a15").CurrentRegion '目标数据
   
6. ReDim crr(2 To UBound(brr), 2 To UBound(brr, 2))
   
7. For i = 2 To UBound(brr)
   
8.    d(brr(i, 1)) = i
   
9. Next
   
10. For i = 2 To UBound(arr)
    
11.    For j = 2 To UBound(arr, 2)
    
12.        crr(d(arr(i, 1)), j) = crr(d(arr(i, 1)), j) + arr(i, j)
    
13.    Next
    
14. Next
    
15. Range("b16").Resize(UBound(crr) - 1, UBound(crr, 2) - 1) = crr
    
16. End Sub

复制代码

guojianlin1985

数据多的话速度快吗？

guojianlin1985

就这个附件而言，用sumif公式更快而且还省事。

jiangdong110

好例子，受益匪浅！

sheet1

用多个字典也挺简单的
Sub text1()
Dim d As Object, ar, x%, y%
Set d = CreateObject("scripting.dictionary")
ar = [a1].CurrentRegion
For x = 2 To UBound(ar, 2)
    For y = 2 To UBound(ar)
        d(ar(y, 1)) = d(ar(y, 1)) + ar(y, x)
    Next
    If x = 2 Then Cells(16, 1).Resize(d.Count, 1) = Application.Transpose(d.keys)
    Cells(16, x).Resize(d.Count, 1) = Application.Transpose(d.items)
    d.RemoveAll
Next
End Sub

香川群子

显然楼主对字典的用法虽然已经入门，但理解还不够深刻。

提醒你【字典的特点】
一、字典关键词 key 的特点： 唯一、不重复。和itme项目有直接关联性。
因此：
1. key是不重复的。因此可以用来：
  a. 排除重复项   应用实例略
  b. 合并同类项   应用实例略
  
2. key对item项的直接关联性，可以用来：
  a. 检索并返回key对应的item项目内容
  b. 快速定位
     如果把item内容设置为：行、或列位置，或单元格地址等，
     那么相当于通过key就可以用来快速定位，直接确定对应位置，
     否则需要对数组进行遍历循环以及比对，因此这个作用对字典用法来说非常重要。

3. 字典中key是否存在的检查，以及不同处理
  
  ………………这个略了，一下子说不完。
  

二、Item项目的基本用法。
1. 统计： 即合并同类项过程中，对相同key的某个属性进行合并、统计。
  a. 计数+1
   b. 数量、金额加总、汇总(包括扣减)
2. 合并： 不可计算部分的信息合并
  a. 字符信息的合并 (处理完成后可以split拆分……)
   b. 查找、替换
  c. 数组形式的处理 (=Array(,,,)……)
3. 字典嵌套
  a. 字典嵌套字典
  b. 字典嵌套数组
4. 特殊处理
  如Item项目为Range对象时，对于Range对象的各种处理方法


…………

但是，与此同时，字典的key值、Item内容的处理方法不同造成的算法上的差异，
对于新手和老手之间的差异，也几乎是天地之间的差异……

一个好的算法，即有效合理地字典对象使用，差别真的很大。

这方面，似乎只有靠经验的积累了……没有捷径。


楼主大概就是缺经验。呵呵。


   

dsmch

香川群子 发表于 2013-5-4 11:56
显然楼主对字典的用法虽然已经入门，但理解还不够深刻。

提醒你【字典的特点】

字典接触也有好几年了，字典嵌套确实没有接触过，
论坛上的有关介绍也是支离破碎，群子不妨就此贴拓展一下有关知识。