­ã´£³¡ªL

Sub TEST()
Dim Arr, r&, i&, xD, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([F5], [C65536].End(xlUp))
For i = 1 To UBound(Arr)
    T = Arr(i, 1):  r = xD(T):  Arr(i, 1) = Empty
    If r = 0 Then r = i: xD(T) = i
    Arr(r, 1) = Arr(r, 1) + Arr(i, 4)
Next i
[G5].Resize(UBound(Arr)) = Arr
End Sub

­ã´£³¡ªL

¦^´_ 7# n7822123


¥Î¦r¨åÀÉ¥h°O¿ý¡e­º¦¸¡f¥X²{ªº¡e¦C¸¹¡f¡A
§Q¥Î³o¦C¸¹¡A§Y¥i±N²Ö¥[­È©ñ¦b³o­Ó¦ì¸m¡A

¥t¡A§Q¥ÎArr°}¦Cªº¡e²Ä¤@Äæ¡f°µ¬°²Ö¥[­Èªº¦s©ñ°Ï¡A§Y¤£¥²¦A©w¸q¤@­ÓBrr°}¦C,
¦ý¦b°j°é®É,¥ÎÅܼƨú±o¥¦ªº­È¡@¡Ö¡Ö¡@T = Arr(i,1)
µM«á¦A±N¥¦²MªÅ¡@¡Ö¡Ö¡@Arr(i,1) = Empty