ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] ±ø¥ó­pÁ`©M

[¤À¨É] ±ø¥ó­pÁ`©M

¥»©«³Ì«á¥Ñ john2006168 ©ó 2024-1-3 18:09 ½s¿è

·Q½Ð°Ý¤@¤Uexcel ¤½¦¡.
±ø¥ó1:shipment no¬Û¦P
±ø¥ó2:Date¬Û¦P
²Å¦X±ø¥ó:µ²ªGCBMÁ`©M

Â^¨ú02.JPG (76.83 KB)

Â^¨ú02.JPG

TEST.zip (8.43 KB)

¦^´_ 1# john2006168


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


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
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

(¿é¤J½s¸¹12232) googleºô§}:https://hcm19522.blogspot.com/
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

ÁÂÁ¨â¦ì¦Ñ®vªº¦^Âе{¦¡½X©MEXCEL¤½¦¡,:lol

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD