VBA中如下代码出现application-defined or object-defined error应该如何解决？

Sub 计算折扣()
Dim sh As Worksheet
Set sh = Worksheets("sheet1")
Dim n As Integer
Dim i As Double
i = Sheets(1).[o2]
n = 5
Do
sh.Cells(n, 8) = sh.Cells(n, 7) * i 运行调试出现此条代码问题
n = n + 1
Loop Until n = 30
End Sub

请问是哪里出了问题？

没有问题,我运行了一下

程序没有错，看下你的环境！可以调试下，具体出在哪里了！

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息