M2 Mac上Excel VBA出现异常Run-time error 6: Overflow求助

环境 #

• 设备：M2 MacBook Air
• 系统：macOS Sequoia 15.6.1 (24G90)
• Excel版本：Microsoft Excel for Mac Office 365 版本16.102.1 (25101829)

操作步骤 #

1. 移除Personal.xlsb、禁用所有插件后重启笔记本
2. 新建.xlsm工作簿，运行以下VBA代码：

Sub test()
    Dim i As Integer
    Dim x As Single
    For i = 1 To 3
        x = i
        Debug.Print i & " " & x
    Next i
End Sub

异常现象 #

• 直接运行代码时触发Run-time error '6': Overflow错误，错误行高亮x = i
• 即时窗口仅输出1 1
• 进入调试器单步执行时，代码可正常完成整个循环

解决建议 #

• 替换变量类型：将x的类型从Single改为Double，或者把i的类型从Integer改为Long，规避可能存在的类型转换底层bug。
• 添加显式类型转换：赋值时强制转换类型，修改为x = CSng(i)，避免隐式转换引发的异常。
• 更新/修复Excel：该问题属于特定版本的Excel VBA bug，建议升级到最新的Office 365版本，或回退至之前稳定的版本测试。

内容的提问来源于stack exchange，提问作者Tom Kreutz