使用VBA进行多条件的筛选并复制结果到指定位置

wxiyon

求大神帮忙看下，这个实例用VBA怎么处理？

手工操作的筛选顺序是：
1、首先在F列，选择：全瓷嵌体、全锆冠/桥、氧化锆内冠（选择条件项目可任意添加）
2、在E列筛选包含有“全锆”关键字的项目（关键字可能不止一个）
3、在A列中去掉包含“烤瓷”关键字的项目（关键字可能不止一个）
4、将筛选结果放在“筛选”工作表中。

microyip

请参考《多工作簿多表查询汇总的通用解决方案》http://club.excelhome.net/thread-1310803-1-1.html

yaozong

试下：

Sub test()
Dim rng As Range, arr, i&, j&, m&, r&
With Sheet1
  r = .UsedRange.Rows.Count
  Set rng = .[a1]
  For i = 2 To r Step 2
    If InStr("+全瓷嵌体+全锆冠/桥+氧化锆内冠+", "+" & .Cells(i, 6) & "+") <> 0 Then
      If InStr(.Cells(i, 5), "全锆") <> 0 Then
        If InStr(.Cells(i, 1), "烤瓷") = 0 Then
          Set rng = Union(rng, .Cells(i, 1).MergeArea)
        End If
      End If
    End If
  Next
End With
Sheet2.UsedRange.Clear
rng.EntireRow.Copy Sheet2.[a1]
End Sub

yaozong

回复需审该....
先上附件      

wxiyon

yaozong 发表于 2017-8-10 19:24
回复需审该....
先上附件

已经验证过了，结果和手工操作的一样，非常感谢大师

wxiyon

yaozong 发表于 2017-8-10 19:24
回复需审该....
先上附件

If InStr("+全瓷嵌体+全锆冠/桥+氧化锆内冠+", "+" & .Cells(i, 6) & "+") <> 0 Then
再请问下，如果：全瓷嵌体、全锆冠/桥、氧化锆内冠，作为关键词，用模糊查询的方式，这句代码应该怎么改？谢谢

yaozong

wxiyon 发表于 2017-8-11 10:43
If InStr("+全瓷嵌体+全锆冠/桥+氧化锆内冠+", "+" & .Cells(i, 6) & "+")  0 Then
再请问下，如果：全 ...

If .Cells(i, 6).Value Like "*全[(瓷嵌体)(锆冠/桥)]*" Or InStr(.Cells(i, 6).Value, "氧化锆内冠") <> 0 Then

wxiyon

yaozong 发表于 2017-8-11 13:10
If .Cells(i, 6).Value Like "*全[(瓷嵌体)(锆冠/桥)]*" Or InStr(.Cells(i, 6).Value, "氧化锆内冠")  0 ...

谢谢，非常有用在工作中