- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-12-22
|
- Sub WWW()
- Dim Arr, Brr, xD, i&, j%, N&, SS, TM
- TM = Timer
- Set xD = CreateObject("Scripting.Dictionary")
- Arr = Range([M4], Cells(Rows.Count, "M").End(xlUp))
- ReDim Brr(1 To UBound(Arr), 1 To 2)
- For i = 1 To UBound(Arr)
- If Arr(i, 1) <> "" Then xD(Arr(i, 1)) = i
- Next i
- Arr = Range([D4], Cells(Rows.Count, "D").End(xlUp)(1, 5))
- For i = 1 To UBound(Arr)
- N = xD(Arr(i, 1)): If N = 0 Then GoTo 101
- SS = Split(Mid(Brr(N, 1), 2) & "/", "/")
- For j = 2 To 5
- If IsNumeric(Arr(i, j)) Then
- SS(0) = Val(SS(0)) + Arr(i, j)
- SS(1) = Val(SS(1)) + 1
- End If
- Next j
- Brr(N, 1) = "=" & SS(0) & "/" & SS(1) '=Á`¦Xp/Ó¼Æ
- Brr(N, 2) = Brr(N, 2) + 1
- 101: Next i
- [N4].Resize(UBound(Brr), 2) = Brr
- MsgBox "¤w§¹¦¨! Á`¦@¡G" & Timer - TM & "¬í !"
- End Sub
½Æ»s¥N½X
Xl0000001.rar (91.71 KB)
|
|