vba，剔除数值单元格，使其为空值。大侠。。假使a列a1=“123”，a2=“b25”。执行后，a1=“”，a2=“b25”保持不变
参考代码：
Sub ClearNumbers()On Error Resume Next
Columns(1).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2016-12-06
For i = 2 To 10
If IsNumeric(Range("A" & i)) Then
Range("A" & i) = ""
End If
Next
If IsNumeric(Range("A" & i)) Then
Range("A" & i) = ""
End If
Next
