VBA运行时错误'6'溢出求助：Worksheets.Range行超32768报错

核心错误原因：Integer类型溢出 #

VBA中的Integer是16位整数，最大值为32767。当RunCounter = 32766时，RunCounter + 2 = 32768，超过了Integer的取值上限，直接触发溢出错误（错误6）。这和Excel支持的行数无关，是变量类型的限制导致的。

具体修复步骤 #

• 替换变量类型：将RunCounter的类型从Integer改为Long，Long是32位整数，最大值为2147483647，完全覆盖Excel的最大行号（1048576）：

  Dim RunCounter As Long
  

• 修正Range引用语法：原代码的Range写法存在语法错误，正确的单元格引用应该用&连接列标和行号，加括号确保运算顺序：

  Worksheets("Optimization").Range("S" & (RunCounter + 2)) = Margin(RunCounter, 0)
  

• 修正数组定义：原代码中Margin (250,000, 5)的逗号会被解析为维度分隔符，变成三维数组，不符合模拟结果的二维需求。去掉千分位逗号，定义正确的二维数组：

  Dim Margin(250000, 5) As Variant
  

• 额外检查项：
  • 确认Worksheets("Optimization")存在于当前工作簿，避免下标越界错误；
  • 检查Margin数组的下标范围：VBA默认数组下界为0，确保RunCounter的最大值不超过数组第一维度的上限，防止数组下标越界。

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