做了一个模拟查询，感觉有问题，请各位大佬批评指正！

希望123456

Sub 按钮1_Click()
On Error Resume Next
Sheet2.Range("a3,q100").Clear
Dim arr(), crr() '定义一个动态数组，然后再用"redim"
I = 2
Do While Sheet1.Range("a" & I) <> ""
    n = n + 1
    ReDim Preserve arr(1 To n)  'Preserve数组随之更新
    arr(n) = Join(Application.Transpose(Application.Transpose(Sheet1.Range("a" & I).Resize(1, 17))), "/")
    'Transpose将数组转置，通过两次转置成为一维数据，在通过join连接成一个字符串，join只能连接连串的字符或者一维数组

I = I + 1
Loop
brr = Filter(arr, Sheet2.Range("b1").Value)
ReDim crr(1 To UBound(brr) + 1)

For j = 1 To UBound(brr) + 1
k = k + 1
crr(k) = Split(brr(j - 1), "/")
Next
Sheet2.Range("a3").Resize(k, 17) = Application.Transpose(Application.Transpose(crr))
End Sub

希望123456

对效果不满意，因为不能完全模糊查询，比如一个人姓名abc，你如果要查询ac那就查不到了

zhumin1025

用不连续的值模糊查询，要求太高了吧

xunanming

请参考--------------------------

希望123456

xunanming 发表于 2023-6-10 04:59
请参考--------------------------

谢谢老师，您的思路真的很巧妙，我把代码里面的m<>0 and m<=t ，这样一改，就可以只要出现任意一个字或者多个字匹配，就能查询出来。我在想实现这样的模糊查询应该还有其他方法吧，我记得有个like函数，不知道能不能搞定，还有一个就是用SQL语句里面的模糊查询，但是我没有动手去尝试怎么写代码！再次感谢大佬！喜欢一题多解，这样才能覆盖的知识点多一些！

xunanming

希望123456 发表于 2023-6-10 09:37
谢谢老师，您的思路真的很巧妙，我把代码里面的m0 and m

用like不连续字符匹配也需要逐个字符判断,把instr那句换成  if arr(i,1) like "*" & s & "*" then 效果是一样的,至于数据库的,你可自己尝试写下.