vba 单击跳转并且自动筛选

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

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！