请帮助，通过告警端口统计每台设备的告警次数

15345589598

请帮助，通过告警端口统计每台设备的告警次数

15345589598

目的是把每台设备的告警次数统计出来后进行排序，通过统计结果对告警次数较多的设备进行关注。

请老大们帮助！！

[ 本帖最后由 YZLSZAJ 于 2011-1-30 18:06 编辑 ]

heike2004

数据透视表，计数 通过告警端口统计告警次数.rar (34.05 KB, 下载次数: 16)

2011-1-30 13:06 上传

点击文件名下载附件

无辣味水煮鱼

你看看这个是否符合你要求(sheet2中).

15345589598

多谢关注，二楼的HEIKE大哥的数据透视表方法可取，只是结果中还想包含前面几列的数据，不知是否可行。
三楼的水煮鱼老大的点击按钮出错。

无辣味水煮鱼

Sub test1()
Dim d As Object, arr, brr(), i%, s, n, j%, aa, t, b%, crr, m
aa = Timer
Set d = CreateObject("scripting.dictionary")
Worksheets(1).Select
arr = Range("A1:e" & Range("A65536").End(xlUp).Row)
For i = 1 To UBound(arr)
    s = arr(i, 1) & "!" & arr(i, 2) & "!" & arr(i, 3) & "!" & arr(i, 4) & "!" & arr(i, 5)
        d(s) = d(s) + 1
Next i
Worksheets(2).Select
t = d.keys
ReDim brr(1 To UBound(t) + 1, 1 To 5)
For b = 0 To UBound(t)
    m = Split(t(b), "!")
    n = n + 1
    brr(n, 1) = m(0)
    brr(n, 2) = m(1)
    brr(n, 3) = m(2)
    brr(n, 4) = m(3)
    brr(n, 5) = m(4)
Next b
[a2].Resize(n, 5) = brr
[f2].Resize(d.Count, 1) = Application.Transpose(d.items)
[a1].Resize(1, 6) = Array("分公司", "子区域", "网管名称", "网元名称", "告警端口位置", "出现次数")

Range("A2:f" & d.Count).Sort key1:=Range("F2"), order1:=xlDescending
MsgBox "程序工运行了" & Format(Timer - aa, "0.00") & "秒"
End Sub