- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-5
|
Sub TEST()
Dim Arr, Brr, xD, T&, i&, j%, U&, N&
Arr = Range([A1], [A65536].End(xlUp)(1, 7))
Set xD = CreateObject("scripting.dictionary")
ReDim Brr(1 To UBound(Arr), 1 To 7)
For i = 2 To UBound(Arr)
¡@¡@T = Arr(i, 1): U = xD(T)
¡@¡@If U > 0 Then Brr(U, 5) = Brr(U, 5) + Arr(i, 5): GoTo 101
¡@¡@N = N + 1: U = N: xD(T) = N
¡@¡@For j = 1 To 7: Brr(U, j) = Arr(i, j): Next
101: Next i
If N > 0 Then [J1].Resize(N, 7) = Brr
End Sub
¦P¼ËÅÞ¿è¡A¤£¦P¼gªk¡A¦Û¦æ¥h´¢¼¯¡ã¡ã
¤Wºô¥h§ä ¦r¨åÀÉ ¤Î array°}¦C ªº¸ê®Æ¤Î»¡©ú¡AÁA¸Ñ¤F¡A¨ä¥¦³£Â²³æ¡I
¡@
¡@ |
|