[已解决]【求助】如何单击高级筛选的条件单元格，自动筛选

蝶·舞

我利用高级筛选筛选出所需内容，但涉及到条件经常变换，必须要手动重新筛选，应该如何做到：改变条件内容后，自动重新“高级筛选”？ 高级筛选求助.zip (2.79 KB, 下载次数: 13)

2012-4-19 12:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

liyh67

2012-4-19 12:54

高级筛选求助.rar (8.55 KB, 下载次数: 27)

2012-4-19 12:54 上传

点击文件名下载附件

跳转到最佳答案楼层

liyh67

高级筛选求助.rar (8.55 KB, 下载次数: 27)

2012-4-19 12:54 上传

点击文件名下载附件

hrpotter

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim ar, br
   
3.     Dim s As String
   
4.     Dim i As Integer, j As Integer, k As Integer
   
5.     If Target.Address <> "$A$2" Then Exit Sub
   
6.     s = Target.Value
   
7.     ar = Sheet1.Range("a1").CurrentRegion
   
8.     ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
   
9.     k = 1
   
10.     For i = 1 To UBound(ar, 2)
    
11.         br(k, i) = ar(1, i)
    
12.     Next
    
13.     For i = 2 To UBound(ar)
    
14.         If ar(i, 2) = s Then
    
15.             k = k + 1
    
16.             For j = 1 To UBound(ar, 2)
    
17.                 br(k, j) = ar(i, j)
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     Range("c:e").Clear
    
22.     Range("c1").Resize(k, 3) = br
    
23.     Range("c1").Resize(k, 3).Borders.LineStyle = xlContinuous
    
24. End Sub

复制代码

高级筛选求助.rar (10.46 KB, 下载次数: 13)

2012-4-19 12:55 上传

点击文件名下载附件