怎么在多行多列里实现模糊查询批量的关键字，并整行输出到固定地点 [复制链接]

belena1234

怎么在多行多列里实现模糊查询批量的关键字，并整行输出到指定地点 数据可能有上千上万行 关键字可能有上百个 输出到指定的excel或者盘

belena1234

求助求助，大师们，版主们，拜谢啦

vbee

多行多列里实现模糊查询批量的关键字

不知道为什么

belena1234 发表于 2018-10-18 18:21
求助求助，大师们，版主们，拜谢啦

如图

不知道为什么

belena1234 发表于 2018-10-18 18:21
求助求助，大师们，版主们，拜谢啦

此方法，速度应该会有些慢 供参考

ggmmlol

1. Sub test()
   
2.     arr = Sheet1.Range("a1").CurrentRegion
   
3.     c = UBound(arr, 2): n = 1
   
4.     s = Sheet2.Range("a1").CurrentRegion.Resize(, 1)
   
5.     ss = s(1, 1)
   
6.     For i = 2 To UBound(s)
   
7.         ss = ss & "|" & s(i, 1)
   
8.     Next
   
9.     ss = "\b(" & ss & ")\b"
   
10.     Set reg = CreateObject("vbscript.regexp")
    
11.     reg.Pattern = ss
    
12.     For i = 2 To UBound(arr)
    
13.         For j = 1 To c
    
14.             If reg.test(CStr(arr(i, j))) Then
    
15.                 n = n + 1
    
16.                 For k = 1 To c
    
17.                     arr(n, k) = arr(i, k)
    
18.                 Next
    
19.                 Exit For
    
20.             End If
    
21.         Next
    
22.     Next
    
23.     Sheet3.Cells.Clear
    
24.     Sheet3.[a1].Resize(n, c) = arr
    
25. End Sub

复制代码

belena1234

ggmmlol 发表于 2018-10-18 21:46

试着运行，显示第四行错误。
error 424.

ggmmlol

belena1234 发表于 2018-10-23 18:00
试着运行，显示第四行错误。
error 424.

既然不上传出错的附件，那就请自己看着修改吧。