请教大佬：发现二义性的名称，这个怎么解决，谢谢！如图

淡墨青衫A8

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 Then
a = Target.Value
Sheets(2).Select
Set Rng = Sheets(2).Range("A2").CurrentRegion
    Rng.AutoFilter
    Rng.AutoFilter Field:=3, Criteria1:=a
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 Then
a = Target.Value
Sheets(3).Select
Set Rng = Sheets(3).Range("A2").CurrentRegion
    Rng.AutoFilter
    Rng.AutoFilter Field:=3, Criteria1:=a
End If
End Sub

山菊花

把两个过程合并为一个过程：

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Column = 2 And Target.Row > 4 Then
   
3.         a = Target.Value
   
4.         Sheets(2).Select
   
5.         Set Rng = Sheets(2).Range("A2").CurrentRegion
   
6.         Rng.AutoFilter
   
7.         Rng.AutoFilter Field:=3, Criteria1:=a
   
8.         
   
9.         Sheets(3).Select
   
10.         Set Rng = Sheets(3).Range("A2").CurrentRegion
    
11.         Rng.AutoFilter
    
12.         Rng.AutoFilter Field:=3, Criteria1:=a
    
13.     End If
    
14. End Sub

复制代码