GBKEE

¦^´_ 1# ji12345678
­×§ï§Aªºµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim myRng1 As Range, myRng2 As Range, myRow   As Variant
   
4.     Set myRng1 = Columns("C")                            '·j´M¨Ó·½½d³ò
   
5.     Do
   
6.         myRow = Application.Match("§ø¤W", myRng1, 0)      '·j´M¨ì¶Ç¦^¼Æ¦r §ä¤£¨ì¶Ç¦^¿ù»~­È
   
7.         If IsError(myRow) Then
   
8.             MsgBox "¨S¦³§ä¨ì²Å¦X±ø¥óªºÀx¦s®æ"
   
9.         Else
   
10.             Set myRng2 = myRng1.Cells(myRow)
    
11.             Set myRng1 = Range(myRng2.Offset(1), Cells(Rows.Count, "C"))                 '·j´M¨Ó·½½d³ò
    
12.             MsgBox myRng2.Address
    
13.         End If
    
14.     Loop Until IsError(myRow)  '°õ¦æ°j°é, ª½¨ì¦³¿ù»~­È: Â÷¶}°j°é
    
15. End Sub

½Æ»s¥N½X