单纯访问纯数字

我有一列值可以是数字单独或数字和字母的组合如图所示：

我在macros中有一个if语句。 我想运行声明，只有当Activecell的值是一个纯数字，而不是数字和字母的混合。 例如，在上面的例子中，我希望if语句只能在111156，102963，112224等这些值上工作，而不是在HE2790等。我想循环继续，直到最后跳过那些有一个混合入门。 我也有各种其他字母组合的入口。 有人可以build议我一个可以根据我的需要工作的macros吗？

我试过的代码如下

Do While ActiveCell.value <> "" If ActiveCell.value.IsNumeric() Then //code End If ActiveCell.Offset(1, 0).Activate Loop 

我也尝试了IsNumber（）而不是IsNumeric（），但徒劳无功。

如果有人能帮我解决这个问题，那将会很好。

提前致谢！

Answer 1

尝试IsNumeric(ActiveCell.Value)

这对我来说运行良好：

 Do While ActiveCell.Value <> "" If IsNumeric(ActiveCell.Value) Then Debug.Print "numeric" Else Debug.Print "not" End If ActiveCell.Offset(1, 0).Activate Loop 

Answer 2

IsNumeric的用法不正确。 请参阅下面的解决办法。

 Do While ActiveCell.Value <> "" If IsNumeric(ActiveCell.Value) Then 'Code End If ActiveCell.Offset(1, 0).Activate Loop