Sub filter1()
Rem MsgBox ("AAAAA")
Rem 1 get selected zone
Rem 2 loop rows and check column
Rem 3 if true then hide it
Dim pos, total
Rem 獲取行數
total = Sheet1.UsedRange.Rows.Count
Rem 開始循環
For pos = 1 To Sheet1.UsedRange.Rows.Count
Dim tmpStr
Rem B 列示第二列
tmpStr = Cells(pos, 2)
If InStr(tmpStr, "其他") Then
Range(Cells(pos, 1), Cells(total, 1)).EntireRow.Hidden = True
Exit Sub
End If
Rem MsgBox (tmpStr)
Next
End Sub