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

yb1998

很简单，手工操作，并录制宏。
思路是这样的：
为每个词标注是第几次出现。然后，然后，筛选出10的，就是 重复10及10次以上的。
具体方法：
1）排序
2）假设你关键字在A列，那么增加空列B, 并在B1填写1, 在B2 填写公式： =if(a1=a2,b1+1,1)
如果和前行相同，则+1，否则=1
3）拖拉B的公式。
4）选中B列， 复制，选择性粘贴，数值，
5）对B 筛选， 10 的，就是  重复次数>= 10 的。

香川群子

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

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

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

复制代码

香川群子

本来我还以为要用到正则或SQL方法的……后来一看例子，只用Filter就OK啦。

LQ200601

本来我还以为要用到正则或SQL方法的……后来一看例子，只用Filter就OK啦。

lulu0104

香川群子 发表于 2012-1-6 20:07
在“筛选词”工作表中，按鼠标右键即可自动执行过滤筛选：

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

那个，我现在还是菜鸟级别，你弄的那个代码是录制宏的吗？然后把那段代码添加进去后，就一键OK了

lulu0104

香川群子 发表于 2012-1-6 20:07
在“筛选词”工作表中，按鼠标右键即可自动执行过滤筛选：

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

我把你这个代码复制到宏里面，怎么达不到你做的那种效果呢

lulu0104

香川群子 发表于 2012-1-6 20:07
在“筛选词”工作表中，按鼠标右键即可自动执行过滤筛选：

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

高手，我弄懂那个表了，但是现在存在一个问题。我这个表只是一个模版，那个里面只有一个病种。等我筛选后，筛选表就不能做任何更改。等重新复制另外一个病种上去后，再筛选，就几种病种都在那里了。没有达到筛选效果。能否再帮我筛选一段代码？我把你答案设置为最佳，嘿嘿。

香川群子

那也很简单……只要修改输出结果的代码即可。

If UBound(t) > -1 Then Cells(2, i).Resize(UBound(t) + 1) = Application.Transpose(t)

改成：
If UBound(t) > -1 Then Cells(65536, i).End(3).Offset(1,0).Resize(UBound(t) + 1) = Application.Transpose(t)

bagogje