Vba：如何使用 isnumeric 检查单元格是否为数字

您可以使用 VBA 中的IsNumeric函数来检查给定单元格是否为数字。

如果给定单元格的值被识别为数字，则此函数将返回True 。

否则，该函数将返回False 。

以下是在实践中使用此功能的常见方法：

 SubCheckNumeric ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range(" A " & i)) = True Then
            Range(" B " & i) = " Numeric Value "
        Else
            Range(" B " & i) = " Not a Numeric Value "
        End If
    Next i
    
End Sub

这个特定的宏将检查范围A1:A9中的每个单元格是否是数字。

如果单元格是数字，则B1:B9范围内相应单元格中将返回“数值”。

如果单元格不是数字，则将返回“Not a numeric value”。

以下示例展示了如何在实践中使用此语法。

示例：如何在 VBA 中使用 IsNumeric

假设我们在Excel中有如下一列值：

假设我们要检查 A 列中的每个单元格是否都是数字。

我们可以创建以下宏来执行此操作：

 SubCheckNumeric ()
    
    Dim i As Integer

    For i = 1 To 9
    
        If IsNumeric(Range(" A " & i)) = True Then
            Range(" B " & i) = " Numeric Value "
        Else
            Range(" B " & i) = " Not a Numeric Value "
        End If
    Next i
    
End Sub

当我们运行这个宏时，我们会收到以下输出：

B 列显示的结果告诉我们 A 列中的每个匹配单元格是否被识别为数字。

结果中需要注意以下一些有趣的事情：

• 带小数位的数字被识别为数字。
• 百分比被识别为数字。
• 日期不被识别为数字。
• 包含数字的文本不会被识别为数字。

注意：您可以在此处找到 VBA IsNumeric函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中将字符串转换为int
如何在VBA中将字符串转换为双精度
如何在VBA中检查一个字符串是否包含另一个字符串