基于R列单元格数值插入对应空白行的VBA代码失效问题

需求说明 #

• 工作表R列存有数值，行数不固定（4行到1000+行都可能）
• 规则：R列数值大于1时，在该行下方插入「数值-1」行空白行；数值为1则不操作。比如R3值为3就插2行，R4值为2就插1行。

原代码失效原因分析 #

你提供的旧代码有几个关键问题导致失效：

1. 循环终止列错误：代码里循环判断的是O列的最后一行（注释还写错成E列），但实际应该以R列的最后一行作为循环终点，否则会出现要么漏掉数据、要么处理空行的情况。
2. 冗余变量：val变量定义后完全没用到，属于无效代码。
3. 插入逻辑效率低：逐行插入在数据量较大时（比如1000+行）会拖慢运行速度，且行计数容易出问题。

修复后的VBA代码 #

Sub InsertBlankRowsByRColumn()
    ' 变量声明
    Dim sourceSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim insertCount As Integer
    Dim startRow As Integer
    
    ' 自定义设置：指定工作表和起始行
    Set sourceSheet = ThisWorkbook.Sheets(1) ' 目标工作表
    startRow = 2 ' 数据起始行
    
    ' 从下往上循环，避免插入行打乱计数
    lastRow = sourceSheet.Range("R" & sourceSheet.Rows.Count).End(xlUp).Row
    For i = lastRow To startRow Step -1
        insertCount = sourceSheet.Range("R" & i).Value
        ' 仅当数值大于1时执行插入
        If insertCount > 1 Then
            ' 一次性插入（insertCount-1）行，提升效率
            sourceSheet.Rows(i + 1 & ":" & i + insertCount - 1).Insert Shift:=xlDown
        End If
    Next i
End Sub

代码改动说明 #

• 循环方向调整：改为从最后一行往上循环，避免插入新行后打乱后续行的计数，这是处理行插入问题的常用技巧。
• 修正循环终点：以R列的最后一行作为循环终止条件，确保所有数据行都被处理。
• 批量插入行：一次性插入需要的空白行数，相比逐行插入，在大数据量下速度提升明显。
• 移除冗余代码：删掉没用的val变量，简化逻辑。

使用注意事项 #

1. 运行代码前请保存工作表，避免意外情况导致数据丢失。
2. 如果你的目标工作表不是Sheets(1)，请修改Set sourceSheet = ThisWorkbook.Sheets(1)中的工作表名称或索引。
3. 确保R列的数值都是整数，否则代码会自动取整处理（比如数值为3.9会被当作3，插入2行）。

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