如何在VBA插入新行的循环中为A、B、C、D列批量赋值

嘿，我来帮你搞定这个需求！你的原代码确实能插入新行，但有个容易踩的小坑——从上往下循环的话，插入新行后会跳过下一个目标单元格，所以咱们得改成从下往上反向循环。同时可以把赋值逻辑直接整合到插入步骤里，一步到位完成操作。

修改后的完整代码 #

Sub InsertAndFillRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取A列最后一行的行号（避免选中无效区域）
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    
    ' 从最后一行往上循环，避免插入行后跳过后续单元格
    For i = lastRow To 4 Step -1
        If Range("A" & i).Value <> "" Then
            ' 在当前行下方插入整行
            Rows(i + 1).Insert
            
            ' 给新插入行的A-D列按规则赋值
            With Range("A" & i + 1 & ":D" & i + 1)
                .Cells(1, 1).Value = "SPL" ' A列固定值
                .Cells(1, 2).Value = "CHECK" ' B列固定值
                .Cells(1, 3).Value = Range("C" & i).Value ' C列继承上方单元格的值
                .Cells(1, 4).Value = "Transfer Account" ' D列固定值
            End With
        End If
    Next i
End Sub

关键改进点说明 #

• 反向循环：从A列最后一行往第4行倒着循环，这样插入新行不会影响还没处理的单元格，避免漏插
• 避免选中单元格：原代码里的Select和Selection属于冗余操作，直接通过行号引用单元格更高效、更稳定
• 批量赋值简化：用With语句一次性操作新行的A-D列，让代码更简洁易读
• 动态获取最后一行：用Range("A" & Rows.Count).End(xlUp).Row自动定位A列有数据的最后一行，不用手动调整范围

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