12
返回列表 上一主題 發帖

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

小俠客

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

准提部林

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

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

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

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
12
返回列表 上一主題