除法给出错误的值

Question

伙计，这让我发疯了！  我正在尝试划分两个单元格，答案总是1。 查看图片以了解有关此问题的更多信息：https://imgur.com/B8NfWJh 如您所见，我使用的是正确的工作表编号。

之前的代码中未使用变量“ PTDPE”。 我真的不想打扰你们，因为它大约有600行，但是如果您需要我可以在这里添加。

Dim PTDPE As Integer

PTDPE = Sheets(2).Cells(17, 6).Value / Sheets(2).Cells(17, 7).Value

Worksheets("Sheet2").Cells(17, 8).Value = PTDPE

其他变量都可以，并提供正确的值。但是这个总是显示1

Answer 1

您已声明PTDPE As Integer。当excel执行除法运算时，会将结果四舍五入到最接近的Integer-在这种情况下为1。

将您的喜好更改为Dim PTDPE As Single