GBKEE

¦^´_ 4# ¤p«L«È

1. Sub Ex() '«ü©wªº¦ì¸m¥²¶·¬O½d³ò¤ºªº¦ì¸m
   
2.     Dim A As Range, Rng As Range
   
3.     Set Rng = [A1:A10]
   
4.     Set A = Rng.Find("³¯¤j¤å")                                       '¹w³]: ±q½d³ò²Ä1­Ó¦ì¸m(¤£§t)¶}©l§ä
   
5.     MsgBox A.Row
   
6.     Set A = Rng.Find("³¯¤j¤å", After:=Rng(1).Cells(Rng.Rows.Count))  '«ü©w±q³Ì«áªº¦ì¸m§ä°_
   
7.     MsgBox A.Row
   
8.     Set A = Rng.Find("³¯¤j¤å", After:=Rng(5))                        '«ü©w±q½d³òªºCells(5)ªº¦ì¸m§ä°_
   
9.     MsgBox A.Row
   
10. End Sub

½Æ»s¥N½X