如何高效实现多指定行中值非0的最后列获取（VBA）

兄弟，我太懂你现在的麻烦了——复制粘贴好几段几乎一模一样的循环代码，不仅冗余到改规则要改好几处，反复读写单元格的操作还拖慢了运行速度。针对你要处理86、88、95、99这几行，找对应偏移行是"Forecast"且当前单元格值≠0的最后一列这个需求，咱们可以从减少重复代码和降低工作表交互两个核心方向优化，这才是最高效的实现方式。

核心优化思路 #

1. 参数化数组统一管理目标行：把需要处理的行号和对应的偏移行数（就是Offset里的负数）存到一个二维数组里，只用一个循环就能遍历所有目标行，不用重复写多段For Each。
2. 一次性读取数据到内存数组：VBA里直接读写单元格是出了名的慢，咱们把要处理的单元格区域一次性读到内存数组里，在内存里做判断，速度能提升好几倍。
3. 全程跟踪最大列号：只维护一个LastColFcst变量，只要找到符合条件的列号比当前记录的大，就更新它，不用每段循环单独做判断。

优化后的完整代码 #

Sub GetLastForecastColumn()
    Dim ws As Worksheet
    Dim targetRows As Variant
    Dim i As Integer, col As Integer
    Dim dataRange As Range
    Dim dataArray As Variant
    Dim lastColFcst As Integer
    
    ' 初始化变量，替换成你实际要操作的工作表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastColFcst = 0 ' 初始化为0，确保能捕获到第一个符合条件的列
    
    ' 定义目标行和对应的偏移行数：第一列是目标行号，第二列是偏移行的差值
    targetRows = Array( _
        Array(86, -77), _
        Array(88, -79), _
        Array(95, -79), _
        Array(99, -88) _
    )
    
    ' 遍历每一组目标行参数
    For i = LBound(targetRows) To UBound(targetRows)
        ' 定义当前目标行的检查区域（和你原来的区域完全一致）
        Set dataRange = ws.Range("E" & targetRows(i)(0) & ":P" & targetRows(i)(0) & _
                                ",S" & targetRows(i)(0) & ":AD" & targetRows(i)(0) & _
                                ",AG" & targetRows(i)(0) & ":AR" & targetRows(i)(0) & _
                                ",AU" & targetRows(i)(0) & ":BF" & targetRows(i)(0) & _
                                ",BI" & targetRows(i)(0) & ":BU" & targetRows(i)(0))
        
        ' 把区域数据读到内存数组，大幅提升效率
        dataArray = dataRange.Value
        
        ' 遍历数组中的每一列（单行区域的数组是1行多列结构）
        For col = LBound(dataArray, 2) To UBound(dataArray, 2)
            ' 检查当前单元格值≠0，且对应偏移行的值是"Forecast"
            If dataArray(1, col) <> 0 And ws.Cells(targetRows(i)(0) + targetRows(i)(1), dataRange.Column + col - 1).Value = "Forecast" Then
                ' 如果当前列号更大，更新最后列号
                If dataRange.Column + col - 1 > lastColFcst Then
                    lastColFcst = dataRange.Column + col - 1
                End If
            End If
        Next col
    Next i
    
    ' 这里可以换成你需要的结果处理逻辑
    MsgBox "最后符合条件的列号是：" & lastColFcst
End Sub

代码细节说明 #

• 参数数组targetRows：所有要处理的行和偏移规则都存在这里，以后要加新行或者改偏移值，只需要修改这个数组就行，不用动循环逻辑，维护起来特别方便。
• 内存数组dataArray：把整行的目标区域一次性读进内存，避免了For Each逐个访问单元格的开销，数据量越大，这个优化的效果越明显。
• 列号计算：dataRange.Column + col - 1是因为数组的列索引从1开始，要转换成实际的工作表列号，保证判断的准确性。

额外进阶优化小技巧 #

如果你的偏移行是固定的（比如所有目标行对应的"Forecast"都在同一行），还可以把偏移行的"Forecast"区域也一次性读到数组里，彻底避免所有单元格的实时读写：

' 提前读取偏移行的Forecast数据到内存数组
Dim forecastRow As Integer
Dim forecastArray As Variant
forecastRow = 9 ' 比如86-77=9，根据实际情况修改
forecastArray = ws.Range("E" & forecastRow & ":BU" & forecastRow).Value

之后判断的时候直接用forecastArray(1, dataRange.Column + col - 1 - 4) = "Forecast"（E列是第5列，数组索引要减4），效率还能再上一个台阶。

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