帖子: 41
主題: 14
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 8
閱讀權限: 20
性別: 男
註冊時間: 2015-12-3
最後登錄: 2020-6-7

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-8-28 23:49 | 只看該作者

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

想請問各位大大
EXCEL中數字與數字中如果有空格要如何取代或刪除呢?

1.無法直接使用空格( )取代因為會有一些出現空格是為分段出數字的數值

2.無法使用(? ?)取代成(??) 因為?是兩個位數的取代方法影響
同上?的取代情況 (? )或( ?)也不可以使用

3.也有想過用九十九次的取代方法 (1 1) 取代成(11) 也是後段數值無法使用

發生這樣的情況
空格只會出現在數字的倒數第二個位置例如 1,00 0(正確為1,000)
但"數值"之間也是會有空格的存在例如 1,000 5 1,000,000(數值區段可能有很多)
(每段數值可能有個位數1 百位數100  千位數1,000  萬位數10,000 更多都會出現)

如有VBA的方式可以處理是最好

如有表達不清楚深感抱歉
歡迎大大的指教先感謝  再感謝

全部範本檔案

20160828數字中間空格問題.rar (503.93 KB)

20160828數字中間空格問題.rar (503.93 KB)

樓主熱帖

lo

stillfish00

大學生 Rank: 4

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

14^#

發表於 2016-9-14 15:58 | 只看該作者

回復 11# 小俠客
這個要解釋真的不好解釋...
我是會這樣抓啦，你參考看看:

Sub Test()
Dim oReg: Set oReg = CreateObject("vbscript.regexp")
Dim x, oMatch
Const EX1 = "1111 22222 3333年 44444年 abc5555 abc6666年 abc77777 abc88888年"
With oReg
.Pattern = "(?:\b|\D)(\d{4})(?=年|\b)"
.Global = True
Set oMatch = .Execute(EX1)
For Each x In oMatch
Debug.Print "x=" & x, "x.submatches(0)=" & x.submatches(0)
Next
End With
End Sub

複製代碼

輸出會是這樣，你好好體會一下

x=1111 x.submatches(0)=1111
x= 3333 x.submatches(0)=3333
x=c5555 x.submatches(0)=5555
x=c6666 x.submatches(0)=6666

複製代碼

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

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

13^#

發表於 2016-9-13 15:53 | 只看該作者

回復 11# 小俠客
不知道您的原始資料是什麼樣子，如果這些字串不會出現在句首跟句尾，.test那邊就不用改

Function IsYear (ByRef Target As String) As Boolean
Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
With oRegexp
.Pattern = "\D(\d{4}年?)\D"
IsYear = .test("-" & Target & "-")
End With
End Function

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

12^#

發表於 2016-9-13 15:00 | 只看該作者

本帖最後由准提部林於 2016-9-13 15:01 編輯

正則真的不容易！！！

試試公式如何：
=SUM(--TEXT(1&RIGHT(LEFT(A1,FIND("年",A1&"年")-1),{4,5}),"[<11901]-9;[>12099]-9;1;!0"))>0

限定 1901~2099 年之間為有效年，
02015年　雖為２０１５年，但因含５個數字，判為無效，
不過，abcd2015ppuy 這個不含"年"字，２０１５就無法用這公式判斷，
abcd2015年ppuy　就ＯＫ！

TOP

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

11^#

發表於 2016-9-13 13:33 | 只看該作者

回復小俠客
^ = 匹配字串開頭
\d{1,2} = 是指前面的 \d出現一次到兩次
另外常用簡化寫法
\d? = \d ...
stillfish00 發表於 2016-9-2 11:17

謝謝你，我已做過測試，好像成功了。
我也依樣試寫了一個檢查字串中有沒有年份的function
True :
1) 如有「年」字時，前面有4個數字
2) 如沒有「年」字，前面有4個數字

Function IsYear (ByRef Target As String) As Boolean
Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
With oRegexp
.Pattern ="[0-9]{4}[年]?(?![0-9])"
IsYear = .test(Target)
End With
End Function

複製代碼

做了測試，好像效果不太好。
1234
12345
1234年
12345年
abc1234
abc1234年
abc12345
abc12345年

這8組也是TRUE，但我只希望第1、3、5、6組是TRUE。用了{4}也無法限制數字字串只能是4個。
我已經加了negative lookahead (?![0-9]) ，限制數字字串後不可再跟數字，但VBA好像不支援negative lookbehind，無法限制數字字串的開始不是數字.....

TOP

stillfish00

大學生 Rank: 4

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

10^#

發表於 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

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

9^#

發表於 2016-9-2 10:23 | 只看該作者

本帖最後由小俠客於 2016-9-2 10:37 編輯

回復小俠客
參考吧1) 陳大文 True
32. 注意事項 True
123) 其他 False
stillfish00 發表於 2016-9-1 16:13

我發現到的文字模式是：
1) 以一個或兩個數字作開始
2) 數字後會以「)」、「.」作分隔(有時候是沒有)
3) 之後包含了一空格
4) 小段落的標題(正體中文)

"^\d{1,2}[)\.]\s.*"

複製代碼

\d =數字，如果要包含中國數字，是不是[0-9一二三四五六七八九十]
{1,2} = 首一至二字
[)\.] = 數字後是「)」、「.」，少數情況是：「12 天氣情況」，數字後只有一空格然後是標題，是不是改成

[)\.\s]

複製代碼

，但這樣會和後面的\s相沖，而令程式以為要有兩空格
* = 萬用碼

如果要符合我的要求，是不是改成

^[0-9一二三四五六七八九十]{1,2}[)\.\s]\s.*"

複製代碼

TOP

小俠客

中學生 Rank: 2

帖子: 83
主題: 17
精華: 0
積分: 105
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2010-12-28
最後登錄: 2018-8-8

8^#

發表於 2016-9-2 10:12 | 只看該作者

回復 6# 准提部林

對不起，我理解錯了，我還以為是regular expression。
因為我需要在數萬篇文章中找出小段落的開端，而文章的格式並不相同，所以我需要以較有效的方法找出小標題，然後加上數項驗證以確認這是我需要的段茖。
暫時我觀察了數百篇文章後，暫時我發現到的模式是：
1) 以一個或兩個數字作開始
2) 數字後會以「)」、「.」作分隔(有時候是沒有)
3) 之後包含了一空格
4) 小段落的標題(正體中文)

其實上面的已經是例子，不過可能太少，我要點時間再整理吧。

TOP

stillfish00