[已解决]VBA-如何解决大量关键词重复性的筛选？

lulu0104

我是一个做竞价的，要随时筛选关键字，一般关键字都在5K以上，重复性的工作很大，请教一下，要怎样录制这样的宏？我想到达的效果就是一键就能达到至少10种以上的筛选，如果有兴趣，请留言QQ，我加你们的QQ，然后把关键字发给你们

最佳答案

月排行榜 / 总排行榜

香川群子

2012-1-6 20:07

在“筛选词”工作表中，按鼠标右键即可自动执行过滤筛选：

代码其实非常非常地简单：

1. Sub WordFilter()
   
2.    
   
3.     rw = Sheet1.[a65536].End(3).Row '获取原始数据页中A列最大行数
   
4.     arr = Application.Transpose(Sheet1.[a1].Resize(rw)) '获取原始数据并转为一维数组arr
   
5.    
   
6.     For i = 1 To [a1].End(2).Column '遍历筛选项(即第一行所有列)
   
7.         t = Filter(arr, Cells(1, i)) '按第一行关键词用Filter筛选
   
8.         If UBound(t) > -1 Then Cells(2, i).Resize(UBound(t) + 1) = Application.Transpose(t) '结果输出
   
9.     Next
   
10. End Sub

复制代码

跳转到最佳答案楼层

菜鸟锐

上个附件可能会好一些

Select

看不懂题意。
建议上附件。

举例，
1个时，希望的结果
2个时，希望的结果

6913

附件？？？？？where

lulu0104

6913 发表于 2012-1-6 17:06
附件？？？？？where

马上，我整理一份出来

lulu0104

lulu0104 发表于 2012-1-6 17:18
马上，我整理一份出来

你有QQ吗，我加你QQ说得清楚些

lulu0104

关键在筛选的附近已经上传，谢谢各位

lulu0104

菜鸟锐 发表于 2012-1-6 17:06
上个附件可能会好一些

已添加附件了，请帮我看下，谢谢

lulu0104

6913 发表于 2012-1-6 17:06
附件？？？？？where

已添加附件了，请帮我看看，谢谢

lulu0104

Select 发表于 2012-1-6 17:06
看不懂题意。
建议上附件。

已添加附近，请帮我看看，谢谢