VBA循环根据单元格求和结果调整区域范围 代码异常排查

• 将指定行内值大于0的单元格范围重定义为目标区域
• 目标数据共12列，对应12个月份，需提取所有包含有效数据的连续单元格组成最终目标区域
• 原有代码仅执行一次循环就停止在第11个月份对应的列，无法返回正确结果

• 循环起点计算逻辑错误：TotFTE.Cells(0, 16)属于相对区域的偏移引用，行参数0比区域首行还向上偏移1行，列参数16远超目标区域12列的总宽度，以此为基准执行End(xlToLeft)得到的列号完全偏离第19行的实际数据位置，直接导致循环遍历范围错误
• 数值判断逻辑错误：代码对整列Columns(ColIndex)执行求和，而非统计第19行目标单元格的数值，整列其他行的数值会干扰判断结果，完全无法匹配“判断行内单元格值是否大于0”的需求
• 区域调整逻辑不稳定：循环过程中反复修改TotFTE对象的尺寸，一旦某一步列计数错误，后续所有Resize的结果都会连锁出错

原有错误代码如下：

Sub Charts_Update()

Dim TotFTE As Range, CellIndex As Range
Dim ColIndex As Long, i As Long

Set TotFTE = Sheets("FTE Detail").Range("E19:P19")

i = 12
    
With TotFTE
    For ColIndex = .Cells(0, 16).End(xlToLeft).Column To 5 Step -1
        With Columns(ColIndex)
            If Application.Sum(.Cells) = 0 Then
                i = i - 1
                Set TotFTE = TotFTE.Offset(0, 0).Resize(1, i)
            End If
        End With
    Next ColIndex
End With

End Sub

Sub Charts_Update()
    Dim TotFTE As Range
    Dim ws As Worksheet
    Dim ColIndex As Long, validColCount As Long
    Const startCol As Long = 5 ' E列，对应第一个月份
    Const endCol As Long = 16 ' P列，对应第十二个月份
    Const targetRow As Long = 19 ' 目标数据所在行号
    
    Set ws = Sheets("FTE Detail")
    validColCount = 0
    
    ' 从最右侧月份列向左遍历，找到第一个值大于0的单元格即停止
    For ColIndex = endCol To startCol Step -1
        If Val(ws.Cells(targetRow, ColIndex).Value) > 0 Then
            validColCount = ColIndex - startCol + 1
            Exit For
        End If
    Next ColIndex
    
    ' 按有效列数生成目标区域
    If validColCount > 0 Then
        Set TotFTE = ws.Cells(targetRow, startCol).Resize(1, validColCount)
    Else
        ' 无有效数据时置空，可按需调整兜底逻辑
        Set TotFTE = Nothing
    End If
End Sub

• 固定遍历范围为5到16列，从最右列向左查找第一个非0值，直接计算有效区域总宽度，不会出现遍历起点偏移问题
• 数值判断仅针对目标行的对应单元格，无整列数据干扰，判断结果完全匹配需求
• 遍历完成后一次性生成目标区域对象，避免循环中反复修改对象带来的连锁计算错误
• 增加无有效数据的兜底分支，避免空对象调用报错

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