Excel VBA检测列值变化插入行时程序崩溃该如何处理？

你遇到的Excel崩溃是正向遍历插入行导致的死循环：

• 你现在用的For Each从上到下遍历固定范围，插入空白行后，原本待遍历的单元格会整体下移一行，循环会反复检测到相同的数值差，不停插入空白行，最终耗尽资源导致Excel崩溃。

改用从下往上倒序遍历即可解决，插入的行会出现在当前遍历位置的上方，不会干扰还没处理的上半部分数据，不会重复触发插入逻辑。

固定范围版本（适配你原代码的Q3:Q10范围） #

Sub InsertRow()
    Dim i As Long
    ' 从第10行倒序遍历到第4行（第3行没有上一行无需对比）
    For i = 10 To 4 Step -1
        If Range("Q" & i).Value <> Range("Q" & i - 1).Value Then
            Rows(i).Insert
        End If
    Next i
End Sub

动态范围版本（自动适配Q列所有有数据的行） #

如果你的数据行数不固定，可以用这个版本，无需手动修改行号：

Sub InsertRowDynamic()
    Dim lastRow As Long
    Dim i As Long
    ' 自动获取Q列最后一个有数据的行号
    lastRow = Cells(Rows.Count, "Q").End(xlUp).Row
    For i = lastRow To 4 Step -1
        If Range("Q" & i).Value <> Range("Q" & i - 1).Value Then
            Rows(i).Insert
        End If
    Next i
End Sub

针对你给出的示例数据，运行代码后会在数值从1变2、2变6的位置各插入1行空白行，完全符合预期需求。

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