|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub text()
t = Timer
Sheet3.Activate
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 1)
Dim regx As Object
Set regx = CreateObject("vbscript.regexp")
With regx
For i = 1 To UBound(arr)
.Global = True
.Pattern = "\d{1,}\*\d{1,}"
Set matchs = .Execute(arr(i, 1))
For Each e In matchs
a = a & " " & e.Value
Next
brr(i, 1) = Mid(a, 2)
a = ""
Next
End With
[c1].Resize(UBound(arr), 1) = ""
[c1].Resize(UBound(arr), 1) = brr
t = Timer - t
MsgBox t
End Sub
|
|