VBA数组计算触发Overflow错误(6)，求跳过空值执行计算方案

嘿，这个问题我之前写VBA宏的时候也踩过坑！Overflow错误（错误6）十有八九是因为你直接把空的数组元素塞进算术运算里了——VBA对空值的处理特别严格，空值参与计算很容易触发溢出或者类型不匹配的问题。

给你几个简便的解决思路，按需挑选就行：

1. 计算前先判断，跳过空值/非数值元素 #

这是最直接的方法，在执行计算的循环里加个判断，只对有效数值做运算。比如你要遍历数组计算总和的话：

Dim total As Double
Dim i As Integer, j As Integer

total = 0
For i = 1 To 11
    For j = 1 To 4
        ' 先检查元素非空且是可计算的数值
        If Not IsEmpty(MyArr(i, j)) And IsNumeric(MyArr(i, j)) Then
            total = total + MyArr(i, j) ' 这里替换成你的实际计算逻辑
        End If
    Next j
Next i

IsEmpty()专门用来检测数组元素是否为空，IsNumeric()确保元素是能参与算术运算的数值，两者结合就能精准跳过那些会搞砸计算的空值。

2. 把空值转成安全默认值（比如0） #

如果你不想写太多判断逻辑，可以把空值替换成0（或者其他不影响你计算的默认值）。Excel VBA里没有Access的Nz()函数，但我们可以自己写个简易版：

' 自定义函数：把空值转成指定默认值，默认是0
Function MyNz(val As Variant, Optional defaultVal As Variant = 0) As Variant
    If IsEmpty(val) Or val = "" Then
        MyNz = defaultVal
    Else
        MyNz = val
    End If
End Function

之后计算的时候直接用这个函数包裹数组元素：

' 示例：计算第9行第4列和其他元素的和
Dim result As Double
result = MyNz(MyArr(9, 4)) + MyNz(MyArr(2, 3)) + ' 其他元素

这样空值会自动变成0，不会触发溢出错误，计算就能正常跑了。

3. 填充数组时提前处理空值 #

既然你说填充环节运行正常，其实也可以在填充数组的步骤就把空值换成0，从源头避免问题。比如你从工作表取值填充的代码可以改成：

' 假设你从Sheet1的单元格取数填充MyArr
For i = 1 To 11
    For j = 1 To 4
        MyArr(i, j) = IIf(IsEmpty(Sheet1.Cells(i, j)), 0, Sheet1.Cells(i, j).Value)
    Next j
Next i

这样数组里就不会有空值，后续计算直接用就行，省得再额外判断。

个人最推荐第一种方法，逻辑清晰，也不会改变原数组的内容；如果你的计算场景比较简单，用自定义MyNz函数会更省心。

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