Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Range("b65536").End(xlUp).Row
r = Target.Row
c = Target.Column
If r > 1 And r <= n And c = 3 Then
Sheets("总览").Activate
n2 = Sheets("总览").Range("a65536").End(xlUp).Row
temp = Cells(r, 3)
Selection.AutoFilter
ActiveSheet.Range("$A$3:$M$65536").AutoFilter Field:=23, Criteria1:=temp '按照单击单元格内容自动筛选。
Cells(1, 1) = temp
End If
End Sub
n = Range("b65536").End(xlUp).Row
r = Target.Row
c = Target.Column
If r > 1 And r <= n And c = 3 Then
Sheets("总览").Activate
n2 = Sheets("总览").Range("a65536").End(xlUp).Row
temp = Cells(r, 3)
Selection.AutoFilter
ActiveSheet.Range("$A$3:$M$65536").AutoFilter Field:=23, Criteria1:=temp '按照单击单元格内容自动筛选。
Cells(1, 1) = temp
End If
End Sub