VBA嵌套FOR循环仅处理首个非零单元格，后续迭代失效求助

我来帮你搞定这个循环失效的问题！你的代码只处理每行首个非零单元格，核心原因大概率是工作表上下文切换混乱或者单元格引用逻辑不清晰，咱们一步步修正：

可能的问题点分析 #

• 你用到了[Input1].Select，这个操作会把当前活动工作表切换到Input1对应的表，但后续循环里的Cells(...)如果没明确指定工作表，就会默认用当前活动表。如果你的输出操作在另一个表，切换后下一次循环的单元格引用就会出错，看起来像是没处理后续单元格，实际是找错了地方。
• 你声明了VBAR、VBAC这些变量，但代码里根本没用到，反而依赖模糊的命名单元格（比如[VBA_Row]、[Segment]），很容易导致引用的行/列号不符合预期。
• 你提到的“首次迭代可正常运行的无关代码”里，可能隐含了Exit For这类终止内层循环的语句，直接导致同一行后续单元格被跳过。

修正后的代码示例 #

我帮你重构了代码，去掉了容易出问题的Select操作，明确指定工作表，并且用上了你声明的变量：

Dim RNB As Long, ROutput As Integer, VBAR As Integer, VBAC As Integer, i As Long, j As Long
Dim inputWS As Worksheet, outputWS As Worksheet

' 明确指定工作表，彻底避免上下文错误
Set inputWS = ThisWorkbook.Worksheets("你的输入表名称") ' 替换成实际输入表名
Set outputWS = ThisWorkbook.Worksheets("你的输出表名称") ' 替换成实际输出表名

' 给变量赋值（可根据你的命名单元格或直接赋值调整）
RNB = inputWS.Range("RNB").Value ' 输入表格需检查的总行数
ROutput = outputWS.Range("ROutput").Value ' 输出表起始粘贴行号
VBAR = inputWS.Range("VBA_Row").Value ' 输入表首个待检查单元格的行号
VBAC = inputWS.Range("Segment").Value ' 输入表首个待检查单元格的列号

' 外层纵向循环：逐行遍历
For i = 1 To RNB
    ' 内层横向循环：遍历当前行的11个单元格
    For j = 1 To 11
        ' 明确引用输入表的单元格，避免找错位置
        If inputWS.Cells(VBAR + i - 1, VBAC + 2 + j).Value <> 0 Then
            ' 直接复制到输出表，无需Select操作
            inputWS.Cells(VBAR + i - 1, VBAC + 2 + j).Copy _
                Destination:=outputWS.Cells(ROutput, 1) ' 这里的1是输出表目标列，按需调整
            
            ' 执行你的基础操作（注意：不要加Exit For之类终止循环的语句）
            ' [这里放你的其他操作代码]
            
            ' 如果每次粘贴后输出行需要递增，记得加这行
            ROutput = ROutput + 1
        End If
    Next j
Next i

' 释放对象，避免内存占用
Set inputWS = Nothing
Set outputWS = Nothing

关键优化点 #

1. 抛弃Select/Activate：直接通过工作表对象引用单元格，彻底解决上下文切换导致的错误。
2. 统一变量逻辑：用上你声明的VBAR和VBAC，替换模糊的命名单元格引用，代码逻辑更清晰。
3. 明确工作表对象：所有单元格操作都指定具体工作表，再也不会找错单元格位置。
4. 检查无关代码：确保你的基础操作代码里没有Exit For、Exit Sub这类终止循环的语句，如果有，去掉或者调整逻辑。

按照这个修正后，应该就能遍历所有非零单元格并执行操作了！

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