IsNumeric 函数对于空单元格返回 true

判断单元格是否为数值类型的函数：IsNumeric

Sub CheckNumeric()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Range("A1:A10") '假设需要检查的单元格范围是A1:A10
    
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            MsgBox "单元格 " & cell.Address & " 中的内容为数值类型"
        Else
            MsgBox "单元格 " & cell.Address & " 中的内容不是数值类型"
        End If
    Next cell
End Sub