|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
使用正则处理,10位(含)以上提取- Sub qq()
- Dim reg, k, mh, s$, mhk, arr, r%
- Set reg = CreateObject("vbscript.regexp")
- r = Cells(Rows.Count, 1).End(xlUp).Row
- Columns("b").Clear
- arr = Range("a1:b" & r)
- With reg
- .Pattern = "\d{10,}"
- .Global = True
- For k = 3 To UBound(arr)
- If .test(arr(k, 1)) Then
- Set mh = .Execute(arr(k, 1))
- For Each mhk In mh
- arr(k, 2) = arr(k, 2) & " " & mhk
- Next
- End If
- Next
- End With
- Columns("a:b").NumberFormat = "@"
- Range("a1:b" & r) = arr
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|