返回列表 上一主題 發帖

[發問] 求助: 做正則在數字與文字或文字與數字之間插入空格。

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-12-25 23:05 | 顯示全部帖子

[發問] 求助: 做正則在數字與文字或文字與數字之間插入空格。

regexp.rar (10.06 KB)
將錯誤的 - 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)", 做兩次循環。
請老師幫忙。
收藏 分享

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2015-12-28 10:17 | 顯示全部帖子
自己解決了, 分享一下:

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

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
3#
發表於 2015-12-28 13:02 | 顯示全部帖子
多謝stillfish00,思路正確, 更正了

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題