Excel VBA遍历指定列并按单元格值插入行问题求助

我来帮你排查这段VBA代码的问题，主要有两个关键错误导致执行后没有反应：

• 错误使用ActiveCell而非循环变量：你的代码里用For Each cell In rng遍历目标区域，但判断和操作的却是ActiveCell——这相当于完全没用到循环里的当前单元格，自然不会对每个C列单元格进行检查。
• 从前往后遍历会跳过单元格：如果从C8开始往前找"Total"并插入行，插入的新行会把后续单元格下移，继续遍历的话会跳过原本在插入行下方的单元格，导致部分"Total"被遗漏。

修正后的代码 #

Sub Create_new_rows()
    Dim rng As Range
    Dim i As Long '改用索引从后往前遍历
    
    '设置目标区域，用Cells指定范围更灵活
    Set rng = Range(Cells(8, "C"), Cells(3276, "C"))
    
    '从最后一行往第一行遍历，避免插入行后跳过单元格
    For i = rng.Rows.Count To 1 Step -1
        If rng.Cells(i).Value = "Total" Then
            '在当前单元格下方插入一行
            rng.Cells(i).Offset(1, 0).EntireRow.Insert
        End If
    Next i
End Sub

代码说明 #

1. 改用Long类型的索引i，从区域的最后一行（3276行）倒序遍历到第一行（8行对应的区域内第1行），这样插入行不会影响未遍历的单元格。
2. 直接使用rng.Cells(i)来访问当前遍历的单元格，替代原来的ActiveCell，确保每个目标单元格都被检查到。
3. 用Cells方法定义区域，比直接写Range("C8:C3276")更便于后续调整行号。

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