【VBA】一些判断

判断是否为空：

Sub 测试()
    If IsEmpty(Range("A100000")) Then
        Debug.Print "空的"
    End If
End Sub

或者 

Sub 测试()
    If Range("A100000").Value = "" Then
        Debug.Print "空的"
    End If
End Sub

判断是否是数字：（注意空的也会判断为数字）

Sub 测试()
    If IsNumeric(Range("A100000").Value) Then
        Debug.Print "是数字"
    End If
End Sub