[已解决]谢谢枯禅老师，另类的统计001

lhj323323

 

OJZHi6B8.rar (24.17 KB, 下载次数: 20)

2010-3-8 20:53 上传

点击文件名下载附件
[求助]另类的统计001
各位老师

上传的附件中有较详细的需求，

请看看如何写VB，谢谢了。

[此贴子已经被作者于2010-3-8 22:34:20编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-8 22:22

改成这样试试：

Sub test()
Dim arr, i%, j%, k%, arrt(0 To 9, 1 To 2)
Dim d As Object
With Sheets("数据源")
    arr = .Range("c3:e" & .[c65536].End(3).Row)
End With
For i = 1 To 3
Set d = CreateObject("Scripting.Dictionary")
    For j = 1 To UBound(arr) - 1
        If CInt(arr(j, i)) = Cells(3, i * 2) Then
            d(CInt(arr(j + 1, i))) = d(CInt(arr(j + 1, i))) + 1
        End If
    Next
    For k = 0 To 9
        arrt(k, 1) = k
        arrt(k, 2) = d(k)
    Next
    Cells(6, i * 2).Resize(10, 2) = arrt
    Set d = Nothing
Next
End Sub

跳转到最佳答案楼层

枯禅

OBN289nE.rar (28.38 KB, 下载次数: 1)

2010-3-8 21:30 上传

点击文件名下载附件
[求助]另类的统计001

lhj323323

QUOTE:

以下是引用枯禅在2010-3-8 21:30:00的发言：

d(CInt(arr(j + 1, i))) = d(CInt(arr(j + 1, i))) + 1

电脑提示这句（显示为黄色），变量未定义，请问怎么修改？

运行时错误91

对象变量或with块变量未设置

另 CInt是什么意思呢？

[此贴子已经被作者于2010-3-8 22:23:16编辑过]

枯禅

改成这样试试：

Sub test()
Dim arr, i%, j%, k%, arrt(0 To 9, 1 To 2)
Dim d As Object
With Sheets("数据源")
    arr = .Range("c3:e" & .[c65536].End(3).Row)
End With
For i = 1 To 3
Set d = CreateObject("Scripting.Dictionary")
    For j = 1 To UBound(arr) - 1
        If CInt(arr(j, i)) = Cells(3, i * 2) Then
            d(CInt(arr(j + 1, i))) = d(CInt(arr(j + 1, i))) + 1
        End If
    Next
    For k = 0 To 9
        arrt(k, 1) = k
        arrt(k, 2) = d(k)
    Next
    Cells(6, i * 2).Resize(10, 2) = arrt
    Set d = Nothing
Next
End Sub

hnnyfcykl

学习