Hsieh

¦^´_ 1# Lisa1

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$A$1" Then Exit Sub
   
3. Application.ScreenUpdating = False
   
4. Rows.Hidden = False
   
5. For Each a In Range([A2], [A65536].End(xlUp))
   
6.    If a <> [A1] Then
   
7.    a.EntireRow.Hidden = True
   
8.    End If
   
9. Next
   
10. Application.ScreenUpdating = True
    
11. End Sub

½Æ»s¥N½X