Excel宏开发需求：复制指定行后隔行插入至目标行范围

需求说明 #

复制表格中第650、651行的数据，在第652行之后插入该内容，重复此操作直到处理至第805行，实现批量自动化操作以替代手动重复劳动。

原代码存在的问题 #

• 循环逻辑不符合需求：原代码从650行开始按步长2遍历，未匹配“从652行后插入到805行”的目标范围
• 行插入会导致索引混乱：插入新行后，后续行号自动后移，正向循环会出现重复处理或遗漏的情况
• 多余的非空判断：原代码中检查B列是否非空的逻辑并非需求所需，会干扰正常插入流程

修正后的宏代码 #

Sub CopyInsertRows()
' 批量复制650-651行，插入到指定位置直到805行
' 快捷键：Ctrl+q
    Dim copyRows As Range
    Dim targetStartRow As Long, targetEndRow As Long
    Dim i As Long
    
    ' 定义要复制的行范围（650到651行，A到Z列）
    Set copyRows = ThisWorkbook.ActiveSheet.Range("A650:Z651")
    
    ' 定义目标处理范围：从652行之后开始，直到805行
    targetStartRow = 652
    targetEndRow = 805
    
    ' 反向循环避免插入行导致的索引偏移问题
    For i = targetEndRow To targetStartRow Step -1
        ' 在当前行之后插入复制的两行
        copyRows.Copy
        ThisWorkbook.ActiveSheet.Rows(i + 1).Insert Shift:=xlDown
    Next i
    
    ' 清除复制模式，释放系统资源
    Application.CutCopyMode = False
End Sub

代码说明 #

• 复制范围定义：明确指定要复制的650-651行（A到Z列），确保复制内容准确
• 反向循环：从805行倒序遍历到652行，避免插入新行后后续行号变化导致的循环索引错误
• 插入逻辑：在每一行的下一行位置插入复制的两行，严格匹配需求中的插入位置
• 清除复制模式：结束后释放系统资源，避免Excel保留复制状态

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