­ã´£³¡ªL

¥Î"«~¦W"Àˬd¬O§_ªÅ¥Õ, «~¦W¤¤¶¡ªºªÅ¥Õ¤£ºâ,
¥u§ì³Ì«á¤@µ§"«~¦W"¦Ü"¦X­p"¤§¶¡ªºªÅ¥Õ¦æ~

Sub ÁôÂêťզæ()
Dim R&, xR As Range, xE As Range, i&, j&, k%
Range("G:G").EntireRow.Hidden = False
R = [g65536].End(3).Row
For i = R To 1 Step -1
    Set xR = Cells(i, "g")
    If xR = "¦X­p" Then k = 1: Set xE = xR(0)
    If k = 0 Then GoTo i01
    If xR(0) <> "" Then
       If xR = "¦X­p" Then MsgBox "«~¦W¤w¶ñº¡, ¨S¦³ªÅ¥Õ¦æ": Exit Sub
       If xR(0) = "«~¦W" Then MsgBox "«~¦W¥þ³¡ªÅ¥Õ": Exit Sub
       Exit For
    End If
i01: Next i
Range(xR, xE).EntireRow.Hidden = True
End Sub