Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Worksheets("Sheet2").UsedRange.AutoFilter Field:=1, Criteria1:="" & Target.Value & ""
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then '如果被修改单元的地址是C1
Worksheets("Sheet2").UsedRange.AutoFilter Field:=1, Criteria1:="" & Target.Value & ""
'表2已使用的区域设置自动筛选,按A列,以修改单元内容筛选
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then '如果被修改单元的地址是C1
Worksheets("Sheet2").UsedRange.AutoFilter Field:=1, Criteria1:="" & Target.Value & ""
'表2已使用的区域设置自动筛选,按A列,以修改单元内容筛选
End If
End Sub