VBA单元格相除运算触发Overflow（溢出）错误问题求助

报错核心原因 #

• 隐式类型转换溢出：VBA读取单元格Value属性时会自动做隐式类型匹配，大数值带小数的运算场景下很容易被默认匹配为范围较小的整型/长整型，中间计算值超出类型边界就会触发溢出错误
• 潜在异常场景缺失校验：未对E列做非0校验，遇到除数为0的情况也会触发运算错误
• 冗余代码干扰：For循环外的Counter = Counter + 1是无效代码，For循环初始化时会直接覆盖Counter的初始值，不影响运行但属于冗余逻辑

修复后完整代码 #

Dim End_Row As Long
Dim Counter As Long
' 显式声明Double类型变量存储运算值，彻底避免隐式转换溢出
Dim valE As Double, valF As Double

End_Row = ws1.Cells(Rows.Count, 1).End(xlUp).Offset(-7, 0).Row

For Counter = 3 To End_Row
    ' 先读取单元格值并显式转换为Double类型
    valE = CDbl(Range("E" & Counter).Value)
    valF = CDbl(Range("F" & Counter).Value)
    
    ' 除数非0判断，避免除零错误
    If valE <> 0 Then
        ' 计算后用Round函数保留两位小数
        Range("G" & Counter).Value = Round((valF / valE) * 100, 2)
    Else
        ' 除数为0时可自定义填充内容，示例为空值，也可改为"无效值"等提示
        Range("G" & Counter).Value = ""
    End If
Next Counter

可选优化项 #

如果表格数据量较大，可在循环前后添加屏幕更新开关提升运行效率：

' 循环开始前添加
Application.ScreenUpdating = False

' 循环结束后添加
Application.ScreenUpdating = True

内容的提问来源于stack exchange，提问作者Julia Tattersall