可以使用IsNumber函数来判断内容是否为数字，如果在VBA中，你就这样来使用。
If WorksheetFunction.IsNumber(Sheet1.Cells(m, n).Value) Then
'该内容是数字
End If
除此之外，还可以使用其它的方法。
Range("A1").Formula = "'12"
If Range("A1").Errors.Item(xlNumberAsText).Value = True Then
MsgBox "该内容是文本数字."
Else
MsgBox "该内容不是文本数字，而是本身就是数字."
End If