多条件统计

chinamzacc

在实际工作作，需要对数据进行有条件统计

主要实现：

1、统计不同入院日期的人数，例如：2012-09-13    有2人入院

2、统计不同出院日期的人数，例如：2012-09-17    有25人出院

3、统计不同日期的报销人数：例如：2012-11-01 09:39:36:036（报销的时间只需统计到日期，不用管后面的时刻）  有5人报销

4、针对以上的统计查询结果，再进一步分类到是哪个医院、哪些镇。

最好能给出统计的公式，谢谢！我尝试用数据透视表，但因数据量比较大，大约10万条，有所限制。

9998.rar (14.49 KB, 下载次数: 12)

2013-5-25 17:18 上传

点击文件名下载附件

清风幽闲

9998.rar (22.57 KB, 下载次数: 22)

2013-5-25 17:58 上传

点击文件名下载附件

chinamzacc

能否用公式来实现,VB我实在是不会

chinamzacc

Sub 统计()
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
Dim rng As Range
For Each rng In Range("d3:d375")
    d1(rng.Value) = d1(rng.Value) + 1
    d2(rng.Offset(, 1).Value) = d2(rng.Offset(, 1).Value) + 1
    d3(Trim(Left(rng.Offset(, 3), InStr(rng.Offset(, 3), " ")))) = d3(Trim(Left(rng.Offset(, 3), InStr(rng.Offset(, 3), " ")))) + 1
Next rng
For Each rngd In d1.keys
    m = m + 1
    Cells(m + 1, "i") = rngd
Next rngd
m = 0
For Each rngd In d1.items
    m = m + 1
    Cells(m + 1, "j") = rngd
Next rngd
m = 0
For Each rngd In d2.keys
    m = m + 1
    Cells(m + 1, "k") = rngd
Next rngd
m = 0
For Each rngd In d2.items
    m = m + 1
    Cells(m + 1, "l") = rngd
Next rngd
m = 0
For Each rngd In d3.keys
    m = m + 1
    Cells(m + 1, "m") = rngd
Next rngd
m = 0
For Each rngd In d3.items
    m = m + 1
    Cells(m + 1, "n") = rngd
Next rngd
End Sub