你是不是对表格部分或全部设置了写保护？如果是的话，在设置写保护前勾选筛选功能，写保护后还能继续用筛选~
-
-
复制到vba窗口，即可
Sub 筛选()
Dim X
X = Range("A65536").End(xlUp).Row
y = [E1]
Range("A1:C" & X).Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$C$" & X).AutoFilter Field:=1, Criteria1:=y
[A1].Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) 'Selection
Dim tr, tc
tr = T晶真简和纸印arget.Row
tc = Target.Column
If tr = 1 And tc = 5 Then
筛选
End If
End Sub追问 : 我把表格关了，然后重新打开就可以了，谢谢你！！
追答 : Sub 筛选() Dim X X = Range("A65536").End(xlUp).Row y = [E1] Range("A1:C" & X).Select Selection.AutoFilter ActiveSheet.Range("$A$1:$C$" & X).AutoFilter Field:=1, Criteria1:=y [E1].Select '筛选后，回到E1 End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'Selection Dim tr, tc tr = Target.Row tc = Target.Column If tr = 1 And tc = 5 Then 筛选 End If End Sub
-
CTRL+A全选表格,单击右键选择设置单元格格式,在打开的对话框中单击保护选项卡,取消"锁定"和"隐藏"前的勾,然后选中公式所在的列单击右键选择设置单元格格式,在打开的对话框中单击保护选项卡,勾选"锁定"
再单击"工具----保护-----保护工作表
"
勾选除第一个外的其它选项,同时可以设置密码(不设置也是可以的)
-
1,选定整个工作表（Ctrl+A), 单元格-格式-保护：将“锁定”项目清空，确定！
2，选中要保护的单元格，单元格-格式-保护：勾选“锁定”，确定！
3，保护-保护工作表(密码可以为空），确定！