Excel 2010 VBA：基于条件批量更新多行数据的优化方案问询

针对你需求的高效批量处理思路，核心是减少单元格读写次数+利用字典快速定位标记行，比逐行反向循环效率提升明显，尤其是数据量大的场景。具体实现可以结合数组读取数据、字典存储关键标记，最后批量写入结果，以下是封装好的可指定Label调用的函数：

Sub UpdateStatusByLabel(targetLabel As String)
    Dim ws As Worksheet
    Dim dataArr As Variant
    Dim lastRow As Long
    Dim maxORow As Long
    Dim i As Long
    
    ' 设置目标工作表（可根据实际修改）
    Set ws = ActiveSheet
    ' 获取数据最后一行
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    ' 将数据读入数组（大幅提升处理速度）
    dataArr = ws.Range("A1:B" & lastRow).Value
    
    maxORow = 0
    ' 第一次遍历：记录目标Label最后出现"o"的行号
    For i = 1 To lastRow
        If dataArr(i, 2) = targetLabel And dataArr(i, 1) = "o" Then
            maxORow = i
        End If
    Next i
    
    ' 第二次遍历：批量更新符合条件的Status
    If maxORow > 0 Then
        For i = 1 To maxORow - 1
            If dataArr(i, 2) = targetLabel And dataArr(i, 1) <> "o" Then
                dataArr(i, 1) = "x"
            End If
        Next i
        ' 将数组结果写回单元格（仅一次写入操作）
        ws.Range("A1:B" & lastRow).Value = dataArr
    End If
    
    ' 释放对象
    Set ws = Nothing
End Sub

' 调用示例：处理Label为"Peter"的行
Sub TestUpdate()
    UpdateStatusByLabel "Peter"
End Sub

效率提升点说明 #

• 数组读写替代单元格操作：Excel单元格IO是性能瓶颈，把整列数据读入内存数组处理，最后一次性写回，比逐行修改单元格快数倍。
• 定位关键行减少无效循环：通过一次遍历记录目标Label最后出现"o"的行号，后续仅需遍历到该行号即可，避免对无关行的重复判断。

如果需要批量处理所有Label，只需新增字典存储所有Label的最大"o"行号，再遍历所有Label执行更新逻辑即可。

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