请高手帮忙解决多条件模糊查询问题

qdtzk

在本论坛http://club.excelhome.net/thread-1094059-1-1.html看到帖子，解决了我想要的结果，但我不会VBA，对函数也是了解一点皮毛。请高手帮助解决一下。
我自己的只能解决一个条件查询，不知道如何能达到http://club.excelhome.net/thread-1094059-1-1.html帖子中多条件查询？

3190496160

多条件，且条件个数不确定的查询？？
但是，看一半天，说实话，看不懂你的查询条件

一把小刀闯天下

'共3个条件，条件之间为or关系，单条件按instr判断，全空为false，，，

Option Explicit

Sub test()
  Dim arr, mark, i, j, k, m
  mark = [h1:m1].Value
  arr = Sheets("档案目录").[a1].CurrentRegion.Offset(1).Value
  For i = 1 To UBound(arr, 1)-1
    For j = 1 To UBound(mark, 2) Step 2
      If Len(mark(1, j)) Then
        If InStr(arr(i, (j - 1) / 2 + 4), mark(1, j)) Then
          m = m + 1
          For k = 1 To UBound(arr, 2)
            arr(m, k) = arr(i, k)
          Next
          Exit For
        End If
      End If
    Next
  Next
  With Sheets("档案查询")
    .Range("b:b,k:l").NumberFormatLocal = "yyyy/mm/dd"
    With .[a3]
      .Resize(Rows.Count - 2, UBound(arr, 2)).ClearContents
      If m > 0 Then .Resize(m, UBound(arr, 2)) = arr
    End With
  End With
End Sub

cui26896

一把小刀闯天下 发表于 2020-2-1 07:58
'共3个条件，条件之间为or关系，单条件按instr判断，全空为false，，，

Option Explicit

mark = [h1:m1].Value还是要加上Sheets("档案查询").不然取到的是Sheets("档案目录")表中的。

一把小刀闯天下

cui26896 发表于 2020-2-1 09:00
mark = [h1:m1].Value还是要加上Sheets("档案查询").不然取到的是Sheets("档案目录")表中的。

是的，感谢提醒，，，

qdtzk

一把小刀闯天下 发表于 2020-2-1 07:58
'共3个条件，条件之间为or关系，单条件按instr判断，全空为false，，，

Option Explicit

感谢，这是要录一个宏吗。能麻烦做好了发个附件吗，谢谢！

qdtzk

cui26896 发表于 2020-2-1 09:00
mark = [h1:m1].Value还是要加上Sheets("档案查询").不然取到的是Sheets("档案目录")表中的。

感谢，这是要录一个宏吗。不知道怎么弄，能麻烦做好了发个附件吗，谢谢！

zpy2

http://club.excelhome.net/thread-1432442-1-1.html
这种吗？

cui26896

qdtzk 发表于 2020-2-1 16:18
感谢，这是要录一个宏吗。不知道怎么弄，能麻烦做好了发个附件吗，谢谢！

Dim arr, mark, i, j, k, m
  mark = [h1:m1].Value
闯天下老师的第二句代码，写成这样
mark =Sheets("档案查询"). [h1:m1].Value
就行了！

qdtzk

zpy2 发表于 2020-2-1 16:59
http://club.excelhome.net/thread-1432442-1-1.html
这种吗？

谢谢！不用网络版的，只要能多条件查询就行