1.先设置单元格为 保留2位小数。
2.判断单元格内容
Dim line1 as single
Dim line2 as single
If Cells(2,2).Value = "" Then
line1 = 0
Else
if Not IsNumeric(Cells(2, 2).Text) Then
MsgBox "Input Data Error!"
End if
line1 = Cells(2,2).Value
End if
原文：http://www.cnblogs.com/sylar-liang/p/5581500.html