根据号码统计报名次数代码

深秋红叶2019

根据报名登记的电话条件，在学员建档中相对应的电话统计次数

NadrsSaber

函数都能解决呀  countif, sumif

深秋红叶2019

NadrsSaber 发表于 2019-12-2 13:03
函数都能解决呀  countif, sumif

我之前用的函数，函数多了就容易卡

wxxydl

Sub 统计()
    Dim d As Object, sht As Worksheet, sht1 As Worksheet
    Dim arr, brr, i&, j&, crr()
    Set d = CreateObject("scripting.dictionary")
    Set sht = Worksheets("学员信息建档")
    Set sht1 = Worksheets("报名登记")
    arr = sht.[a1].CurrentRegion
    brr = sht1.UsedRange
    For i = 8 To UBound(brr)
        If Not d.exists(brr(i, 2)) Then
            ReDim crr(1 To 2)
            crr(1) = 1
            For j = 9 To 25
                crr(2) = crr(2) + brr(i, j)
            Next j
        Else
            crr = d(brr(i, 2))
            crr(1) = crr(1) + 1
            For j = 9 To 25
                crr(2) = crr(2) + brr(i, j)
            Next j
        End If
        d(brr(i, 2)) = crr
    Next
    With sht
    .Activate
    For i = 4 To UBound(arr)
        crr = d(arr(i, 1))
        .Cells(i, 8) = crr(1)
        .Cells(i, 9) = crr(2)
    Next
    End With
End Sub

wxxydl

深秋红叶2019 发表于 2019-12-2 13:35
我之前用的函数，函数多了就容易卡

我给你做了一个，正在等审核

wxxydl

我给你编了一个

深秋红叶2019

wxxydl 发表于 2019-12-2 13:49
我给你编了一个

谢谢老师，辛苦了