|
Sub AwTest()
Dim i&, j%, m, n, jj, arr, tempAr, tempBr, d As Object
Set d = CreateObject("Scripting.Dictionary")
arr = Range("A3:H" & Cells(Rows.Count, 3).End(3).Row)
For i = 2 To UBound(arr)
tempAr = Split(Application.Trim(Trim(arr(i, 7))), " ")
tempBr = Split(Application.Trim(Trim(arr(i, 8))), " ")
If arr(i, 4) = "二等月度" Then
jj = 80
ElseIf arr(i, 4) = "三等月度" Then
jj = 40
End If
If Len(arr(i, 3)) Then
If InStr(arr(i, 3), "系列") Then
For j = 0 To UBound(tempAr)
d(tempAr(j)) = d(tempAr(j)) + 40
Next
For j = 0 To UBound(tempBr)
d(tempBr(j)) = d(tempBr(j)) + 20
Next
Else
For j = 0 To UBound(tempAr)
m = 40 / (UBound(tempAr) + 1)
d(tempAr(j)) = d(tempAr(j)) + m
Next
For j = 0 To UBound(tempBr)
n = 20 / (UBound(tempBr) + 1)
d(tempBr(j)) = d(tempBr(j)) + n
Next
End If
End If
Next
[l4].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub
|
评分
-
1
查看全部评分
-
|