§Q¥ÎFind§ä¤é´Á¡A¥X²{¿ù»~!!
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2025-2-15
|
°²³]²Ä¤@¦¸¶}±ÒEXCEL«á,¨Ã¥¼°õ¦æ¥ô¦óªº·j´M°Ê§@,
¥u¶i¦æ³oÀɮתºFIND, ¦Ó¦³®É¥i, ¦³®É¤£¥i(½T©w´M§äȬO¦s¦bªº),
«hÀ³¤£¬O·j´M±ø¥ó°Ñ¼Æªº°ÝÃD¤F~~ |
|
|
|
|
|
|
- ©«¤l
- 2839
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2895
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2025-2-15
|
Y¥ÎFIND¤@ª½¦³§xÂZ, ¥i§ï¥ÎMATCH¨ç¼Æ
Dim ST&
ST = Range("W3")
A = Application.Match(ST, [G:G], 0)
If IsError(A) Then MsgBox "§ä¤£¨ì W3 ªº¤é´Á!!!": Exit Sub
MsgBox A |
|
|
|
|
|
|