|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
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
|
|