条件统计不重复个数

xpw6061

各位高手，请求帮忙

　　在论坛中，关于不重复数个数的统计有很多，不知道有没有根据条件来统计不重复个数的。

在数据区中，A列为单位名称，B列为姓名　C列为类别，已对A列进行了排序，相同单位的排在一起，现要求根据单位统计每一个单位不重复类别的个数

2GIB5zBr.rar (2.54 KB, 下载次数: 129)

2007-5-18 10:45 上传

点击文件名下载附件
条件统计不重复个数

[此贴子已经被作者于2007-5-18 10:46:06编辑过]

ccwan

这个问题关注一下。恐怕要用CountIf

oobird

Sub yy()
Dim H As New Collection, arr, n%, m%, i%, k%
n = [a65536].End(xlUp).Row
rng = Range("a2:c" & n)
On Error Resume Next
For i = 1 To n - 1
H.Add rng(i, 1) & " " & rng(i, 3), CStr(rng(i, 1) & " " & rng(i, 3))
Next
ReDim arr(1 To H.Count, 1 To 2)
arr(1, 1) = [a1]: arr(1, 2) = [c1]
k = 1
For i = 1 To H.Count
If Split(H(i))(0) <> Split(H(i + 1))(0) Then
s = i - s: k = k + 1
arr(k, 1) = Split(H(i))(0): arr(k, 2) = s: s = i
End If
Next
[f1].Resize(k, 2) = arr
End Sub

zhujunyun

看得晕晕的

ammui

oobird 发表于 2007-5-18 14:01
Sub yy()Dim H As New Collection, arr, n%, m%, i%, k%n = [a65536].End(xlUp).Rowrng = Range("a2:c" &amp; ...

这只上单条件，如果双条件或是多条件呢？代码要怎么修改？比如加上名字条件。

lsdongjh

SQL 不是非常简单的事吗？

魂断蓝桥

lsdongjh 发表于 2018-7-25 15:32
SQL 不是非常简单的事吗？

代码简单一些，效率不如字典+数组快

lsdongjh

魂断蓝桥 发表于 2018-7-25 15:35
代码简单一些，效率不如字典+数组快

任意条件，多条件，这种情况下，SQL肯定快一些

魂断蓝桥

lsdongjh 发表于 2018-7-25 15:37
任意条件，多条件，这种情况下，SQL肯定快一些

不跨工作簿，数组+字典比sql快。

excel 缺了数据库最最重要的索引，没有索引效率大打折扣。

lsdongjh

魂断蓝桥 发表于 2018-7-25 15:50
不跨工作簿，数组+字典比sql快。

excel 缺了数据库最最重要的索引，没有索引效率大打折扣。

效率的问题，我看大家都是用计时的方式，我们是不是换种方式，再来评判：
1、在工作簿启动时，直接初始化一个对象，将ADODB打开
2、从SQL语句拼装开始，到回显数据完毕，这段时间计时？

很多人认为 数组、字典的效率高，原因是 ADODB对象的初始化时间长，但如果在启动时直接装载，效率肯定大于数组+字典