判断单元格里的数值是否为数字

mol1981

各位老师好：
问题：

A列里的内容有字符串，也有纯数字，
如何判断是否为纯数字，是纯数字，就写TRUE,不是就写false

Sub test()
For a = 1 To 13
If IsNumeric(Cells(a, 1)) Then
Cells(a, 2) = "true"
Else
Cells(a, 2) = "false"
End If
Next
End Sub
IsNumeric 用这个判断时，当单元格内容为空时，就出问题了，各位老师，我该怎么改改，谢谢
test.rar (11.07 KB, 下载次数: 8)

2019-12-7 12:41 上传

点击文件名下载附件

Q155133209

加个单元格不为空不就完了

aecn

If Cells(a, 1) <> "" And IsNumeric(Cells(a, 1)) Then

abc123281

Sub test()
For a = 1 To [a65536].End(3).Row
  If TypeName(Cells(a, 1).Value) = "Double" Then
    Cells(a, 2) = "true"
  Else
    Cells(a, 2) = "false"
  End If
Next
End Sub

ggmmlol

用工作表函数：
Sub test()
    For a = 1 To 13
        Cells(a, 2) = Application.IsNumber(Cells(a, 1))
    Next
End Sub

lss001

Sub test()
    For a = 1 To 13
        If Cells(a, 1) <> "" And  IsNumeric(Cells(a, 1)) Then
            Cells(a, 2) = "True"
        Else
            Cells(a, 2) = "False"
        End If
    Next
End Sub