|
发表于 2023-2-13 09:46
|
显示全部楼层
本楼为最佳答案
- Sub demo()
- Dim a
- Set re = CreateObject("vbscript.regexp")
- a = Range([b3], [b3].End(4))
- re.Pattern = Join(Application.Transpose(a), "|")
- a = Range([a3], [a3].End(4))
- b = a
- For i = 1 To UBound(a)
- If Not re.test(a(i, 1)) Then
- r1 = r1 + 1: a(r1, 1) = a(i, 1)
- Else
- r2 = r2 + 1: b(r2, 1) = a(i, 1)
- End If
- Next
- [c3:d1000].ClearContents
- [c3].Resize(r1) = a
- [d3].Resize(r2) = b
- End Sub
复制代码
祝順心,南無阿彌陀佛!
|
评分
-
查看全部评分
|