本文介绍了如何在此处避免除零问题的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我有大约500个数据和大约100个数据代码停止，因为除零错误
我尝试过：
Application.Range（o7）。激活
'数据的计数存储在变量
Application.Range（Selection，Selection.End（xlDown））。选择
a = Application.CountA（选择）
范围（o7）。激活
'循环函数用于数据计数
For i = 1 to a
ActiveCell.Offset（0,1） .Activate
b = ActiveCell.Value
ActiveCell.Offset（0,1）。激活
c = ActiveCell.Value
ActiveCell.Offset（0,1）.Activate
e =（c / b）* 100
'数据的值存储在一个变量中并用于计算SAMPLE COMPLIANCE使用另一个变量
ActiveCell.Value = e
ActiveCell.Offset（1，-3）。激活
下一页
Application.ScreenUpdating = Fals e $>
End Sub
解决方案
这篇关于如何在此处避免除零问题的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！