[讨论]有点难度的汇总

andyzero

很有难度，表示关注，解决后认真学习领会。

ldy888

ThQt358B.rar (216.6 KB, 下载次数: 57)

2007-11-29 11:40 上传

点击文件名下载附件
[讨论]有点难度的汇总

测试60000条数据

字典1秒       二维 7秒                   一维 36秒

彭兄如想用 ado 做， 可以有个参照，少走弯路

ldy888

QUOTE:

以下是引用BrandSex在2007-11-29 11:30:16的发言：

一个论坛不能容下两个天才，除非一公一母，他的程序是凑出来的好伐，这也算是天才，那我岂不是天才中的天才，人称the gods of god。

呵呵 你也是。

你是需要有人天天夸的天才.

 

我是专门鉴定检验天才。

后面的天才排好队，别挤

泓()

请问一下彭兄,你的汇总中的,机型,的顺序能否可调，比如我先统计，s11机型，而不是sm6,

再比如，故障现象：你的是＂不充电＂开始的，能否从＂不开机＂开始呢，

但不同机型的故障现象，仍有规则的顺序．

不知，这种汇总是否合题意．

gly1126

fnpnHhAy.rar (15.58 KB, 下载次数: 14)

2007-11-29 13:43 上传

点击文件名下载附件
[讨论]有点难度的汇总

transform 省份&' '&count(*) select 机型,故障,count(*) as 数量,round(count(*)/qb.sl,3) as 比例 from [数据$],(select 机型 as jx,count(*) as sl from [数据$] group by 机型) as qb  where [数据$].机型=qb.jx group by 机型,故障,qb.sl pivot 省份

彭希仁

QUOTE:

以下是引用泓()在2007-11-29 12:18:27的发言：

请问一下彭兄,你的汇总中的,机型,的顺序能否可调，比如我先统计，s11机型，而不是sm6,

再比如，故障现象：你的是＂不充电＂开始的，能否从＂不开机＂开始呢，

但不同机型的故障现象，仍有规则的顺序．

不知，这种汇总是否合题意．

机型是可调的，不过故障是按数量从小到大排下来的

彭希仁

单纯的SQL加数组来实现还是比较麻烦，看来得字典，数组、ADO共同参与才好做一点。

kzb

oobird版主最擅长汇总的例子，能否也参加，编一个。谢谢！

泓()

做,肯定能做出,有点烦,

我的思路,先在每列得到不重复数,先排列出所有的可能,然后,,,

如:

Set dic = CreateObject("Scripting.Dictionary")
n = Cells(65536, 1).End(xlUp).Row

cel = [b2].Resize(n, 1)
For i = 1 To UBound(cel)
dic(cel(i, 1)) = ""
Next
arr = dic.keys
dic.RemoveAll

cel = [c2].Resize(n, 1)
For i = 1 To UBound(cel)
dic(Replace(cel(i, 1), " ", "")) = ""
Next
brr = dic.keys
dic.RemoveAll

cel = [a2].Resize(n, 1)
For i = 1 To UBound(cel)
dic(cel(i, 1)) = ""
Next
crr = dic.keys
dic.RemoveAll

For i = 0 To UBound(arr) - 1
For j = 0 To UBound(brr) - 1
For k = 0 To UBound(crr) - 1
dic.Add arr(i) & "," & brr(j) & "," & crr(k), 0
Next k, j, i

cel = [a2].Resize(n - 1, 3)
For p = 1 To n - 1
s = cel(p, 2) & "," & Replace(cel(p, 3), " ", "") & "," & cel(p, 1)
If dic.exists(s) Then dic.Item(s) = dic.Item(s) + 1
Next

...

泓()

加上以下代码,

可以输出看看,问题已经变简单了一些

[d1].Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.keys)
[e1].Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.items)