|
本帖最后由 ggmmlol 于 2018-10-18 21:48 编辑
- Sub test()
- arr = Sheet1.Range("a1").CurrentRegion
- c = UBound(arr, 2): n = 1
- s = Sheet2.Range("a1").CurrentRegion.Resize(, 1)
- ss = s(1, 1)
- For i = 2 To UBound(s)
- ss = ss & "|" & s(i, 1)
- Next
- ss = "\b(" & ss & ")\b"
- Set reg = CreateObject("vbscript.regexp")
- reg.Pattern = ss
- For i = 2 To UBound(arr)
- For j = 1 To c
- If reg.test(CStr(arr(i, j))) Then
- n = n + 1
- For k = 1 To c
- arr(n, k) = arr(i, k)
- Next
- Exit For
- End If
- Next
- Next
- Sheet3.Cells.Clear
- Sheet3.[a1].Resize(n, c) = arr
- End Sub
复制代码 |
|