Dim sts = 1/6
Dim sts1 As Double = 1/sts
Dim sts2 As Double = 1\\sts
If sts1 <> sts2 Then
sts3 = sts2+1
End If

就是这样。

是字符还是数值？是数值的话，无法处理。是字符的话，直接获取。

Dim s as string = "1/6"
Dim ary() As String = s.split("/")
msgbox(ary(1))

不好意思， 是这样的， 我有个单元格 数值是  0.16666666  是通过  1/6  计算而出。

而现在我想讲这个数值方向计算出   得数  6   但是实际计算过程中， 得出的数值是  1/0.16666666 = 5.99999999

所以。我就想通过，

Dim sts As Double = 1/6
Dim sts1 As Double = 1/sts
Dim sts2 As Double = 1\\sts
If sts1 <> sts2 Then
sts3 = sts2+1
End If

来判断，是否有小数点， 然后  取整数 +1 。返回出  6 这个数值。

 但是 在操作中，总是提示 试图除以整零，所以想问下老师，我是否哪里做错了。

这个意思？

Dim d1 As Double = 0.1666666
Dim d2  As Integer = 1 / d1
msgbox(d2)

哦对，  我脑子抽抽了。