用空白replace列中的所有数字除了特定的词

我需要一个代码，如果列中有任何数字需要replace空格或空白，如果有任何字包含在该列中不应该取代为例：

AA 1411000509 1411000990 1511000242 1606000059 1763104606 1711001701 1711001703 1763103223 1711001722 1763100137 ADDITION ADDITION DELETION DELETION 

Answer 1

在B1细胞

 =IF(ISNUMBER(A1),"",A1) 

将公式向下拖动。

使用编码

 Sub ClearNumericData() Dim r As Range Application.ScreenUpdating = False For Each r In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row) If IsNumeric(r.Value) Then r.ClearContents Next r Application.ScreenUpdating = True End Sub