VBA遍历列插入行异常咨询：为何未按预期每行插入新行？

先明确下你的场景：

• 你想从表头下方第三行开始，给目标列的每一行都插入一个新行
• 但运行宏后，结果是在第三行连续插了n个新行（n是目标列的总行数），完全没达到每行插一行的效果
• 有意思的是，你另一套逻辑几乎一样的宏（用来插超链接）却运行正常

先看看你的原代码：

Sub InsertRows() 
    Dim i As Integer 
    Dim lRow As Integer 
    lRow = Cells(Rows.Count, 3).End(xlUp).Row 
    i = 3 
    Do 
        Range("C" & i).Select 
        ActiveCell.EntireRow.Insert 
        i = i + 1 
    Loop Until i > lRow 
End Sub

问题出在哪？ #

核心原因是插入行的操作会改变原有行的位置，但你提前把总行数lRow固定死了。举个具体例子：
假设目标列原来有3行需要处理（行3、4、5），初始lRow是5。

• 第一次循环：在第3行插入新行，原来的行3变成了行4，行4变行5，行5变行6。但你的终止条件还是i > 5，此时i变成4。
• 第二次循环：你又去操作第4行（也就是原来的行3），再插一行，原来的行4又往下推。
• 直到i增加到6，循环才停止——结果就是在初始第三行的位置连续插了3次新行，完全没碰后面的行。

而你那套插超链接的宏没问题，是因为超链接只是修改单元格内容，不会增加/移动行，行号不会变，固定的lRow自然不会出问题。

怎么修复？ #

给你两种靠谱的修复方式：

方式1：从下往上循环（推荐）

从最后一行开始往上插，这样插入新行不会影响还没处理的行的位置，逻辑更简单：

Sub InsertRows_Fixed()
    Dim i As Integer
    Dim lRow As Integer
    lRow = Cells(Rows.Count, 3).End(xlUp).Row
    
    ' 从最后一行倒着循环到第三行，每次步长-1
    For i = lRow To 3 Step -1
        Rows(i).EntireRow.Insert ' 直接操作行，不用Select，效率更高
    Next i
End Sub

方式2：动态更新总行数（从上往下循环的兼容方案）

如果你一定要从上往下循环，那每次插入行后，得把lRow加1（因为总行数变多了），同时i要加2（插入后下一个目标行是原来的下一行，已经被推下去了一行）：

Sub InsertRows_Fixed2()
    Dim i As Integer
    Dim lRow As Integer
    lRow = Cells(Rows.Count, 3).End(xlUp).Row
    i = 3
    
    Do
        Rows(i).EntireRow.Insert
        i = i + 2 ' 跳过新插入的空行，直接到下一个目标行
        lRow = lRow + 1 ' 更新总行数，保证循环能覆盖所有原目标行
    Loop Until i > lRow
End Sub

额外小优化 #

• 尽量别用Select和ActiveCell，直接操作行对象（比如Rows(i).EntireRow.Insert），代码不仅更快，还不容易因为选中单元格变化出问题。
• 可以在宏开头加Application.ScreenUpdating = False，结尾加Application.ScreenUpdating = True，插入行的时候屏幕不会闪，体验更好。

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