Exit For ³¯z¦¡¥i¥Î¨Óµ²§ô For/Next °j°é¡C¥H¤Uªº½d¨Ò·|·j´M¥þ°ì°}¦C¦WºÙ¤¤¬O§_¦³ Fred ³oÓ¦W¦r¡C°²¦p§ä¨ì³oÓ¦W¦r¡A´N·|¶Ç¦^³oÓ¦W¦r¦b°}¦C¤¤ªº¯Á¤Þ¡C§_«hªº¸Ü¡A´N¶Ç¦^ 1¡C¨Ò¦p¡A°²¦p¦WºÙ°}¦C¬°¡G
Array ("Frank", "Helen", "Fred", "Linda")
«h¤½¦¡·|¶Ç¦^ 3¡C
Global names () As String '¦W¦r°}¦C¤wªì©l¤Æ¨Ã¶ñ¤J '¨ä¥L¤½¦¡¤¤ Dim i formula = -1 'UBound ¨ç¦¡¶Ç¦^¨ä°}¦C '¤Þ¼Æªº¤j¤p For i = 1 to UBound (names) If names (i) = "Fred" Then formula = i Exit For End If Next I