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

¨D¦hÄæ§@·~­û¨C¤é²£¥X¼Æ¶q

¨D¦hÄæ§@·~­û¨C¤é²£¥X¼Æ¶q

¨D¨C¤é¦U§@·~­û²£¥X¼Æ¶q¡A¦pªþ¥ó

¨D¨C¤é¦U§@·~­û²£¥X¼Æ¶q.jpg
2017-12-1 21:53


¨D¨C¤é¦U§@·~­û²£¥X¼Æ¶q.rar (7.53 KB)

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:
20230608_1.jpg
2023-6-8 15:08


°õ¦æµ²ªG:
20230608_2.jpg
2023-6-8 15:08



Option Explicit
Sub TEST()
Dim Brr, Z, i&, j%, C%, T$
'¡ô«Å§iÅܼÆ
Set Z = CreateObject("Scripting.Dictionary")
'¡ô¥OZÅܼƬO ¦r¨å
Brr = Range([J2], [A65536].End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HA~JÄæÀx¦s®æ­È±a¤J°}¦C¤¤
For i = 3 To UBound(Brr)
   For j = 3 To 9 Step 3
      For C = j - 1 To j + 1
         T = Brr(i, 1) & Brr(1, j): Z(T) = Z(T) + Brr(i, C)
      Next
   Next
Next
'¡ô³]¶¶°j°é±N²Õ¦X¦r¦ê·íkey,item¬O ®É¼Æ²Ö¥[­È
Brr = Range([P2], [L65536].End(3))
'¡ô¥OBrr°}¦C­È´«²±¸Ë¥Ø¼ÐÀx¦s®æ­È
For i = 2 To UBound(Brr)
   For j = 2 To 5
      Brr(i, j) = Z(Brr(1, j) & Brr(i, 1))
   Next
Next
'¡ô³]¶¶°j°é±NZ¦r¨å¤¤ªºitem­È¦R¥X¨Óµ¹°}¦C
Range([P2], [L65536].End(3)) = Brr
'¡ô¥OBrr°}¦C­È¼g¤JÀx¦s®æ¤¤
Set Z = Nothing: Erase Brr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¥»©«³Ì«á¥Ñ joblyc017 ©ó 2017-12-2 10:36 ½s¿è

¦^´_ 1# 074063

¤½¦¡¸Ô¸Ñ¡A½Ð°Ñ¦Ò¡Ghttps://goo.gl/j92uAS
E0120_1.png
2017-12-2 10:36

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD