各位老师,能帮忙看看这个表么

ykcbf1100

把数组放大一点就行了。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.8.1
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheets("数据源1").UsedRange
   
5.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.     With Sheets("查询页")
   
7.         st = .[b1].Value
   
8.         For i = 2 To UBound(arr)
   
9.             If InStr(arr(i, 5), st) Then
   
10.                 m = m + 1
    
11.                 For j = 1 To UBound(arr, 2)
    
12.                     brr(m, j) = arr(i, j)
    
13.                 Next
    
14.             End If
    
15.         Next
    
16.         .[a8:z10000] = ""
    
17.         .Range("b8").Resize(m, 18) = brr
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    

复制代码

20200613

ykcbf1100 发表于 2024-8-1 20:44
把数组放大一点就行了。

这个不能模糊查找啊

ykcbf1100

20200613 发表于 2024-8-1 21:52
这个不能模糊查找啊

你有说是模糊查询吗？你只说有几列未查出。
你有这功夫，需求说详细点不是更好，那样就不用去猜了。