如何用VBA实现根据关键字，筛选包含这个关键字的行，并统计出现次数？

蒋晓丹 · 发表于 2017-2-10 10:28

本帖最后由蒋晓丹于 2017-2-10 13:09 编辑

老师：
想请问如何用VBA代码实现，根据某一个关键字，比如“白板”，在A列中进行筛选，将包含这个字符的行都选出来复制到另一个表中，并统计一共出现了多少次。结果如图所示，是根据关键字列，一次将包含每个关键字列的行都筛选出来，组成一个新的表。这个是不是用正则表达式才能实现呢，数据有8万多条，手工筛选太慢了。

CC例例 · 发表于 2017-2-10 11:28

用高级筛选

Sub AdvancedFilter()
Dim sInt As String
sInt = InputBox("请输入要筛选的关键词：", "筛选", "白板")
If Len(Trim(sInt)) > 0 Then
With Sheets("数据源")
.[a1].Copy [i1]
[i2] = "*" & sInt & "*"
[a1].CurrentRegion.Clear
.[a1].CurrentRegion.AdvancedFilter 2, [i1:i2], [a1], False
[i1].CurrentRegion.Clear
End With
End If
End Sub

复制代码

蒋晓丹 · 发表于 2017-2-10 11:29

以下为模拟的部分关键字：
戴尔
打印机
碎纸机
课桌
保洁
绿植
空调网线
电脑
椅
纸
器
展架
办公位
微波炉
差旅费
一体机
床
苹果
小米
电话
架
单人
美的
讲台
耳机
kindle
广告
打印机
电视
笔记本
交换机
投影仪
用品
杯

CC例例 · 发表于 2017-2-10 11:32

>>>>>>>>>>>>>

vba小菜鸟^99 · 发表于 2017-2-10 11:33

记得开启宏，看看效果是不是你要的

zax010 · 发表于 2017-2-10 12:34

Sub zz()
Application.ScreenUpdating = False
ar = Sheet1.[j1].CurrentRegion
For i = 1 To UBound(ar)
      With Sheet1.Range("$A$1").CurrentRegion
         .AutoFilter Field:=1, Criteria1:="=*" & ar(i, 1) & "*", Operator:=xlAnd
         Sheets.Add after:=Sheets(Sheets.Count)
         .Copy ActiveSheet.[a1]
         ActiveSheet.Name = ar(i, 1)
      End With
Next
Sheet1.Range("$A$1").CurrentRegion.AutoFilter
Application.ScreenUpdating = True
End Sub

zax010 · 发表于 2017-2-10 12:36

按照字符给商品分类并统计每种商品出现的次数.rar (129 KB, 下载次数: 230)

蒋晓丹 · 发表于 2017-2-10 13:00

CC例例发表于 2017-2-10 11:28
用高级筛选

谢谢您，我的关键字特别多，数据量也很大，想把所有的关键字放在一列，然后代码会自动将包含这些关键字的行筛选出来，组成一个新的工作表，不是我一个关键字一个关键字录入，这个代码如何修改才能实现呢？

蒋晓丹 · 发表于 2017-2-10 13:11

zax010 发表于 2017-2-10 12:34
Sub zz()
Application.ScreenUpdating = False
ar = Sheet1.[j1].CurrentRegion

谢谢您，我没有表述清楚自己的需求，不好意思。
是根据一列关键字，依次将满足每个关键字的行筛选出来，组成一个新的工作表，不是手工一个一个的查询关键字。

蒋晓丹 · 发表于 2017-2-10 13:12

zax010 发表于 2017-2-10 12:34
Sub zz()
Application.ScreenUpdating = False
ar = Sheet1.[j1].CurrentRegion

谢谢您，我没有表述清楚自己的需求，不好意思。
是根据一列关键字，依次将满足每个关键字的行筛选出来，组成一个新的工作表，不是手工一个一个的查询关键字。

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA实现根据关键字，筛选包含这个关键字的行，并统计出现次数？

评分