數字與數字中如果有空格要如何取代或刪除呢? - Excel程式區

返回列表下一主題上一主題發帖

[發問] 數字與數字中如果有空格要如何取代或刪除呢?

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2016-9-1 16:13 | 顯示全部帖子

回復 5# 小俠客
參考吧

Sub Test()
Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
With oRegexp
.Pattern = "^\d{1,2}[)\.]\s.*"
For Each x In Array("1) 陳大文", "32. 注意事項", "123) 其他")
Debug.Print x, .Test(x)
Next
End With
End Sub

複製代碼

1) 陳大文 True
32. 注意事項 True
123) 其他 False

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2016-9-2 11:17 | 顯示全部帖子

回復 9# 小俠客
^ = 匹配字串開頭
\d{1,2} = 是指前面的 \d出現一次到兩次
另外常用簡化寫法
\d? = \d{0,1}
\d+ = \d{1,}
\d* = \d{0,}

[)\.] = 是「)」或是「.」單一字元
如果這個字元的匹配可有可無(出現0次到1次)，
可以在後面加問號
[)\.]? = [)\.]{0,1}

最後的 .*
.才是表示任意字元 *表示出現0次到任意多次
我沒有特別去匹配中文字，要匹配正體中文應該是[\u4e00-\u90a5]

若依你的條件:
1) 以一個或兩個數字作開始，包含中國數字一二三四五六七八九十
2) 數字後會以「)」、「.」作分隔(有時候是沒有)
3) 之後包含了一空格 (必定一空格)
4) 之後接正體中文 (假設至少一中文字)

可寫成
^[0-9一二三四五六七八九十]{1,2}[)\.]?\s[\u4e00-\u90a5]+"

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00