12
返回列表 上一主題 發帖

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

tr24572411

帖子
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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2016-8-29 11:17 | 只看該作者
回復 1# tr24572411

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2016-8-29 11:36 | 只看該作者
回復 1# tr24572411
Sub Ex()
    With Sheets("Sheet2")
        For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
            '  .Cells(i, 6) = Trim(.Cells(i, 1)) = Trim(.Cells(i, 2))   '  字串中之 Space　無法移除
            .Cells(i, 7) = Replace(.Cells(i, 1), " ", "") = Replace(.Cells(i, 2), " ", "")
        Next
    End With
End Sub

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
4#
發表於 2016-8-29 11:43 | 只看該作者
看起來都是千分位後面的三位數字多一個空白字元,
自訂函數:
  1. Function ClearSpace(xStr$) As String
  2. Dim TT, i%
  3. TT = Split(Replace(xStr, ",", "_,"), "_")
  4. For i = 0 To UBound(TT)
  5.     If TT(i) Like ",[0-9][0-9] [0-9]*" Then
  6.        TT(i) = Replace(TT(i), " ", "", 1, 1)
  7.     End If
  8. Next
  9. ClearSpace = Join(TT, "")
  10. End Function
複製代碼
Xl0000109.rar (40.52 KB)

公式：=ClearSpace(A2)
　
　

TOP

小俠客

帖子
83 
主題
17 
精華
0 
積分
105 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2010-12-28 
最後登錄
2018-8-8 
5#
發表於 2016-9-1 13:05 | 只看該作者
看起來都是千分位後面的三位數字多一個空白字元,
自訂函數:

公式：=ClearSpace(A2)
　
　
准提部林 發表於 2016-8-29 11:43



    看來版大好像是使用正則表達式來解決這個問題，很利害！而且不需要使用CreateObject("VBScript.RegExp")感覺更方便。
正則表達式(http://regexr.com/)好像很困難，我看了很多東西也不了解，下面有一題目，可以請版大幫助指教嗎？

我想找出這種句型的字串，首1/2個字為數字，之後可能是「) 」、「. 」的分格符號和一空白字元，之後是中文字。例如：
-----------------------
符合
1) 陳大文
32. 注意事項

不符合
123) 其他
雜項
----------------
能夠用正則表達式處理嗎？現在我只能用for loop ，再用asc，很慢......

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-21 
6#
發表於 2016-9-1 14:38 | 只看該作者
回復 5# 小俠客

4樓用的只是很普通的判斷式, 與正則無關, 尚且我對正則並無研究!!!

取文字的問題, 須先看完整的文字, 而非片段, 否則不管用正則或其它方法, 都可能出錯!

最好附上最完整的內容及需求, 能模擬結果更好!

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
7#
發表於 2016-9-1 16:13 | 只看該作者
回復 5# 小俠客
參考吧
  1. Sub Test()
  2.     Dim x, oRegexp As Object: Set oRegexp = CreateObject("vbscript.regexp")
  3.     With oRegexp
  4.         .Pattern = "^\d{1,2}[)\.]\s.*"
  5.         
  6.         For Each x In Array("1) 陳大文", "32. 注意事項", "123) 其他")
  7.             Debug.Print x, .Test(x)
  8.         Next
  9.     End With
  10. End Sub
複製代碼
1) 陳大文   True
32. 注意事項 True
123) 其他   False
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

小俠客

帖子
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

小俠客

帖子
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) 小段落的標題(正體中文)
  1.     "^\d{1,2}[)\.]\s.*"
複製代碼
\d =數字，如果要包含中國數字，是不是[0-9一二三四五六七八九十]
{1,2} = 首一至二字
[)\.] = 數字後是「)」、「.」，少數情況是：「12 天氣情況」，數字後只有一空格然後是標題，是不是改成
  1. [)\.\s]
複製代碼
，但這樣會和後面的\s相沖，而令程式以為要有兩空格
* = 萬用碼

如果要符合我的要求，是不是改成
  1. ^[0-9一二三四五六七八九十]{1,2}[)\.\s]\s.*"
複製代碼

TOP

stillfish00

帖子
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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
12
返回列表 上一主題