请求将VBA判断代码转换为Excel公式或优化代码提速

嘿，针对你的需求，我给你两个实用方案——要么把VBA里的判断逻辑转成Excel内置公式直接用，要么优化原VBA代码减少耗时，都适配你1500条记录的数据集，你可以按需选择：

方案一：转成Excel公式（最省心的提速方式） #

先拆解你原VBA里的判断逻辑：

• 如果comp等于"AC"，目标单元格直接填"AC"
• 否则看state：
  • 若state是"idle"：
    • 当resp >= obj时填"idle miss"，否则填"idle"
  • 若state不是"idle"（即ended状态）：
    • 当resp >= obj时填"ended missed"，否则填"ended ok"

假设你的comp在A列、state在B列、resp在C列、obj在D列，目标列是第77列（BU列），可以直接用下面的嵌套IF公式：

=IF(A2="AC","AC",IF(B2="idle",IF(C2>=D2,"idle miss","idle"),IF(C2>=D2,"ended missed","ended ok")))

使用方法：把公式放到第2行的BU列（对应你的实际起始行），然后下拉填充，或者用Ctrl+Enter批量填充到目标区域。Excel内置公式是批量处理的，比循环读写单元格快很多。

方案二：优化原VBA代码（保留VBA场景） #

原代码慢的核心原因是循环中逐个读写单元格，这是VBA操作Excel的最大性能瓶颈。我们可以改成「数组批量读写」的方式，把数据读到内存数组里处理，最后一次性写回工作表，大幅减少和工作表的交互次数。

优化后的代码如下（记得根据你的实际列位置调整数组索引）：

Sub OptimizeStatusUpdate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 假设comp在A列，获取数据最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 一次性读取数据到内存数组（这里包含所有需要用到的列，目标列是第77列）
    dataArr = ws.Range("A2:BU" & lastRow).Value
    
    ' 在内存数组里处理判断逻辑
    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
        ' 数组索引对应：comp=第1列，state=第2列，resp=第3列，obj=第4列，目标列=第77列
        If dataArr(i, 1) = "AC" Then
            dataArr(i, 77) = "AC"
        Else
            If dataArr(i, 2) = "idle" Then
                dataArr(i, 77) = IIf(dataArr(i, 3) >= dataArr(i, 4), "idle miss", "idle")
            Else
                dataArr(i, 77) = IIf(dataArr(i, 3) >= dataArr(i, 4), "ended missed", "ended ok")
            End If
        End If
    Next i
    
    ' 把处理好的数组一次性写回工作表
    ws.Range("A2:BU" & lastRow).Value = dataArr
End Sub

这个版本对于1500条数据来说，运行速度会比原代码快几倍甚至几十倍。

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