Excel VBA循环匹配指定值插入行时持续重复插入如何解决

问题根因 #

正向遍历插入行后，原匹配单元格会向下位移，下一轮遍历会再次命中该单元格，导致重复插入行。你最初定义的Range("B2:B10")是静态区域，插入行后范围不会自动更新，也会进一步加重遍历逻辑错乱的问题。

修复代码 #

改用从下往上的反向遍历逻辑即可解决，插入的新行只会出现在已经遍历完成的区域，不会干扰后续未处理的单元格：

Sub InsertRowAboveMatch()
    Dim startRow As Long
    Dim endRow As Long
    Dim i As Long
    
    ' 定义遍历的起止行，对应你原来的B2:B10范围，行号从2到10
    startRow = 2
    endRow = 10
    
    ' 反向遍历：从最后一行往第一行走
    For i = endRow To startRow Step -1
        If Cells(i, "B").Value = "test" Then
            MsgBox "found" + Cells(i, "B").Address
            Cells(i, "B").EntireRow.Insert
        End If
    Next i
End Sub

提示：原代码中Sub命名为copy属于VBA内置关键字，建议更换为自定义名称避免逻辑冲突。

可选优化 #

如果你的数据范围不固定，可以用动态获取最后一行的逻辑，不用手动写死endRow：

' 动态获取B列最后一行有内容的行号
endRow = Cells(Rows.Count, "B").End(xlUp).Row

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