- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 3
- ÂI¦W
- 0
- §@·~¨t²Î
-
- ³nÅ骩¥»
-
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2011-6-4
|
¦p¦óקï¥H¤U§», §âµ²ªG±qÄæ¦ì"q³f³æ" ¶}©l¶K¦bresult ¤W?
Sub nn()
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
With Sheet1
For Each a In .Range(.[A2], .[A65536].End(xlUp))
mystr = a.Offset(, 1) & a.Offset(, 2) & a.Offset(, 3) & a.Offset(, 4) & a.Offset(, 5)
¡@ If IsEmpty(d(mystr)) Then
¡@¡@¡@ar = a.Resize(, 6).Value
¡@¡@¡@d(mystr) = a.Resize(, 6).Value
¡@¡@¡@d1(mystr) = 1
¡@¡@¡@Else
¡@¡@¡@ar = d(mystr)
¡@¡@¡@ar(1, 6) = ar(1, 6) + Val(a.Offset(, 5))
¡@¡@¡@d1(mystr) = d1(mystr) + 1
¡@¡@End If
Next
End With
With Sheet2
¡@ .[A2:G65536] = ""
¡@ .[A2].Resize(d.Count, 6) = Application.Transpose(Application.Transpose(d.items))
¡@ .[G2].Resize(d.Count, 1) = Application.Transpose(d1.items)
End With
End Sub |
-
-
PICK.rar
(11.41 KB)
|