VBA 宏成功运行 3 次后出现内存不足错误

使用 VBA 宏可以在 Microsoft Office 软件中自动执行任务，提高工作效率。然而，有时候在运行宏的过程中可能会遇到内存不足的错误。本文将介绍在 VBA 宏成功运行 3 次后出现内存不足错误的原因，并提供解决方案。同时，我们将通过一个案例代码来说明这个问题。

vba
Sub 处理数据()
    Dim i As Long
    Dim 数据范围 As Range
    
    Set 数据范围 = Range("A1:A1000000") ' 假设数据范围很大
    
    For i = 1 To 100 ' 运行宏 100 次
        ' 执行大量的数据处理和计算操作
        ' ...
    Next i
End Sub

vba
Sub 处理数据()
    Dim i As Long
    Dim 数据范围 As Range
    Dim 每次处理行数 As Long
    Dim 总行数 As Long
    
    Set 数据范围 = Range("A1:A1000000") ' 假设数据范围很大
    总行数 = 数据范围.Rows.Count
    每次处理行数 = 10000 ' 每次处理 10000 行数据
    
    For i = 1 To Application.WorksheetFunction.RoundUp(总行数 / 每次处理行数, 0)
        ' 计算每次处理的起始行和结束行
        Dim 起始行 As Long
        Dim 结束行 As Long
        起始行 = (i - 1) * 每次处理行数 + 1
        结束行 = i * 每次处理行数
        If 结束行 > 总行数 Then
            结束行 = 总行数
        End If
        
        ' 处理每次的数据范围
        Dim 当前数据范围 As Range
        Set 当前数据范围 = 数据范围.Rows(起始行 & ":" & 结束行)
        
        ' 执行数据处理和计算操作
        ' ...
    Next i
End Sub