Excel VBA – 清空空白单元格

我有单元格是空白的,但不是空的。 有没有办法从他们那里清除这些内容?

For Each c In Selection If IsNumeric(c) Then c.Value = 1 * c.Value Else c.Value = Delete End If Next c 

我用这个代码。 这将转换后的数字作为文本存储为数字。 空白不是空的单元格来清空单元格。 它的工作。 大范围有点慢,但是效果很好。