Andy2483

¦^´_ 1# john2006168


    ÁÂÁ½׾Â,ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å¥H°f°j°é³B¸Ì,¾Ç²ß¤è®×¦p¤U,½Ð«e½ú°Ñ¦Ò
°õ¦æµ²ªG:

¤U¸ü (112.86 KB)

2024-1-4 08:01

Option Explicit
Sub TEST()
Dim Brr, Crr, Z, i&, R&, T$
Set Z = CreateObject("Scripting.Dictionary")
Brr = Range([D3], [A65536].End(xlUp))
ReDim Crr(1 To UBound(Brr), 1 To 1)
For i = UBound(Brr) To 1 Step -1
   T = Brr(i, 1) & "|" & Brr(i, 2): R = Z(T)
   If R = 0 Then R = i: Z(T) = R
   Crr(R, 1) = Crr(R, 1) + Brr(i, 4)
Next
[G3].Resize(UBound(Crr)) = Crr
End Sub