[已解决]如何写VBA代码实现筛选出包含指定字符串的内容???

caipiaofans · 发表于 2014-4-7 18:18

本帖最后由 caipiaofans 于 2014-4-7 21:04 编辑

附件下载:

0407.rar (2.3 KB, 下载次数: 26)

冠军欧洲2010 · 发表于 2014-4-7 18:42

Sub A()
Dim SR
Dim ARR, BRR()
Dim K%, I%, M%, Z%
SR = Split([C1], " ")
ARR = Range("B1:B" & Cells(Rows.Count, 2).End(3).Row)
For K = 1 To UBound(ARR)
For I = 0 To UBound(SR)
If InStr(ARR(K, 1), SR(I)) <> 0 Then
M = M + 1
End If
Next
If M = 2 Then
Z = Z + 1
ReDim Preserve BRR(1 To 1, 1 To Z)
BRR(1, Z) = ARR(K, 1)
End If
M = 0
Next
Range("A:A").ClearContents
[A1].Resize(UBound(BRR, 2)) = Application.Transpose(BRR)
End Sub

复制代码

liu-aguang · 发表于 2014-4-7 19:15

本帖最后由 liu-aguang 于 2014-4-7 21:06 编辑

Sub test()
Dim arr, ar, i&
arr = Range([b1], [b65536].End(3))
If [c1] = "" Then Exit Sub Else ar = Split([c1], " ")
Set regx = CreateObject("vbscript.regexp")
regx.Pattern = "^(?=.*?\b" & ar(0) & "\b)(?=.*?\b" & ar(1) & "\b).+$"
For i = UBound(arr) To 1 Step -1
If Not regx.test(arr(i, 1)) Then Cells(i, 2).Delete Shift:=xlUp
Next
End Sub

复制代码

无聊的疯子 · 发表于 2014-4-7 19:52

布局略做调整,用高级筛选就可以了

效果图
QQ截图20140407194450.jpg

代码如下

Sub cc()
Range("B:B").AdvancedFilter 2, Range("D1:G2"), Range("D5")
End Sub

复制代码

代码解释
Range("B:B") 数据源位置,
2  ,表示将结果复制到新地方
Range("D1:G2")  条件区域,
D2:G2中对应的内容为条件

图片中虽有3个数据列,但是有一个条件是空,所以不影响结果
Range("D5") 结果显示位置

需要注意的是,条件行数必需按量使用,只要一行,是 And,,如果有2行或者多行,则是 or ,此时如果后面几行是空的,则会筛选出很多内容

把 range("D1:G2") 修改为 Range("D1:G3")  其它不变,运行一下能看出区别

caipiaofans · 发表于 2014-4-7 20:19

冠军欧洲2010 发表于 2014-4-7 18:42

冠军老师好

经测试..

要是C1=01
执行代码提示下标越界

能不能再改下代码

让代码通用些
支持
01
01 02
01 02 03
等不同个数的筛选.

即同时符合一个,两个,三个甚至更多都可以筛选

冠军欧洲2010 · 发表于 2014-4-7 20:24

........

caipiaofans · 发表于 2014-4-7 20:35

冠军欧洲2010 发表于 2014-4-7 20:24
........

冠军老师....

哈...还有一个没考虑到的...

if c1要筛选的不存在.弹对话框提示不存在...

现在是下标越界/

呵呵

现在代码很好了

冠军欧洲2010 · 发表于 2014-4-7 20:38

caipiaofans · 发表于 2014-4-7 20:46

冠军欧洲2010 发表于 2014-4-7 20:38

冠军老师,,

我刚才说的是这个意思..
呵呵

QQ图片20140407204541.jpg

C1=3时..恰巧那B1-B5 没3哦

我不是故意的啊..

只想要代码更完美...

冠军欧洲2010 · 发表于 2014-4-7 20:51

这个最佳答案由冠军欧洲2010 给出，感谢冠军欧洲2010 的回答。

单击隐藏图章

不是。
是我的原因。是我没有考虑仔细。
谢谢提醒。。

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

[已解决]如何写VBA代码实现 筛选出 包含 指定字符串 的内容???

相关帖子

[已解决]如何写VBA代码实现筛选出包含指定字符串的内容???