Excel宏开发：实现单列空白区间内单元格批量求和（适配3500+行）

嘿，我懂你处理3500+行数据的痛点——逐行循环找空白单元格计算的话，速度会慢到让人崩溃。下面给你两个高效的VBA方案，专门适配大行数场景：

直接操作Excel单元格对象是出了名的慢，尤其是上万行的数据。把整列数据读到内存数组里处理，再一次性写回单元格，能把速度提升几十倍。

Sub CalculateSumBetweenBlanks()
    Dim ws As Worksheet
    Dim dataArr As Variant
    Dim lastRow As Long
    Dim i As Long
    Dim lastBlankRow As Long
    Dim sumVal As Double
    
    ' 设置目标工作表，改成你实际的工作表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取目标列（这里假设是A列）的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 把A列数据读到数组里
    dataArr = ws.Range("A1:A" & lastRow).Value
    
    ' 初始化上一个空白行的位置（初始设为0，表示还没遇到空白）
    lastBlankRow = 0
    
    ' 遍历数组
    For i = 1 To UBound(dataArr, 1)
        ' 判断当前单元格是否为空白（同时排除文本型空白）
        If Trim(CStr(dataArr(i, 1))) = "" Then
            ' 如果是第一个空白行（上一个空白行是0），计算从第1行到当前行的上一行的和
            If lastBlankRow = 0 Then
                sumVal = Application.Sum(Range("A1:A" & i - 1))
            Else
                ' 计算上一个空白行的下一行到当前行的上一行的和
                sumVal = Application.Sum(Range("A" & lastBlankRow + 1 & ":A" & i - 1))
            End If
            ' 把求和结果写入当前空白单元格对应的数组位置
            dataArr(i, 1) = sumVal
            ' 更新上一个空白行的位置为当前行
            lastBlankRow = i
        End If
    Next i
    
    ' 把处理后的数组写回A列
    ws.Range("A1:A" & lastRow).Value = dataArr
End Sub

代码说明： #

• 先把整列数据加载到数组dataArr，全程在内存操作，避免频繁读写单元格
• 用lastBlankRow记录上一个空白单元格的位置，每次遇到新空白就计算中间区间的和
• 最后一次性把数组写回单元格，完成批量更新

如果之后数据可能更新，想保留公式逻辑，可以用VBA批量给空白单元格插入动态求和公式，再按需转成值：

Sub InsertSumFormulas()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim blankCells As Range
    Dim cell As Range
    Dim prevBlankRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 找到A列所有空白单元格
    On Error Resume Next
    Set blankCells = ws.Range("A1:A" & lastRow).SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not blankCells Is Nothing Then
        prevBlankRow = 0
        For Each cell In blankCells
            If prevBlankRow = 0 Then
                ' 第一个空白单元格：求和从第1行到当前行上一行
                cell.Formula = "=SUM(A1:A" & cell.Row - 1 & ")"
            Else
                ' 后续空白单元格：求和从上一个空白行下一行到当前行上一行
                cell.Formula = "=SUM(A" & prevBlankRow + 1 & ":A" & cell.Row - 1 & ")"
            End If
            prevBlankRow = cell.Row
        Next cell
        
        ' 可选：把公式转成值（如果不需要保留公式的话）
        blankCells.Value = blankCells.Value
    End If
End Sub

注意事项： #

• 确保目标列只有数值和空白单元格，如果有文本内容，需要调整代码里的空白判断逻辑
• 测试时可以先选中前几百行数据运行，确认结果正确后再处理全量3500+行
• 如果第一行就是空白，两个方案都会自动处理（求和范围会是从第1行到当前行上一行，也就是空范围，结果为0）

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