[已解决]需要做一个筛选快捷操作的宏

lujianwkx

各位老师：
       我在工作中经常要反复的使用筛选－－包含**  某些门店关键字，一次一次操作感觉太慢，可否有一个宏.
       我只要在A1单元格输**，即自动实现G列筛选－－包含** 的功能。
     请见附件

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-7-29 16:12

是这样的？

跳转到最佳答案楼层

gufengaoyue

是这样的？

grf1973

1. Sub 筛选()
   
2.     x = [a1]
   
3.     If Len(x) > 0 Then
   
4.         arr = [a3].CurrentRegion
   
5.         brr = arr
   
6.         For i = 2 To UBound(arr)
   
7.             If arr(i, 7) Like "*" & x & "*" Then
   
8.                 n = n + 1
   
9.                 For j = 1 To UBound(arr, 2)
   
10.                     brr(n + 1, j) = arr(i, j)
    
11.                 Next
    
12.             End If
    
13.         Next
    
14.     End If
    
15.     If n > 0 Then
    
16.         With Sheet2
    
17.             .Activate
    
18.             .UsedRange.ClearContents
    
19.             .[a1].Resize(n + 1, UBound(brr, 2)) = brr
    
20.             .Columns.AutoFit
    
21.         End With
    
22.     End If
    
23. End Sub
    

复制代码

zjdh

筛选求助.rar (192.69 KB, 下载次数: 6)

2015-7-29 16:15 上传

点击文件名下载附件