求助: 用正則在數字與文字或文字與數字之間插入空格。

Chip_Kenny

求助:
用正則在數字與文字或文字與數字之間插入空格。
將錯誤的 - I am 18years old and weight50 Kgs.
更正為 - I am 18 years old and weight 50 Kgs.
如何能寫成一個 Pattern, 目前我是寫成兩個 "(\d)([a-zA-Z])" 和 "([a-zA-Z])(\d)", 做兩次循環。
請老師幫忙。

Chip_Kenny

推一下, 待老師們指導。

何亦冷

正则表达式: (\d)([a-zA-Z])|([a-zA-Z])(\d)   
替换为: $1 $2$3 $4
这样就又多了空格,还是不行,个人觉得楼主的还是蛮好的

Chip_Kenny

何亦冷 发表于 2015-12-26 14:46
正则表达式: (\d)([a-zA-Z])|([a-zA-Z])(\d)   
替换为: $1 $2$3 $4
这样就又多了空格,还是不行,个人觉得 ...

多謝關注, 這樣是不行的,但仍然多謝你。

Chip_Kenny

自己解決了, 分享一下:

Sub zz()
Dim arr, rx As Object, c$
Set rx = CreateObject("vbscript.regexp")
arr = ActiveSheet.UsedRange
With rx
    .Pattern = "((d|[A-z])|([A-z]|d))(\d)"
    .Global = True
    For i = 1 To UBound(arr)
        arr(i, 1) = .Replace(arr(i, 1), "$1 $2")
    Next
End With
ActiveSheet.UsedRange = arr
End Sub

Chip_Kenny

仍然有錯, 再改正一下
Sub zz()
Dim arr, rx As Object, c$
Set rx = CreateObject("vbscript.regexp")
arr = ActiveSheet.UsedRange
With rx
    .Pattern = "(\d(?=[A-z])|[A-z](?=\d))"
    .Global = True
    For i = 1 To UBound(arr)
        arr(i, 1) = .Replace(arr(i, 1), "$1 ")
    Next
End With
ActiveSheet.UsedRange = arr
End Sub