- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
- SUB TEST
- RNG=[A1].RESIZE(10000,2).VALUE'10000ªº³¡¤À¥i¦Û¦æÅܧó¦C¼Æ
- Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
- FOR I =1 TO UBOUND(RNG)
- D(CSTR(RNG(I,1)))=I
- NEXT
- '³oÃä¬Ý§An§ä¬Æ»ò¸ê®Æ,°²³]¬Ox,´N·|¥X²{x¬O²Ä´X¦C¤F
- MSGBOX D(CSTR(X))
- END SUB
½Æ»s¥N½X |
|