VBA运行时错误'6':Overflow求助（改用Long类型仍未解决）

你遇到的溢出错误，即便把变量从Integer改成Long还没解决，大概率是以下几种情况：

1. Long类型的上限不够 #

VBA里Long是32位整数，最大值是2,147,483,647。如果单只股票全年成交量总和超过这个数，累加时必然溢出。解决办法是换用更大范围的数值类型：

• Double：适合超大数值的累加，范围足够覆盖绝大多数成交量场景
• Currency：如果需要精确计算（避免浮点误差），用这个类型，范围是-922万亿到922万亿
• Decimal：精度最高，但不能直接声明变量类型，得用Variant存储后转成Decimal，比如Dim total As Variant: total = CDec(0)

2. 中间计算环节溢出 #

哪怕最终变量是Long，要是中间用了小类型变量参与计算，也会触发错误。比如下面的代码，temp是Integer，赋值10万就已经溢出了：

Dim temp As Integer
temp = 100000 ' 这里直接溢出，不管total是不是Long
total = total + temp

要确保所有参与累加的变量都是大类型，比如把temp改成Long/Double。

3. 单元格数据有问题 #

如果L列里有非数值内容（比如文本、空值、错误值），读取时可能导致异常计算。可以加个判断再累加：

If IsNumeric(Range("L" & i).Value) Then
    totalVolume = totalVolume + CDbl(Range("L" & i).Value)
End If

修正后的分组累加示例代码 #

假设你需要按I列的股票代码分组计算总成交量，用字典来实现更高效，同时避免溢出：

Sub CalculateTotalVolume()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "I").End(xlUp).Row ' 获取I列最后一行数据
    
    Dim tickerDict As Object
    Set tickerDict = CreateObject("Scripting.Dictionary")
    
    Dim i As Long
    Dim currentTicker As String
    Dim currentVol As Double
    
    For i = 2 To lastRow
        currentTicker = Trim(Range("I" & i).Value)
        If currentTicker <> "" Then
            currentVol = CDbl(Range("L" & i).Value)
            ' 累加成交量
            If tickerDict.Exists(currentTicker) Then
                tickerDict(currentTicker) = tickerDict(currentTicker) + currentVol
            Else
                tickerDict(currentTicker) = currentVol
            End If
        End If
    Next i
    
    ' 将结果写入工作表（比如从第2行开始覆盖或追加）
    Dim outputRow As Long
    outputRow = 2
    For Each key In tickerDict.Keys
        Range("I" & outputRow).Value = key
        Range("L" & outputRow).Value = tickerDict(key) ' 写入L列总成交量
        outputRow = outputRow + 1
    Next key
    
    Set tickerDict = Nothing
End Sub

额外检查 #

• 先检查L列有没有异常的超大数值（比如误输入的10^18这种数）
• 确认代码里没有重复累加同一行数据的逻辑错误

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