Excel 将列中的所有数字替换为除特定单词外的空白

我需要一个代码，比如如果列中有任何数字需要替换为空格，或者如果列中有任何单词不应该替换为空白 例如：

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

---

在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

---

在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

---

你如何决定是写“空白”还是在单元格中留一个空格？如果单元格中有任何数字，我只需要空白。只需使用

IsNumeric

来测试该值是否为数字，如果是，则使用

清除
来清除单元格（或者如果愿意，将
值设置为
”
）。如果您发布当前的代码尝试，我们可以帮助您修复它。您如何决定是否写入“空白”或在其中放置空格？如果该单元格中有任何数字，我只需要它为空白。只需使用
IsNumeric
测试该值是否为数字，如果是，则使用
清除
清除该单元格（或将
值设置为
）
如果您愿意）。如果您发布当前的代码尝试，我们可以帮助您修复。在同一单元格中，只有我需要原始帖子中包含的代码来满足您的要求。在同一单元格中，只有我需要原始帖子中包含的代码来满足您的要求。