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

[µo°Ý] ½Ð±ÐÃö©ó¸ê®Æ¤ñ¹ï«á¤§¤£­«½Æªº¼Æ¶q

[µo°Ý] ½Ð±ÐÃö©ó¸ê®Æ¤ñ¹ï«á¤§¤£­«½Æªº¼Æ¶q

§Ú¦³¼Æµ§¸ê®Æ,¨C­ÓÀx¦s®æ¤¤ªº¸ê®Æ­Y¦³¦h­Ó¦r¦ê¬O¥H¤À¸¹°Ï¹j,§Ú·Q­n¥h§PÂ_¥Ñ¤À¸¹°Ï¹jªº¦r¦ê¬O§_¬Û¦P
±¡ªp¦³¥H¤U:
1)­Y[°ê§O]¤¤¶È¦³¤@­Ó¦r¦ê,«h©ó[¸ó°ê]Äæ¦ì¤¤Åã¥Ü0
2)­Y[°ê§O]¤¤¦³¤G­Ó©Î¤G­Ó¥H¤W¦r¦ê,¦ý¥Ñ©ó¤À¸¹°Ï¹jªº¦r¦ê¤ñ¹ï«á¬Û¦P,«h©ó[¸ó°ê]Äæ¦ì¤¤Åã¥Ü0
3)­Y[°ê§O]¤¤¦³¤G­Ó©Î¤G­Ó¥H¤W¦r¦ê,¦ý¥Ñ©ó¤À¸¹°Ï¹jªº¦r¦ê¤ñ¹ï«á¦³¤£¦PªÌ,«h©ó[¸ó°ê]Äæ¦ì¤¤Åã¥Ü¤£¦Pªº­Ó¼Æ
°£¤F³z¹L¸ê®Æ­åªR«á,¦A·f°t¨ä¥L¨ç¼Æ¥~,¦³¨S¦³¸û§Ö³tªº¸Ñ¨M¤èªk,ÁÂÁÂ!

°ê§O ¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@  ¸ó°ê
France¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@0
Japan; Japan¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@0
USA; USA; USA¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@0
Japan; South Korea¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@2
Singapore; Italy; USA; Italy¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@3
Japan; Japan; Japan; Japan¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@0
Japan; Japan; Japan¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@0
South Korea; South Korea; South Korea ¡@¡@¡@¡@¡@¡@¡@0
Turkey; USA¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@2

990920.rar (3.64 KB)

°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

¥»©«³Ì«á¥Ñ oobird ©ó 2010-8-20 11:55 ½s¿è

990920.rar (8.47 KB) ¦^´_ 1# °¶ÔÐ


    ·Pı©p¦n¹³±`­n³B²zÃþ¦ü¼Æ¾Ú¡A¼g­Ó¦Û­q¨ç¼Æ¨Ó¥Î¦p¦ó¡H

TOP

¦^´_ 1# °¶ÔÐ
´ê¼ö¾x¤@¤U
¦Û©w¸q¨ç¼Æ
¸ê®Æ­åªR¥[¨ç¼Æ
990920.rar (9.52 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÂÁÂoobird »P Hsieh ¨â¦ìª©¥Dªº¨ó§U,¤w¸Ñ¨M§Úªº°ÝÃDÅo!
°¶Ôйq¤l®Ñ,Åwªï§K¶O¤U¸ü°Ñ¦Ò
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
°¶ÔÐÂîѮw---https://www.facebook.com/groups/669579416484096/
¦³¤@®a¬a¥J©±---https://www.facebook.com/sadodona

TOP

Hsiehª©¥D¦^µªªº«Ü¦n,ÁÂÁ»¡©ú.
joyce

TOP

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

°õ¦æ«e:
20230510_1.jpg
2023-5-10 10:44


°õ¦æµ²ªG:
20230510_2.jpg
2023-5-10 10:45



Option Explicit
Sub TEST()
Dim Brr, Y, x, A, N%, i&
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OYÅܼƬO¦r¨å
Brr = Range([B2], [A65536].End(3))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HÀx¦s®æ­È±a¤J
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é
   A = Split(Replace(Brr(i, 2), " ", "") & ";", ";")
   '¡ô¥OAÅܼƬO¤@ºû°}¦C,¥H";"¦r¤¸¤À³Î¦r¦ê±a¤J
   For Each x In A
   '¡ô³]³v¶µ°j°é!xÅܼƬOA¤@ºû°}¦C¸Ìªº°}¦C¤l
      If x <> "" Then
      '¡ô¦pªGxÅܼƤ£¬OªÅ¦r¤¸?
         Y(x) = ""
         '¡ô¥OxÅܼƬOkey,item¬OªÅ¦r¤¸,¯Ç¤JY¦r¨å¸Ì(Âo­«½Æ)
         N = N + 1
         '¡ô¥ONÅܼƲ֥[1 (²Ö¥[°ê¼Æ)
      End If
   Next
   Brr(i, 1) = N: N = 0
   '¡ô¥O­ì°}¦C¦ì¸m²Ä1Äæ¼g¤JNÅܼÆ(°ê¼Æ),¥ONÅܼÆÂk¹s(¦]¬°¤U­Ó°j°é­n¥Î¦¹ÅܼÆ)
   Brr(i, 2) = IIf(Y.Count > 1, Y.Count, 0)
   '¡ô¥O­ì°}¦C¦ì¸m²Ä2Äæ¼g¤J ¸ó°ê¼Æ
   Y.RemoveAll
   '¡ô¥O²MªÅY¦r¨å
Next
[D1:E1] = [{"°ê§O¼Æ","¸ó°ê¼Æ"}]
'¡ô¥OÀx¦s®æ¼g¤J¼ÐÃD¦C
[D2].Resize(UBound(Brr), 2) = Brr
'¡ô¥OBrr°}¦C­È±q[D2]¶}©l±a¤JÀx¦s®æ
Set Y = Nothing: Erase Brr, A
'¡ô¥OÄÀ©ñÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD