- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
¦^´_ 5# lone_tiger0303
¶]¤@¤U³oÓµ{¦¡- Sub yy()
- Dim d As Object, arr, a, i%, m%
- Set d = CreateObject("Scripting.Dictionary")
- a = Range("ac16:ah" & [ah65536].End(3).Row)
- ReDim arr(1 To UBound(a), 1 To 3)
- For i = 1 To UBound(a)
- If d(a(i, 6)) = "" Then
- m = m + 1
- d(a(i, 6)) = m
- arr(m, 1) = a(i, 6)
- arr(m, 2) = a(i, 1)
- arr(m, 3) = a(i, 2)
- Else
- arr(d(a(i, 6)), 2) = arr(d(a(i, 6)), 2) + a(i, 1)
- arr(d(a(i, 6)), 3) = arr(d(a(i, 6)), 3) + a(i, 2)
- End If
- Next
- Range("aj16").Resize(m, 3) = arr
- End Sub
½Æ»s¥N½X |
|