每3行插入重复行的VBA高效实现需求（避免.Select方法）

需求说明 #

每3行后插入该行的重复行，将每组3行数据扩展为4行，示例数据如下：

AAA
AAA
AAA
BBB
BBB
BBB
CCC
CCC
CCC

优化思路 #

循环逐行复制粘贴会频繁读写工作表，对11000行的数据集来说效率极低。核心优化方向是减少与工作表的交互次数，用内存数组批量处理数据后一次性写入，能把运行速度提升几十倍甚至上百倍。

优化代码示例 #

Sub InsertDuplicateRows()
    Dim ws As Worksheet
    Dim originalData As Variant, newData As Variant
    Dim i As Long, j As Long, newRowIndex As Long
    Dim lastRow As Long
    
    ' 关闭屏幕刷新、事件触发，减少额外开销
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    ' 指定目标工作表，替换为你的实际表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 读取A列所有原始数据到内存数组
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    originalData = ws.Range("A1:A" & lastRow).Value
    
    ' 计算新数组行数：原行数 + 原行数/3（每3行插1行）
    ReDim newData(1 To lastRow + lastRow \ 3, 1 To 1)
    
    newRowIndex = 1
    For i = 1 To lastRow Step 3
        ' 复制每组前3行到新数组
        For j = 0 To 2
            newData(newRowIndex, 1) = originalData(i + j, 1)
            newRowIndex = newRowIndex + 1
        Next j
        ' 插入第3行的重复行
        newData(newRowIndex, 1) = originalData(i + 2, 1)
        newRowIndex = newRowIndex + 1
    Next i
    
    ' 一次性将处理好的数据写回工作表
    ws.Range("A1").Resize(UBound(newData, 1), 1).Value = newData
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

代码说明 #

• 内存数组操作：所有数据处理都在内存中完成，避免了循环读写工作表的巨大开销，这是提速的核心。
• 关闭冗余功能：关闭屏幕刷新和事件触发后，Excel不会实时更新界面、触发不必要的事件，进一步减少运行耗时。
• 批量写入：处理完成后仅做一次工作表写入操作，远快于循环逐行写入。

注意事项 #

• 把代码中的"Sheet1"替换为你实际使用的工作表名称。
• 如果数据涉及多列，只需调整originalData的读取范围和newData的列数，核心逻辑保持不变。

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