½Ð±Ð¦r¦ê¤¤ªº¸ê®Æ¦p¦ó¤ñ¹ï¦ÓÂ^¨ú¬Û¹ïÄæ¦ìªº¸ê®Æ?
 
- ©«¤l
 - 107 
 - ¥DÃD
 - 27 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 138 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - vista 
 - ³nÅ骩¥»
 - office2003 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - ¥x¥_¿¤ 
 - µù¥U®É¶¡
 - 2010-5-2 
 - ³Ì«áµn¿ý
 - 2025-8-15 
 
  | 
 ½Ð±Ð¦r¦ê¤¤ªº¸ê®Æ¦p¦ó¤ñ¹ï¦ÓÂ^¨ú¬Û¹ïÄæ¦ìªº¸ê®Æ?
                
½Ð±Ð¦r¦ê¤¤ªº¸ê®Æ¦p¦ó¤ñ¹ï¦ÓÂ^¨ú¬Û¹ïÄæ¦ìªº¸ê®Æ?  
½Ð¬ÝªþÀÉ.........ÁÂÁ«ü¾É |   
- 
 
 
- 
Book1.rar
(4.71 KB)
 
 
 
 
 
 
 
 
 | 
| 
 ¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤ 
 | 
 | 
 | 
 | 
 | 
 
- ©«¤l
 - 1572 
 - ¥DÃD
 - 16 
 - ºëµØ
 - 2 
 - ¿n¤À
 - 1521 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - xp 
 - ³nÅ骩¥»
 - office 2003 
 - ¾\ŪÅv
 - 150 
 - ©Ê§O
 - ¨k 
 - µù¥U®É¶¡
 - 2010-5-1 
 - ³Ì«áµn¿ý
 - 2016-1-13 
 
   
 | 
                
 ¥»©«³Ì«á¥Ñ oobird ©ó 2010-11-21 17:31 ½s¿è  
 
=INDEX(H$22:H$24,MATCH(TRUE,NOT(ISERROR(FIND(","&B10&",",","&G$22:G$24&","))),0)) 
 
 
 
 |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 | 
 
- ©«¤l
 - 107 
 - ¥DÃD
 - 27 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 138 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - vista 
 - ³nÅ骩¥»
 - office2003 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - ¥x¥_¿¤ 
 - µù¥U®É¶¡
 - 2010-5-2 
 - ³Ì«áµn¿ý
 - 2025-8-15 
 
  | 
                
¦^´_ 2# oobird  
 
¥i¥H¤F......ÁÂÁª©¥D«ü¾É |   
 
 
 
 | 
| 
 ¥Ø«e¤p¾Ç¥Í´Á«Ý¥L¤é¶i°ê¤¤ 
 | 
 | 
 | 
 | 
 | 
 
- ©«¤l
 - 1 
 - ¥DÃD
 - 0 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 1 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - xp 
 - ³nÅ骩¥»
 - sp3 
 - ¾\ŪÅv
 - 10 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 -    
 - µù¥U®É¶¡
 - 2011-3-7 
 - ³Ì«áµn¿ý
 - 2015-12-7 
 
  | 
 | 
| 
    
 | 
 | 
 | 
 | 
 | 
 
- ©«¤l
 - 1527 
 - ¥DÃD
 - 40 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 1551 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - Windows  7 
 - ³nÅ骩¥»
 - Excel 2010 & 2016 
 - ¾\ŪÅv
 - 100 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - ¥xÆW 
 - µù¥U®É¶¡
 - 2020-7-15 
 - ³Ì«áµn¿ý
 - 2025-11-4 
 
  | 
                
ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú 
«á¾ÇÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð 
 
°õ¦æ«e: 
 
 
 
 
°õ¦æµ²ªG: 
 
 
 
 
 
Option Explicit 
Sub TEST() 
Dim Brr, Crr, Y, Z, i&, T1$, T2$ 
'¡ô«Å§iÅÜ¼Æ 
Set Y = CreateObject("Scripting.Dictionary") 
'¡ô¥OYÅܼƬO ¦r¨å 
Brr = Range([B10], [B65536].End(3)) 
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HBÄæÀx¦s®æÈ±a¤J 
Crr = Range([H22], [G65536].End(xlUp)) 
'¡ô¥OCrrÅܼƬO ¤Gºû°}¦C,¥HG~HÄæÀx¦s®æÈ±a¤J 
For i = 1 To UBound(Crr) 
'¡ô³]¶¶°j°é (©î¸Ñ²Õ§O¹ïÀ³¦¨û(GÄæ),¸Ë¤JY¦r¨å¤¤) 
   T1 = Crr(i, 1): T2 = Crr(i, 2) 
   '¡ô¥OÅܼƩӸ˰j°é°}¦CÈ 
   If (T1 = "") * (T2 = "") Then GoTo i01 
   '¡ô©¿²¤ªÅ®æ 
   For Each Z In Split(T1, ",") 
   '¡ô³]³v¶µ°j°é!¥OZÅܼƬO (GÄæ)È¥H","¤À³Îªº¤@ºû°}¦C¤l 
      If Z = "" Then GoTo z01 
      '¡ô¦pªGZÅܼƬOªÅ¦r¤¸!´N¸õ¨ìz01¼Ð¥Ü¦ì¸mÄ~Äò°õ¦æ 
      Y(Z) = T2 
      '¡ô¥O¥HZÅܼƷíkey,item¬OT2ÅܼÆ(²Õ¦W) 
z01: Next 
i01: Next 
For i = 1 To UBound(Brr) 
'¡ô³]¶¶°j°é (±N±ý¿ëÃѪº¦¨û·íkey,¬dY¦r¨å±o¨ì²Õ¦W) 
   Brr(i, 1) = Y(Brr(i, 1) & "") 
   '¡ô¥O¬dY¦r¨å±o¨ì²Õ¦WÂл\±¼ì¨ÓBrrªº¦¨û 
Next 
[L10].Resize(UBound(Brr), 1) = Brr 
'¡ô¥OBrr°}¦Cȱq[L10]¶}©l¼g¤JÀx¦s®æ¤¤ 
Set Y = Nothing: Erase Brr, Crr 
'¡ô¥OÄÀ©ñÅÜ¼Æ 
End Sub |   
 
 
 
 | 
| 
 ¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤ 
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y 
 | 
 | 
 | 
 | 
 |