我需要求出这个面积和体积单元格的数值，这样错了吗？
Option Explicit
Sub yuan()
Dim r1, s, v
Const P = 3.1415926

    r1 = Cells(3, 4)
    s = P * r1 * r1

    v = 4 / 3 * P * r1 * r1 * r1
   
    Cells(3, 5) = s
    Cells(3, 6) = v
   

End Sub

r1 = Cells(3, 4)
半径的数值在  Cells(4, 4) = 4

谢谢谢谢 大哥 我太粗心了
非常感谢