求助：为VBA的IfAnd宏添加循环以批量处理所有行

原宏仅针对第2行数据判断，要实现批量处理所有行，这里提供两种可行方案：

方案一：逐行循环处理（适合数据量不大的场景） #

先定位数据最后一行，再从第2行开始逐行遍历，把原代码的固定行号替换为循环变量：

Sub IfAnd()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取F列最后一行数据的行号（也可改用J列，确保取到有效数据行）
    lastRow = Cells(Rows.Count, "F").End(xlUp).Row
    
    ' 从第2行循环到最后一行（假设第1行是表头）
    For i = 2 To lastRow
        ' 简化多层嵌套If的判断逻辑
        If Cells(i, "J").Value = "9-99-9998" Then
            Cells(i, "K").Value = IIf(Cells(i, "F").Value <> 2, "Indirect", "IndirectOT")
        Else
            Cells(i, "K").Value = IIf(Cells(i, "F").Value <> 2, "Direct", "DirectOT")
        End If
    Next i
End Sub

方案二：数组批量处理（适合大数据量，效率更高） #

把数据读取到内存数组中处理，再一次性写入工作表，减少工作表读写次数提升效率：

Sub IfAnd_Array()
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim resultArr As Variant
    Dim i As Long
    
    ' 获取最后一行行号
    lastRow = Cells(Rows.Count, "F").End(xlUp).Row
    ' 读取F到J列的数据源到数组
    dataArr = Range("F2:J" & lastRow).Value
    ' 初始化结果数组（行数和数据源一致，仅1列）
    ReDim resultArr(1 To UBound(dataArr, 1), 1 To 1)
    
    ' 遍历数组处理逻辑
    For i = 1 To UBound(dataArr, 1)
        If dataArr(i, 5) = "9-99-9998" Then ' J列对应数组第5列（F是第1列）
            resultArr(i, 1) = IIf(dataArr(i, 1) <> 2, "Indirect", "IndirectOT")
        Else
            resultArr(i, 1) = IIf(dataArr(i, 1) <> 2, "Direct", "DirectOT")
        End If
    Next i
    
    ' 将结果批量写入K列
    Range("K2").Resize(UBound(resultArr, 1), 1).Value = resultArr
End Sub

补充说明 #

• 两种方案默认第1行是表头，数据从第2行开始；若你的数据起始行不同，修改循环的起始值即可。
• 用IIf函数替代多层嵌套If，让代码更简洁易读。

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