作者：乔山办公网日期：
返回目录：excel表格制作
保护工作表就可以了，无需使用VBA。单保护工作簿只是不允许新增和删除表，对表里面的内容实际上是不保护的。
Range("G1:L4322").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("N19:P20"), CopyToRange:=Range("AE1:AJ100")
没有不带颜色的选项，可以接下来增加一个语句，对结果区域清除格式：
Sheets("唯一值").Range("B2").CurrentRegion.ClearFormats
worksheet_change事件百中输度入问以下答代版码：权
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C5")) Is Nothing And Target.Count = 1 And Target <> "" Then
Rows.Hidden = False
For i = 8 To Cells(65536, 2).End(xlUp).Row
If Cells(i, 2) <> Cells(5, 3) Then
Rows(i).Hidden = True
End If
Next
End If
End Sub