划分工作表值

Question

我试图除以工作表值并放在变量h中。我的工作表是ws并已设置。这是代码：

h = (ws.Range("O" & y).Value2 - ws.Range("S" & y).Value2) / ws.Range("S" & y).Value2

问题似乎与ws.Range("S" & y).value2有关。当我从S中减去O时，我会返回一个值，这有什么奇怪的。只有当我划分时才会返回所有0 - 这是不可预期的。是否存在关于除法的独特之处，或者可能与我在工作表上的数据有关？

Answer 1

您的代码适合我：

Sub qwerty()
    Dim y As Long, h As Double, ws As Worksheet

    Set ws = ActiveSheet
    y = 3
    h = (ws.Range("O" & y).Value2 - ws.Range("S" & y).Value2) / ws.Range("S" & y).Value2
    MsgBox h
End Sub