遍历列并在重复值后插入行的VBA宏死循环问题排查

原代码的核心问题 #

• 死循环根源：Do While IsNull(Range("C" & rw)) = False 循环内部没有任何代码能改变判断条件的状态，也没有推进rw变量，导致循环永远无法终止。
• 遍历方向错误：从前往后遍历（For rw = 3 To ...）时，插入行会让后续行位置后移，而原循环的上限是初始的最后一行，会漏掉新增行后的部分数据，还可能重复处理同一行。
• 冗余逻辑：Else分支里的If val1 = val2 Then完全无效，没有任何实际操作。
• 不必要的激活/选择：依赖Sheets(4).Activate和Range("C3").Select容易引发错误，应该直接通过工作表对象引用单元格。

修改后的代码 #

Sub InsertBlankAfterDuplicates()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rw As Long
    Dim valCurrent As Variant
    Dim valNext As Variant
    
    ' 直接指定工作表，避免激活操作
    Set ws = ThisWorkbook.Sheets(4)
    ' 获取C列最后一行的行号
    lastRow = ws.Range("C" & ws.Rows.Count).End(xlUp).Row
    
    ' 从后往前遍历，避免插入行导致的遍历遗漏
    For rw = lastRow To 4 Step -1
        valCurrent = ws.Range("C" & rw).Value
        valNext = ws.Range("C" & rw - 1).Value
        
        ' 检查当前行与上一行是否重复
        If valCurrent = valNext Then
            ' 在当前行下方插入空行
            ws.Rows(rw + 1).Insert Shift:=xlDown
        End If
    Next rw
End Sub

代码说明 #

• 从后往前遍历：从最后一行开始向上循环，插入行不会影响未遍历的行位置，确保所有重复值都能被检测到。
• 直接引用工作表：用ws对象直接操作单元格，无需激活工作表，代码更稳定可靠。
• 移除无效循环：删掉了导致死循环的Do While结构，改用简单的条件判断处理重复值逻辑。
• 变量类型优化：用Variant类型存储单元格值，兼容文本、数字等多种数据类型。

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