關閉列中的所有非數字值

Question

在Excel或VBA中，是否有方法通過其字符過濾單元格，然後將其插入單獨的列中？

例如，我的數據是這樣的：

A3200,12 
AB2000,32 
-300,34 
32567,32A 
6745,21AB 
500+ 

而且我要的結果是這樣的：

Column A 
3200,12 
2000,23 
300,34 
32567,32 
6745,21 
500 

Column B 
A 
AB 
- 
A 
AB 
+ 

那麼，有沒有辦法去thorugh每個單元並切斷所有非數字值出來這些並將它們複製到另一列？

Answer 1

一種方法是創建UDF（用戶差異函數）。

地點2個以下功能爲VBA模塊：

Function Digits(s As String) As String 
    With CreateObject("vbscript.regexp") 
     .Pattern = "[^0-9,]" 
     .Global = True 
     Digits = .Replace(s, "") 
    End With 
End Function 

Function NonDigits(s As String) As String 
    With CreateObject("vbscript.regexp") 
     .Pattern = "[0-9,]" 
     .Global = True 
     NonDigits = .Replace(s, "") 
    End With 
End Function 

要使用這些函數：如果數據是在單元格A1，只是在電池B1

=Digits(A1) 

和在小區C1中鍵入式：

=NonDigits(A1) 

第一個會將您的數據作爲僅包含數字的文本返回。要將其轉換爲數字，請使用VALUE函數。

第二個返回沒有任何數字的數據。