返回列表 上一主題 發帖

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

看起來都是千分位後面的三位數字多一個空白字元,
自訂函數:
  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

回復 5# 小俠客

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

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

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

TOP

本帖最後由 准提部林 於 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年 雖為2015年,但因含5個數字,判為無效,
不過,abcd2015ppuy 這個不含"年"字,2015就無法用這公式判斷,
abcd2015年ppuy 就OK!

TOP

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