Excel VBA赋值单元格时触发Run Time Error '6'（溢出）问题求助

问题根源 #

尽管你把cValue声明为Double类型（支持超大数值范围），但赋值给C3时触发溢出错误，核心原因几乎都是目标单元格C3的格式被设置为整数类型（比如Integer、Byte），而C2的数值超出了该整数类型的取值上限（例如Integer最大为32767，Byte最大为255）。当VBA尝试把超出范围的数值写入整数格式的单元格时，就会抛出溢出错误。

修复方案 #

1. 调整单元格格式 #

右键点击C3单元格 → 选择「设置单元格格式」→ 切换到「数字」选项卡，将格式改为「常规」或「数值」（确保不是整数类格式），再重新运行宏。

2. 优化代码（避免Select操作，减少潜在问题） #

原代码使用大量Select操作不仅效率低，还容易引入意外问题，优化后的代码更简洁可靠：

Private AWB As Workbook
Private cValue As Double

Sub Test()
    Set AWB = ThisWorkbook
    With AWB.Sheets("Import")
        cValue = .Range("C2").Value
        .Range("C3").Value = cValue
    End With
End Sub

额外排查方向 #

• 如果调整格式后仍报错，手动将C2的值复制粘贴到C3，看Excel本身是否报错。如果手动操作也出错，说明C2的数值是Excel无法处理的特殊值（比如非法的科学计数法数值、错误值）。
• 检查模块中是否有其他子过程意外修改了私有变量cValue，导致赋值时数值异常。

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