多条件模糊查找宏代码求助

kongjianting

本人对EXCEL宏编辑小白，想通过宏控件实现在sheet3中对附件中sheet1数据进行多条件模糊查询并显示，即sheet1中建立基础信息，在sheet3显示结果，在sheet3中的A2:I2中输入关键字，如在sheet3 A2中输入“卡特”，点查询按钮所有供应商为卡特的将显示出来，可以多条件，例如在sheet3 A2 输入“卡特”，B2中输入“接头”，那么供应商为卡特，零件名称含有接头的将全部显示出来，本人从网上找取了一些代码，但是不能实现查询功能， 附件为测试表格 ，还请高人指点，十分感谢！！ 测试.zip (21 KB, 下载次数: 303)

2014-4-18 12:39 上传

点击文件名下载附件

kongjianting

速求高人帮忙啊

490483577

kongjianting 发表于 2014-4-18 13:13
速求高人帮忙啊

建议你发到 数据透视表版块 或者VBA使用SQL应该可以实现

小白啊 随便说说

ed2003

供参考：
Sub 查询筛选()
Dim Erow As Integer, rng As Range, flag As Boolean
With Sheets("sheet3")
    Erow = Sheets("Sheet1").[a65536].End(xlUp).Row
    arr1 = Sheets("Sheet1").Range("a2:i" & Erow)
    arr2 = .Range("a2:i2")
    .Range("a3:i65536").ClearContents
    For i = 1 To UBound(arr1)
        flag = True
        For j = 1 To 9
            If Not arr1(i, j) Like "*" & arr2(1, j) & "*" Then
                flag = False
                Exit For
            End If
        Next
        If flag Then
            If rng Is Nothing Then
                Set rng = Sheets("Sheet1").Rows(i + 1)
            Else
                Set rng = Union(rng, Sheets("Sheet1").Rows(i + 1))
            End If
        End If
    Next
    If Not rng Is Nothing Then rng.Copy .Range("a3")
    Set rng = Nothing
End With
End Sub

kongjianting

ed2003 发表于 2014-4-18 13:56
供参考：
Sub 查询筛选()
Dim Erow As Integer, rng As Range, flag As Boolean

高人啊，十分感谢！

490483577

ed2003 发表于 2014-4-18 13:56
供参考：
Sub 查询筛选()
Dim Erow As Integer, rng As Range, flag As Boolean

小白没理解 If flag Then
             If rng Is Nothing Then
                 Set rng = Sheets("Sheet1").Rows(i + 1)
             Else
                 Set rng = Union(rng, Sheets("Sheet1").Rows(i + 1))
             End If
这两句。大神能解释下吗？ 谢谢

畄归稻

ed2003 发表于 2014-4-18 13:56
供参考：
Sub 查询筛选()
Dim Erow As Integer, rng As Range, flag As Boolean

请教大神，同一列多条件该怎么写呢？

宝贝万岁

ed2003 发表于 2014-4-18 13:56
供参考：
Sub 查询筛选()
Dim Erow As Integer, rng As Range, flag As Boolean

牛掰，学习了~

农村信合人

不错，学习了~谢谢分享