VBA如何识别列的内容是否为数字？

Sub CheckColumnForNumbers()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要检查的列范围
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 使用IsNumeric函数判断单元格的内容是否为数字
        If IsNumeric(cell.Value) Then
            ' 如果是数字，执行相应的操作
            MsgBox cell.Address & " 是数字"
        Else
            ' 如果不是数字，执行相应的操作
            MsgBox cell.Address & " 不是数字"
        End If
    Next cell
End Sub