PKKO

1. SUB TEST
   
2. RNG=[A1].RESIZE(10000,2).VALUE'10000ªº³¡¤À¥i¦Û¦æÅܧó¦C¼Æ
   
3. Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
   
4. 
   
5. FOR I =1 TO UBOUND(RNG)
   
6.      D(CSTR(RNG(I,1)))=I
   
7. NEXT
   
8. '³oÃä¬Ý§A­n§ä¬Æ»ò¸ê®Æ,°²³]¬Ox,´N·|¥X²{x¬O²Ä´X¦C¤F
   
9. 
   
10. MSGBOX D(CSTR(X))
    
11. 
    
12. 
    
13. END SUB

½Æ»s¥N½X

PKKO

¦^´_ 6# ketrddem


§Ú¶}¤@­Ó·sªºexcelÀÉ®×
½Æ»s§Aªºµ{¦¡ª½±µ¶K¤W¼Ò²Õ
°õ¦æ¤§«á¤@¬í¤§¤º´N¶]§¹Åo