Vba 将两个工作表函数合并为一个代码

我正在一个工作表中编写代码（使用一个专用的sub），我想将两个数字分开。有没有办法使用这个代码

Can.Range("AB4") = Application.WorksheetFunction.Quotient(.Max(Price, POS))

谢谢

---

格里芬

如果要将

价格

除以

pos

，只需使用：

Can.Range("AB4") = Application.WorksheetFunction.Quotient(Price, pos)

您可能知道，商“返回除法的整数部分。”

如果要返回除法结果，请使用：

Can.Range("AB4") = Price/pos

---

将最高价格除以pos

with Application.WorksheetFunction
    Can.Range("AB4") = .Quotient(.Max(Price), POS)
end with

---

请使用

Can.Range（“AB4”）.Value

设置值，而不依赖默认值。这将明确是否设置了值、函数或格式，或者是否引用了范围本身。@ja72，好的，上下文在这里把一切都讲清楚了。无论如何，显式默认参数永远不会有害。出于好奇，这样的建议是否只适用于“10k以下”的答案？我希望我能给每个人支票。非常感谢！代码可以工作，但唯一的问题是商值向下舍入。我想要的值是67.74，但返回的是67。当我添加更多小数时，值为67.00。为什么会这样？值是67。如何提高小数位数？不幸的是，它没有起作用。我不知道这是否意味着什么，但这是一个私人分包，价格和POS都声明为长期。我试着将它们声明为Double，但它并没有做任何事情。提示：如果要对数值进行除法，应该使用“/”运算符，因为Excel中没有除法函数。例如，要将5除以2，可以在单元格中键入=5/2，返回2.5。这些相同数字的商函数=商（5,2）返回2，因为商不返回余数。